搞了這麼多年計算機，第一次寫文章上網！見笑了
程式目的：工作需要，查詢企業註冊資料的朋友太多了，省得麻煩，在網站上增加了查詢功能，居然有人說沒有電腦，沒電腦也該有個手機吧。用手機查詢這樣隨時隨地都行，說乾就乾，做一個WAP查詢，全用記事本寫的。
資料庫架構如下：
庫名：data.mdb
表名：info
欄位：id 、企業名稱、住址、法定代理人…（這個省略號是等等的意思）
一、回饋頁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="確定">確定
<go href="qycx.asp" method="post">
<postfield name="qycx" value="$qycx"/>
</go>
</anchor>
<br/><br/>
上饒工商資訊網
</p>
</card>
</wml>
二、訊息接收頁面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="企業名稱like '%"&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&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%>
<%qymc=rs("企業名稱")
id=rs("id")
%>
<a href="qycx2.asp?id=<%Response.write id%>" ><%Response.write qymc%></a>
<br/>
<%
rs.movenext
loop
rs.close
%>
<br/><br/>
上饒工商資訊網
</p>
</card>
</wml>
<% Function uni(Chinese)
For i = 1 to Len (Chinese)
a=Mid(Chinese, i, 1)
uni=uni & "&#x" & Hex(Ascw(a)) & ";"
next
End Function
%>
=================================================
第二點評：看到這裡，我有點汗，剛開始以「企業名稱」做為關鍵字提交，後來才想到以ID為關鍵字進行查詢避免了漢字提交的問題。這麼基礎一個問題，我居然琢磨了大半天。這裡根據hello.asp提交的「企業名稱」關鍵字查詢得到所有「企業名稱」欄位中含有該關鍵字的企業全名（以免重複），做一個列表，點擊將入第三個頁面，即該企業詳細資料。
三、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">
<%
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")
%>
<wml>
<card id="qycx3" title="上饒工商資訊網">
<p>
<%
name=request.querystring("id")
sql="select * from info where id="&name&""
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
do while not rs.eof
%>
<%qymc=rs("企業名稱")%>
企業名稱：<%Response.write qymc%>
<br/>
<%zs=rs("住所")%>
住址:<%Response.write zs%>
<br/>
<%fddb=rs("法定代理人")%>
法定代理人:<%Response.write fddb%>
<br/>
<%zczb=rs("註冊資本")%>
註冊資本:<%
if left(zczb,1)="." then
Response.write "0"
else
end if
Response.write zczb%>萬元
<br/>
<%qylx=rs("企業類型")%>
企業類型:<%Response.write qylx%>
<br/>
<%jyfw=rs("營業範圍")%>
經營範圍:<%Response.write jyfw%>
<br/>
<%zcrq=rs("成立日期")%>
註冊日期:<%Response.write zcrq%>
<br/>
<%
rs.movenext
loop
%>
<br/><br/>
上饒工商資訊網-End
<br/>
<a href="hello.asp">回</a>
</p>
</card>
</wml>
=====================
OK,完成查詢顯示企業詳細資料！
寫得不好，不要罵我。嘿嘿，歡迎喜歡WAP的朋友可以跟我多交流，指導一下！ QQ:18185813