<%
SGender=Request.Form("keyword")
if SGender="" then
response.write""
response.end
end if
set conn=Server.CreateObject("ADODB.Connection")
Conn.Open"driver={Microsoft Access Driver (*.mdb)};DBQ="& Server.MapPath("wz.mdb")
sear="'%%"&SGender&"%%'"
SQL="select * from wz where wz.wangzhanmingchen like"&sear
set RS=conn.execute(SQL)
%>
你要搜索的关键字是[<%=SGender%>]
<%
if rs.bof and rs.eof then
response.write("
数据库里没有你要的记录，请在右边重新输入其它关键字查询...")
end if
%>
|
|
|
|
<%do while NOT RS.EOF%>
"><%=rs("wangzhanmingchen")%>
<%Response.Write(" "&RS("information")&"
")%>
<%
RS.MoveNext
loop
RS.Close
conn.close
%>
<%
' 建立Connection 对象
Set conn = Server.CreateObject("ADODB.Connection")
Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
DBPath = "Data Source=" & Server.MapPath( "wz.mdb" )
sear="'%%"&SGender&"%%'"
' 连接数据库
conn.Open Provider & DBPath
Set rs = Server.CreateObject("ADODB.Recordset")
' 打开信息源，参数二为Connection对象
sql = "select * from addlink where addlink.username like"&sear
Rs.Open "addlink", conn, 2, 2
%>
<%do while NOT RS.EOF%>
"><%=rs("username")%>
<%Response.Write(" "&RS("Note")&"
")%>
<%
RS.MoveNext
loop
RS.Close
conn.close
%>
|
