|
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。
您需要 登录 才可以下载或查看,没有帐号?立即注册
x
asp可以轻松地实现对页面内容的动态控制,根据不同的浏览者,显示不同的页面内容。而浏览者一点觉察不出来,就像为他专门制作的页面一样。使用各种各样的组件,asp可以完成无比强大的功能。完成了一个复杂有效的WAP网站--WAP版的手机号码地点地查询
地点:http://hikey.net/wap
用撑持wap的手机检察,不撑持IE哈
假如你的手机不撑持WAP大概不肯意那几分钱的话,能够用gelon.net供应的一个摹拟器来看看我的作品
间接翻开这个地点就能够了
http://www.gelon.net/cgi-bin/wapalize.cgi?url=http://hikey.net/wap
//IE的编码要选择简体中文哈
//按滚轮下滑屏幕
wap上彀按流量计费,我没用图片,字数也未几
查询点器材应当还算合算哈
次要代码:
<%Response.ContentType="text/vnd.wap.wml"%>
<?xmlversion="1.0"encoding="gb2312"?>
<!DOCTYPEwmlPUBLIC"-//WAPFORUM//DTDWML1.3//EN""http://www.wapforum.org/DTD/wml13.dtd">
<wml>
<cardid="SJ"title="手机号码地点地查询">
<%
数据库毗连
dimconnstr1,conn1
constDB="xxx.mdb"手机库路径
connstr1="DBQ="+server.mappath(""&DB&"")+";DefaultDir=;DRIVER={MicrosoftAccessDriver(*.mdb)};"
setconn1=server.createobject("ADODB.CONNECTION")
conn1.openconnstr1
过滤不法字符
functionchk(str)
ifstr""then
chktopic=replace(str,"","")
endif
endfunction
%>
<%
手机查询
ifrequest.form("SJ")""then
d=chk(request.form("SJ"))
判别是不是为数字大概年夜于7位的数字
iflen(d)>=7andIsNumeric(d)then
c=left(d,7)
这里省略了良多代码
sql="select*frommodwherestart<="&c&"andend>="&c&"andmid(start,3,1)="&mid(c,3,1)&"andmid(end,3,1)="&mid(c,3,1)&"andmid(start,4,1)="&mid(c,4,1)&"andmid(end,4,1)="&mid(c,4,1)&"andmid(start,5,1)="&mid(c,5,1)&"andmid(end,5,1)="&mid(c,5,1)&"andmid(start,6,1)="&mid(c,6,1)&"andmid(end,6,1)="&mid(c,6,1)&""
setrs=conn1.execute(sql)
ifnotrs.eofthen
a=rs("city")
b=rs("city1")
e=rs("url")
f=rs("thank")
setrs=nothing
else
a="对不起,没有找到这个号码的记录"
endif
else
a="毛病:请确保你输出的是年夜于7位的数字!"
endif
%>
<b>您搜刮的手机号码:</b><br/>
<%=d%><br/>
<b>地点地点:</b><%=a%><%=b%><br/>
<b>区号和形貌:</b><br/>
<%=e%><%=f%>
<br/><br/>
<%endif%>
请输出手机号码
<inputsize="8"name="SJ"type="text"maxlength="11"/>
<anchortitle="断定">断定
<gohref="index.asp"method="post">
<postfieldname="SJ"value="$SJ"/>
</go>
</anchor>
<palign="center"><b>Hikey.NET</b></p>
</card>
</wml>
<%
setconn1=nothing
%>
</p>优点:简单易学、开发速度快、有很多年“历史”,能找到非常多别人做好的程序来用、配合activeX功能强大,很多php做不到的asp+activeX能做到,例如银行安全控件 |
|