انشر جزءًا من كود استعلام قاعدة بيانات 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("اسم المستخدم")
إذا strWhoIs = "" ثم
%>
＜card id="UserSearch" title="بحث"＞
＜ص＞
الرجاء إدخال اسم المستخدم للعثور على ＜اسم الإدخال = "اسم المستخدم" نوع = "نص" أقصى طول = "15"/＞
＜اكتب = "قبول" التسمية = "تحديد الموقع"＞
＜انتقل إلى طريقة href="thispage.asp"="get"＞
＜اسم حقل البريد = "اسم المستخدم" القيمة = "اسم المستخدم $"/＞
＜/اذهب＞
＜/أفعل＞
＜/ع＞
＜/بطاقة＞
<%
آخر
strSQL = "SELECT * FROM tblUsers WHERE Username ='& strWhoIs & '"
تعيين rs = conn.Execute(strSQL)
%＞ ＜معرف البطاقة = "UserResult" عنوان = "النتيجة"＞
＜ص＞
<%
إن لم يكن rs.EOF ذلك الحين
rs.MoveFirst
الرد.اكتب "＜قوي＞نتائج بحث المستخدم＜/قوي＞"
في حين لا rs.EOF
strFirstName = "الاسم الأول" & rs("الاسم الأول")
strLastName = "اسم العائلة" & rs("اسم العائلة")
الاستجابة.اكتب strFirstName
الاستجابة.اكتب strLastName
rs.MoveNext
ويند
آخر
Response.اكتب "عذرًا، لم يتم العثور على مستخدم."
نهاية إذا
%>
＜/ع＞
＜/بطاقة＞
<%
نهاية إذا
%>