?? 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 + -