<% 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%> |
如对本文有疑问, 点击进行留言回复!!
asp中Request.ServerVariables的参数集合
网友评论