 |
|
|
 首页 |
名片设计 CorelDRAW Illustrator AuotoCAD Painter 其他软件 Photoshop Fireworks Flash |
|
主要代码: <% Response.ContentType="text/vnd.wap.wml" %> <?xml version="1.0" encoding="gb2312"?> <!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.3//EN" "http://www.wapforum.org/DTD/wml13.dtd" > <wml> <card id="SJ" title="手机号码所在地查询"> <% \\\' 数据库连接 dim connstr1,conn1 const DB="xxx.mdb" \\\'手机库路径 connstr1="DBQ="+server.mappath(""&DB&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};" set conn1=server.createobject("ADODB.CONNECTION") conn1.open connstr1 \\\'过滤非法字符 function chk(str) if str<>"" then chktopic=replace(str,"\\\'","\\\'\\\'") end if end function %> <% \\\'手机查询 if request.form("SJ")<>"" then d= chk(request.form("SJ")) \\\'判定是否为数字或者大于7位的数字 if len(d)>=7 and IsNumeric(d) then c=left(d,7) \\\'这里省略了很多代码 sql="select * from mod where start<="&c&" and end>="&c&" and mid(start,3,1)="&mid(c,3,1)&" and mid(end,3,1)="&mid(c,3,1)&" and mid(start,4,1)="&mid(c,4,1)&" and mid(end,4,1)="&mid(c,4,1)&" and mid(start,5,1)="&mid(c,5,1)&" and mid(end,5,1)="&mid(c,5,1)&" and mid(start,6,1)="&mid(c,6,1)&" and mid(end,6,1)="&mid(c,6,1)&" " set rs=conn1.execute(sql) if not rs.eof then a=rs("city") b=rs("city1") e=rs("url") f=rs("thank") set rs=nothing else a="对不起，没有找到这个号码的纪录" end if else a="错误:请确保你输入的是大于7位的数字！" end if %> <b>您搜索的手机号码:</b><br/> <%=d%><br/> <b>所在地址:</b><%=a%> <%=b%><br/> <b>区号和描述:</b><br/> <%=e%> <%=f%> <br/><br/> <%end if%> 请输入手机号码 <input size="8" name="SJ" type="text" maxlength="11" /> <anchor title="确定">确定 <go href="index.asp" method="post"> <postfield name="SJ" value="$SJ"/> </go> </anchor> <p align="center"><b>Hikey.NET</b></p> </card> </wml> <% set conn1=nothing %> 返回类别: 教程 上一教程: 用JS判定输入的时间是否有效 下一教程: 刷一次变一次图的ASP代码 您可以阅读与"WAP版的手机号码所在地查询"相关的教程: · 初试WAP之wml＋ASP查询 · 初试WAP之WML+ASP查询 · ASP编写完整的一个IP所在地搜索类 · 用正则表达式突出显示字符串中查询到的单词的函数 · 用ASP实现QQ在线查询 |
  |
| 快精灵印艺坊 版权所有 |
首页 会员中心在线印刷在线编辑付款方式索取样品设计指南连锁门店
|
||
