📄 shoujic.asp
字号:
<%
ConnStr="Provider = Microsoft.Jet.OLEDB.4.0;Data Source =" & Server.MapPath("#indnamobile.asp")
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open ConnStr
%>
<?xml version="1.0" encoding="gb2312"?> <% Response.ContentType="text/vnd.wap.wml" %>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/>
</head>
<card id="main" title="时尚DNA">
<p align="center">
时尚DNA号令天下<br/>
--------------------<br/>
</p>
<p>
<%
Mnum=Trim(Request.QueryString("m"))
Response.Write("手机:"&Mnum)
If Len(Mnum)<>11 Then
Response.Write("<br/>请正确输入11位手机号码")
ElseIf Trim(Mnum+0)<>Trim(Mnum) Then
Response.Write("<br/>手机号码必须位数字")
ElseIf Left(Mnum,2)<>"13" Then
Response.write("<br/>输入的不是手机号码")
Else
Mnum=Mnum/80
num=Split(Mnum,".")
Mnum="0."&num(1)
Mnum=Mnum+0
Mnum=Mnum*80
Set Rs=Conn.Execute("Select Top 1 * From dat Where num="&Mnum)
If Not (Rs.Eof Or Rs.Bof) Then
swor=Rs("wor")
snum=Rs("num")
sdes=Rs("des")
stype=Rs("type")
Else
nors="true"
End If
End If
%>
<br/>【<%=swor%>】<br/>
【数理】<%=snum%><br/>
【暗示信息】<%=sdes%><br/>
【其他说明】<%=stype%><br/>
<%if nors="true" then%>
对不起,您用的是外星的手机,地球上没有保存数据
<%end if%>
<br/>
<a href='shouji.asp'>返回查询</a><br/>
<a href='index.asp'>返回主页</a>
</p>
</card>
</wml>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -