حاول أولاً استخدام استعلام WAP wml + ASP

بعد العمل مع أجهزة الكمبيوتر لسنوات عديدة، هذه هي المرة الأولى التي أكتب فيها مقالًا عبر الإنترنت!

بالنسبة

لاحتياجات العمل، هناك عدد كبير جدًا من الأصدقاء الذين يستفسرون عن معلومات تسجيل الشركة، ولتوفير المتاعب، تمت إضافة وظيفة استعلام إلى موقع الويب يجب أن يكون لديك هاتف محمول إذا لم يكن لديك جهاز كمبيوتر. يمكنك استخدام هاتفك المحمول للاستعلام في أي وقت وفي أي مكان. ما عليك سوى القيام بذلك وإجراء استعلام WAP، وكل ذلك مكتوب في برنامج "المفكرة".

هيكل قاعدة البيانات كما يلي:

اسم المكتبة: data.mdb

اسم الجدول:

حقل المعلومات: المعرف، اسم الشركة، مكان الإقامة، الممثل القانوني... (تعني علامة الحذف هذه وما إلى ذلك)

1.

الكود المصدري لصفحة التعليقات hello.asp كما يلي:

<%@ Language=VBScript%>
<% Response.ContentType="text/vnd.wap.wml" %>
<?xml version="1.0" encoding="gb2312"?>

<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" " http://www.wapforum.org/DTD/ wml_1.1 .xml">

<wml>

<card id="qycx" title="شبكة شانغراو للمعلومات الصناعية والتجارية">

<p>
الرجاء إدخال معلومات الاستعلام<input name="qycx" type="text" maxlength="16" />
<anchor title="OK">حسنًا
<go href="qycx.asp" طريقة = "post">
<اسم postfield = "qycx" value = "$qycx"/>
</اذهب>
</مرساة>

<br/><br/>
شبكة شانغراو للمعلومات الصناعية والتجارية
</p>

</card>

</wml>

2.

الكود المصدري لصفحة تلقي المعلومات qycx.asp هو كما يلي:

<%@ Language=VBScript %>
<% Response.ContentType = "text/vnd.wap.wml" %>
<?xml version="1.0" encoding="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" " http://www.wapforum.org/DTD/ wml_1.1.xml">

<wml>
<card id="qycx2" title="شبكة المعلومات الصناعية والتجارية شانغراو">

<p>
<%
qycx=request.FORM("qycx")
cx="اسم الشركة مثل '%"&qycx&"%' "

Set conn=Server.CreateObject("adodb.connection")
'conn.Open "dsn=qycxsjk;uid=;pwd=;database=data.mdb"
conn.open "driver={microsoft Access driver (*.mdb)};dbq="&server.mappath("qycx.mdb")

sql="select * from info Where "&cx&""
مجموعة rs=server.createobject("adodb.recordset")
rs.open SQL، كون، 1،1
تفعل في حين لا rs.eof
%>
<%qymc=rs("اسم الشركة")
id=rs("id")

%>

<a href="qycx2.asp?id=<%Response.write id%>" ><%Response.write qymc%></a>

<br/>
<%
rs.movenext
حلقة
rs. Close
%>
<br/><br/>
شبكة شانغراو للمعلومات الصناعية والتجارية
</p>

</card>

</wml>
<% وظيفة يوني (الصينية)
لأني = 1 إلى لين (صيني)
أ=منتصف(صيني، ط، 1)
uni=uni & "&#x" & Hex(Ascw(a)) & ";"
التالي
وظيفة النهاية
%>

==========================================================================================
التعليق الثاني: كنت متعرقًا بعض الشيء عندما رأيت هذا، استخدمت لأول مرة "اسم الشركة" ككلمة رئيسية للإرسال، لكنني فكرت لاحقًا في استخدام المعرف ككلمة رئيسية لتجنب مشكلة إرسال الأحرف الصينية. لقد فكرت بالفعل في مثل هذا السؤال الأساسي لفترة طويلة. هنا، استنادًا إلى استعلام الكلمة الرئيسية "اسم الشركة" المقدم بواسطة hello.asp، نحصل على الأسماء الكاملة لجميع الشركات التي تحتوي على هذه الكلمة الرئيسية في حقل "اسم الشركة" (لتجنب التكرار)، وقم بإنشاء قائمة، ثم انقر للدخول الصفحة الثالثة وهي تفاصيل المادة الخاصة بالشركة.

3.

الكود المصدري لـ qycx2.asp هو كما يلي:

<%@ Language=VBScript %>
<% Response.ContentType = "text/vnd.wap.wml" %>
<?xml version="1.0" encoding="gb2312"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" " http://www.wapforum.org/DTD/ wml_1.1.xml">

<%
تعيين conn=Server.CreateObject("adodb.connection")
'conn.Open "dsn=qycxsjk;uid=;pwd=;database=data.mdb"
conn.open "driver={برنامج تشغيل الوصول إلى Microsoft (*.mdb)};dbq="&server.mappath("qycx.mdb")
%>

<wml>
<card id="qycx3" title="شبكة المعلومات الصناعية والتجارية شانغراو">
<ص>
<%
الاسم=request.querystring("id")

sql = "اختر * من المعلومات حيث معرف = "& اسم &""

تعيين rs=server.createobject("adodb.recordset")
rs.open SQL، كون، 1،1
تفعل في حين لا rs.eof
%>
<%qymc=rs("اسم الشركة")%>
اسم الشركة: <%Response.write qymc%>
<br/>

<%zs=rs("الإقامة")%>
مكان الإقامة:<%Response.write zs%>
<br/>

<%fddb=rs("الممثل القانوني")%>
الممثل القانوني:<%Response.write fddb%>
<br/>

<%zczb=rs("رأس المال المسجل")%>
رأس المال المسجل:<%
إذا بقي (zczb،1) = "."
الرد.اكتب "0"
آخر
نهاية إذا
Response.write zczb%> 10000 يوان
<br/>

<%qylx=rs("نوع المؤسسة")%>
نوع المؤسسة:<%Response.write qylx%>
<br/>

<%jyfw=rs("نطاق العمل")%>
نطاق العمل:<%Response.write jyfw%>
<br/>

<%zcrq=rs("تاريخ الإنشاء")%>
تاريخ التسجيل:<%Response.write zcrq%>
<br/>

<%
rs.movenext
حلقة

%>
<br/><br/>
شبكة شانغراو للمعلومات الصناعية والتجارية-نهاية
<br/>
<a href="hello.asp">إرجاع</a>
</ص>

</بطاقة>

</wml>

====================

حسنًا، أكمل الاستعلام واعرض تفاصيل الشركة!

إذا لم تكن كتابتي جيدة، فلا توبخني. هيهي، الأصدقاء الذين يحبون WAP مدعوون للتواصل معي وإعطائي بعض الإرشادات! س:18185813