シンプルで便利な WAP Web サイトが完成しました - WAP 版の携帯電話番号位置情報クエリ アドレス: http://hikey.net/wap
WAP をサポートする携帯電話を使用してください。IE をサポートしていない
場合、または数セントを支払う気がない場合は、gelon.net が提供するエミュレーターを使用して私の作品をご覧ください。 。
このアドレスを直接開いてください
http://www.gelon.net/cgi-bin/wapalize.cgi?url=http://hikey.net/wap
//IE のエンコードは簡体字中国語である必要があります。
//スクロール ホイールを押して画面を下にスクロールします。Wap
インターネット アクセスはトラフィックに応じて課金されます。また、文字数も多くありません。
メイン コード:
<% 応答。 .ContentType="text/vnd.wap.wml" %>
<?xml バージョン="1.0" エンコーディング="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.3//EN" " http://www.wapforum.org/DTD/wml13.dtd " >
<wml>
<card id="SJ" title="携帯電話番号の位置情報のクエリ">
<%
'データベース接続
ディム 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
'不正な文字をフィルタリングする
関数chk(str)
if str<>"" then
chktopic=replace(str,"'","''")
終了する場合
終了関数
%>
<%
「携帯電話でのお問い合わせ」
if request.form("SJ")<>"" then
d= chk(request.form("SJ"))
'数値か7桁を超える数値かを判断します
len(d)>=7 かつ IsNumeric(d) の場合
c=左(d,7)
'ここでは多くのコードが省略されています
sql="select * from mod where start<="&c&" および end>="&c&" および Mid(start,3,1)="&mid(c,3,1)&" および Mid(end,3,1 )="&mid(c,3,1)&" およびmid(start,4,1)="&mid(c,4,1)&" およびmid(end,4,1)="&mid(c,4 ,1)&" およびmid(start,5,1)="&mid(c,5,1)&" およびmid(end,5,1)="&mid(c,5,1)&" およびmid( start,6,1)="&mid(c,6,1)&" およびmid(end,6,1)="&mid(c,6,1)&" "
set rs=conn1.execute(sql)
そうでない場合は、
a=rs("都市")
b=rs("都市1")
e=rs("URL")
f=rs(「ありがとう」)
rs=何も設定しない
それ以外
a="申し訳ありませんが、この番号の記録は見つかりませんでした。"
終了する場合
それ以外
a="エラー: 7 桁より大きい数字を入力してください。"
終了する場合
%>
<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="OK">OK
<go href="index.asp" method="post">
<postfield name="SJ" value="$SJ"/>
</go>
</アンカー>
<p align="center"><b>Hikey.NET</b></p>
</カード>
</wml>
<%
conn1=何も設定しない
%>