หลังจากทำงานกับคอมพิวเตอร์มาหลายปี นี่เป็นครั้งแรกที่ฉันเขียนบทความออนไลน์!
วัตถุประสงค์ของโปรแกรม:เนื่องจาก
มีเพื่อนจำนวนมากเกินไปที่สอบถามเกี่ยวกับข้อมูลการจดทะเบียนบริษัท เพื่อลดปัญหาจึงมีการเพิ่มฟังก์ชันการค้นหาลงในเว็บไซต์ บางคนบอกว่า ถ้าคุณไม่มีคอมพิวเตอร์ คุณ ควรมีโทรศัพท์มือถือหากคุณไม่มีคอมพิวเตอร์ คุณสามารถใช้โทรศัพท์มือถือของคุณเพื่อสืบค้นได้ทุกที่ทุกเวลา เพียงทำและทำการสืบค้น WAP ทั้งหมดนี้เขียนใน Notepad
โครงสร้างฐานข้อมูลเป็นดังนี้:
ชื่อไลบรารี: data.mdb
ชื่อตาราง:
ช่องข้อมูล: id, ชื่อบริษัท, ที่พักอาศัย, ตัวแทนทางกฎหมาย... (จุดไข่ปลานี้หมายถึง ฯลฯ)
1.
ซอร์สโค้ดของหน้าคำติชม hello.asp เป็นดังนี้:
<%@ Language=VBScript%>
<% Response.ContentType="ข้อความ/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="เครือข่ายข้อมูลอุตสาหกรรมและการค้า Shangrao">
<p>
กรุณาป้อนข้อมูลแบบสอบถาม<input name="qycx" type="text" maxlength="16" />
<anchor title="ตกลง">ตกลง
<go href="qycx.asp" method="โพสต์">
<postfield name="qycx" value="$qycx"/>
</ไป>
</anchor>
<br/><br/>
เครือข่ายข้อมูลอุตสาหกรรมและการพาณิชย์ของ Shangrao
</p>
</การ์ด>
</wml>
2.
ซอร์สโค้ดของหน้ารับข้อมูล qycx.asp เป็นดังนี้:
<%@ Language=VBScript %>
<% Response.ContentType = "ข้อความ/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="เครือข่ายข้อมูลอุตสาหกรรมและการค้า Shangrao">
<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 (*.mdb)};dbq="&server.mappath("qycx.mdb")
sql="select * จากข้อมูลโดยที่ "&cx&""
ตั้งค่า rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
ทำในขณะที่ไม่ใช่ rs.eof
-
<%qymc=rs("ชื่อบริษัท")
id=rs("id")
%>
<a href="qycx2.asp?id=<%Response.write id%>" ><%Response.write qymc%></a>
<br/>
-
rs.movenext
วนซ้ำ
฿.ปิด
-
<br/><br/>
เครือข่ายข้อมูลอุตสาหกรรมและการพาณิชย์ของ Shangrao
</p>
</การ์ด>
</wml>
<% ฟังก์ชั่น uni (ภาษาจีน)
สำหรับ i = 1 ถึง Len (ภาษาจีน)
a=กลาง(จีน, i, 1)
uni=uni & "&#x" & Hex(Ascw(a)) & ";"
ต่อไป
ฟังก์ชันสิ้นสุด
-
-
ความคิดเห็นที่สอง: ฉันรู้สึกเหงื่อออกเล็กน้อยเมื่อเห็นสิ่งนี้ ฉันใช้ "ชื่อบริษัท" เป็นคีย์เวิร์ดในการส่ง แต่ต่อมาฉันคิดว่าจะใช้ ID เป็นคีย์เวิร์ดเพื่อหลีกเลี่ยงปัญหาในการส่งตัวอักษรจีน จริงๆ แล้วฉันคิดเกี่ยวกับคำถามพื้นฐานเช่นนี้มานานแล้ว ที่นี่ จากการสืบค้นคีย์เวิร์ด "ชื่อบริษัท" ที่ส่งโดย hello.asp เราจะได้ชื่อเต็มของบริษัททั้งหมดที่มีคีย์เวิร์ดนี้ในช่อง "ชื่อบริษัท" (เพื่อหลีกเลี่ยงการซ้ำซ้อน) สร้างรายการ และคลิกเพื่อเข้าสู่ หน้าที่ 3 ซึ่งเป็นรายละเอียดของบริษัท
3.
ซอร์สโค้ดของ qycx2.asp เป็นดังนี้:
<%@ Language=VBScript %>
<% Response.ContentType = "ข้อความ/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="เครือข่ายข้อมูลอุตสาหกรรมและการค้า Shangrao">
<p>
-
ชื่อ=request.querystring("id")
sql = "select * จากข้อมูลโดยที่ id = "&name&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,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%>10,000 หยวน
<br/>
<%qylx=rs("ประเภทองค์กร")%>
ประเภทองค์กร:<%Response.write qylx%>
<br/>
<%jyfw=rs("ขอบเขตธุรกิจ")%>
ขอบเขตธุรกิจ:<%Response.write jyfw%>
<br/>
<%zcrq=rs("วันที่ก่อตั้ง")%>
วันที่ลงทะเบียน:<%Response.write zcrq%>
<br/>
-
rs.movenext
วนซ้ำ
%>
<br/><br/>
เครือข่ายข้อมูลอุตสาหกรรมและการพาณิชย์ของ Shangrao-End
<br/>
<a href="hello.asp">กลับมา</a>
</p>
</การ์ด>
</wml>
=====================
ตกลง กรอกข้อซักถามและแสดงรายละเอียดบริษัท!
ถ้างานเขียนของฉันไม่ดีอย่าดุฉัน อิอิ เพื่อนที่ชอบ WAP สามารถติดต่อสื่อสารกับผมและให้คำแนะนำผมได้นะครับ! ถาม:18185813