โพสต์โค้ดสืบค้นฐานข้อมูล ASP และ WML ไว้เพื่อใช้อ้างอิง จริงๆ แล้วคล้ายกับการเขียนเว็บเพจของ ASP มาก
＜%Response.ContentType = "text/vnd.wap.wml"%><
＜?xml version="1.0"?>＜!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" " http://www.wapforum.org/DTD/wml_1.1.xml ">
<wml>
-
ติ่มคอนอาร์เอส
หรี่ strSQL,strFirstName, strLastName
ตั้งค่า conn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.Recordset")
conn.open session("myconnect_string") 'แทนที่ด้วยสตริงการเชื่อมต่อของคุณ
strWhoIs = Request.QueryString("username")
ถ้า strWhoIs="" แล้ว
-
＜card id="UserSearch" title="Search">
<หน้า>
กรุณากรอกชื่อผู้ใช้เพื่อค้นหา? ＜input name="username" type="text" maxlength="15"/>
＜พิมพ์ = "ยอมรับ" label = "ค้นหา" >
＜go href="thispage.asp" method="get">
＜postfield name="username" value="$username"/>
＜/ไป><
</ทำ>
＜/พี><
＜/การ์ด><
-
อื่น
strSQL = "เลือก * จาก tblUsers โดยที่ชื่อผู้ใช้ ='& strWhoIs & '"
ตั้งค่า rs = conn.Execute(strSQL)
%> ＜card id="UserResult" title="Result">
<หน้า>
-
ถ้าไม่ใช่ rs.EOF แล้ว
rs.MoveFirst
Response.Write "<strong>ผลการค้นหาผู้ใช้</strong>"
แม้ว่าจะไม่ใช่ rs.EOF
strFirstName = "ชื่อ" & rs("ชื่อ")
strLastName = "นามสกุล " & rs("นามสกุล")
ตอบกลับเขียน strFirstName
ตอบกลับเขียน strLastName
rs.MoveNext
เวนด์
อื่น
ตอบกลับเขียนว่า "ขออภัย ไม่พบผู้ใช้"
สิ้นสุดถ้า
-
＜/พี><
＜/การ์ด><
-
สิ้นสุดถ้า
-