简单ASP站内搜索

来源：百度知道 编辑：UC知道 时间：2024/06/05 02:41:31
第一是搜索页面
a.asp
代码如下
<form name="form1" action="resul.asp">
<input name="name" type="text" id="name">
<input type="submit" name="Submit" value="搜索">
</form>

第二个页面resul.asp
<% '连接数据
dim connstr
connstr="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("ASP.mdb")
set conn = server.createobject("ADODB.Connection")
conn.open connstr
%>
<%
dim rs,sql,name
name=request.Form("name")
set rs=server.CreateObject("adodb.recordset")
sql="select * from ASP where 姓名 like '%"&name&"%'"
rs.open sql,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档<

<form name="form1" action="resul.asp">
<input name="name" type="text" id="name">
<input type="submit" name="Submit" value="搜索">
</form>

第二个页面resul.asp
<% '连接数据
dim connstr
connstr="provider=microsoft.jet.oledb.4.0;data source=" & server.mappath("ASP.mdb")
set conn = server.createobject("ADODB.Connection")
conn.open connstr
%>
<%
dim rs,sql,name
name=request.Form("name")
set rs=server.CreateObject("adodb.recordset")
sql="select * from ASP where 姓名 like '%"&name&"%'"
rs.open sql,conn,1,1
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head&g