初試WAP之wml+ASP查詢

來源:互聯網
上載者:User

程式目的:工作需要,查詢企業註冊資料的朋友太多了,省得麻煩,在網站上增加了查詢功能,居然有人說沒有電腦,沒電腦也該有個手機吧。用手機查詢這樣隨時隨地都行,說幹就幹,做一個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




相關文章

Beyond APAC's No.1 Cloud

19.6% IaaS Market Share in Asia Pacific - Gartner IT Service report, 2018

Learn more >

Apsara Conference 2019

The Rise of Data Intelligence, September 25th - 27th, Hangzhou, China

Learn more >

Alibaba Cloud Free Trial

Learn and experience the power of Alibaba Cloud with a free trial worth $300-1200 USD

Learn more >

聯繫我們

該頁面正文內容均來源於網絡整理,並不代表阿里雲官方的觀點,該頁面所提到的產品和服務也與阿里云無關,如果該頁面內容對您造成了困擾,歡迎寫郵件給我們,收到郵件我們將在5個工作日內處理。

如果您發現本社區中有涉嫌抄襲的內容,歡迎發送郵件至: info-contact@alibabacloud.com 進行舉報並提供相關證據,工作人員會在 5 個工作天內聯絡您,一經查實,本站將立刻刪除涉嫌侵權內容。