% db_path = "zipcode.mdb" Set conn= Server.CreateObject("ADODB.Connection") connstr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="Server.MapPath(db_path) conn.Open connstr %> |
!--#include file="conn.asp" --> % if request.form("submit")="search" then whatzip=request.form("zipcode") Set rs = Server.CreateObject ("ADODB.Recordset") sql = "Select * from zip where zipcode like '%"whatzip"%' " rs.Open sql,conn,1,1 %> % if rs.EOF and rs.BOF then response.write ("未能查到") else Do Until rs.EOF response.write("hr>該地址是:" rs("placename")rs("zipcode")) response.write("br>所在省份是:" rs("province")) rs.MoveNext Loop end if %> br>a href="search.asp">again/a> % rs.close Set rs = Nothing conn.close set conn=Nothing else %> form action="search.asp" method="post"> input type="text" name="zipcode"> input type="submit" name="submit" value="search"> /form> %end if%> |
標(biāo)簽:遼陽 朝陽 平頂山 孝感 防城港 馬鞍山 湖北 四平
巨人網(wǎng)絡(luò)通訊聲明:本文標(biāo)題《ASP編程入門進(jìn)階(二十):ADO組件之查詢數(shù)據(jù)記錄》,本文關(guān)鍵詞 ASP,編程,入門,進(jìn)階,二十,;如發(fā)現(xiàn)本文內(nèi)容存在版權(quán)問題,煩請?zhí)峁┫嚓P(guān)信息告之我們,我們將及時溝通與處理。本站內(nèi)容系統(tǒng)采集于網(wǎng)絡(luò),涉及言論、版權(quán)與本站無關(guān)。