أكملت موقع ويب 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" %>
<?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="الاستعلام عن موقع رقم الهاتف المحمول">
<%
'اتصال بقاعدة البيانات
خافت connstr1، conn1
const DB="xxx.mdb" 'مسار مكتبة الهاتف المحمول
connstr1="DBQ="+server.mappath(""&DB&"")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
تعيين conn1=server.createobject("ADODB.CONNECTION")
conn1.open connstr1
'تصفية الأحرف غير القانونية
وظيفة CHK(شارع)
إذا str<>"" إذن
chktopic=replace(str،"'"،''")
نهاية إذا
وظيفة النهاية
%>
<%
""الاستفسار عبر الجوال""
إذا request.form("SJ")<>"" إذن
د= chk(request.form("SJ"))
'تحديد ما إذا كان رقمًا أو رقمًا أكبر من 7 أرقام
إذا len(d)>=7 و IsNumeric(d) إذن
ج = اليسار (د، 7)
'تم حذف الكثير من التعليمات البرمجية هنا
sql = "اختر * من الوضع حيث تبدأ <="&c&" وend>="&c&" ومنتصف (بداية،3،1) = "&mid(c،3،1)&" ومنتصف (نهاية،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( البداية،6,1)="&منتصف(ج,6,1)&" ومنتصف(النهاية,6,1)="&منتصف(ج,6,1)&" "
تعيين rs=conn1.execute(sql)
إن لم يكن rs.eof ثم
أ=رس("مدينة")
ب=رس("city1")
ه=رس("url")
و=رس("شكرا")
تعيين RS=لا شيء
آخر
a="عذرًا، لم يتم العثور على سجل لهذا الرقم"
نهاية إذا
آخر
a="خطأ: يرجى التأكد من إدخال رقم أكبر من 7 أرقام!"
نهاية إذا
%>
<b>رقم الهاتف المحمول الذي بحثت عنه:</b><br/>
<%=د%><br/>
<b>العنوان:</b><%=a%> <%=b%><br/>
<b>رمز المنطقة ووصفها:</b><br/>
<%=e%> <%=f%>
<br/><br/>
<%end if%>
الرجاء إدخال رقم هاتفك المحمول
<حجم الإدخال = "8" الاسم = "SJ" نوع = "نص" الحد الأقصى للطول = "11" />
<anchor title="OK">حسنًا
<go href="index.asp" طريقة = "post">
<اسم postfield = "SJ" value = "$SJ"/>
</اذهب>
</مرساة>
<p align="center"><b>Hikey.NET</b></p>
</بطاقة>
</wml>
<%
تعيين conn1=لا شيء
%>