欧美黑人巨大硬猛性,开心激情网激情五月天

初試WAP之wml＋ASP查詢

搞了這么多年計(jì)算機(jī)，第一次寫文章到網(wǎng)上來(lái)！見(jiàn)笑了
程序目的：工作需要，查詢企業(yè)注冊(cè)資料的朋友太多了，省得麻煩，在網(wǎng)站上增加了查詢功能，居然有人說(shuō)沒(méi)有電腦，沒(méi)電腦也該有個(gè)手機(jī)吧。用手機(jī)查詢這樣隨時(shí)隨地都行，說(shuō)干就干，做一個(gè)WAP查詢，全用記事本寫的。
數(shù)據(jù)庫(kù)結(jié)構(gòu)如下：
庫(kù)名：data.mdb
表名：info
字段：id 、企業(yè)名稱、住所、法定代表人……（這個(gè)省略號(hào)是等等的意思）
一、反饋?lái)?yè)面　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="上饒工商信息網(wǎng)">
p>
請(qǐng)輸入查詢資料input name="qycx" type="text" maxlength="16" />
anchor title="確定">確定
go href="qycx.asp" method="post">
postfield name="qycx" value="$qycx"/>
/go>
/anchor>
br/>br/>
上饒工商信息網(wǎng)
/p>
/card>
/wml>
二、信息接收　頁(yè)面 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="上饒工商信息網(wǎng)">
p>
%
qycx=request.FORM("qycx")
cx="企業(yè)名稱 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("企業(yè)名稱")
id=rs("id")
%>
a href="qycx2.asp?id=%Response.write id%>" >%Response.write qymc%>/a>
br/>
%
rs.movenext
loop
rs.close
%>
br/>br/>
上饒工商信息網(wǎng)
/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
%>
=================================================
第二點(diǎn)評(píng)：看到這里，我有點(diǎn)汗，剛開(kāi)始以“企業(yè)名稱”做為關(guān)鍵字提交，后來(lái)才想到以ID為關(guān)鍵字進(jìn)行查詢避免了漢字提交的問(wèn)題。這么基礎(chǔ)一個(gè)問(wèn)題，我居然琢磨了大半天。這里根據(jù)hello.asp提交的“企業(yè)名稱”關(guān)鍵字查詢得到所有“企業(yè)名稱”字段中含有該關(guān)鍵字的企業(yè)全稱（以免重復(fù)），做一個(gè)列表，點(diǎn)擊將入第三個(gè)頁(yè)面，即該企業(yè)詳細(xì)資料。
三、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="上饒工商信息網(wǎng)">
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("企業(yè)名稱")%>
企業(yè)名稱：%Response.write qymc%>
br/>
%zs=rs("住所")%>
住所:%Response.write zs%>
br/>
%fddb=rs("法定代表人")%>
法定代表人:%Response.write fddb%>
br/>
%zczb=rs("注冊(cè)資本")%>
注冊(cè)資本:%
if left(zczb,1)="." then
Response.write "0"
else
end if
Response.write zczb%>萬(wàn)元
br/>
%qylx=rs("企業(yè)類型")%>
企業(yè)類型:%Response.write qylx%>
br/>
%jyfw=rs("經(jīng)營(yíng)范圍")%>
經(jīng)營(yíng)范圍:%Response.write jyfw%>
br/>
%zcrq=rs("成立日期")%>
注冊(cè)日期:%Response.write zcrq%>
br/>
%
rs.movenext
loop
%>
br/>br/>
上饒工商信息網(wǎng)-End
br/>
a href="hello.asp">返回/a>
/p>
/card>
/wml>
=====================
OK,完成查詢顯示企業(yè)詳細(xì)資料！
寫得不好，不要罵我。嘿嘿，歡迎喜歡WAP的朋友可以跟我多交流，指導(dǎo)一下！QQ:18185813

標(biāo)簽：河南沈陽(yáng) 樂(lè)山新疆長(zhǎng)治上海滄州紅河

巨人網(wǎng)絡(luò)通訊聲明：本文標(biāo)題《初試WAP之wml＋ASP查詢》，本文關(guān)鍵詞；如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問(wèn)題，煩請(qǐng)?zhí)峁┫嚓P(guān)信息告之我們，我們將及時(shí)溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò)，涉及言論、版權(quán)與本站無(wú)關(guān)。

初試WAP之wml＋ASP查詢

QQ咨詢

電話咨詢