
asp+access如何实现简单搜索
1个回答
展开全部
<form action="你的查询显示结果页面.asp" Method="POST" id="form1" name="form1">
<TABLE style="margin: 15 0 10 0px" width="629">
<TR>
<TD align="right">
<table>
<tr>
<td>
输入产品型号:
</td>
<td style="padding: 0 0 0 3px"><input type="text" name="Find" value="" style="width:160px"></td>
<td>
<input type="submit" name="Submit" value="搜索">
</td>
</tr>
</table>
</TD>
</TR>
</TABLE>
</form>
===================================================================下面的页面是显示查询结果的页面:
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("example3.mdb")
%> '数据库存连接
dim search,word,exec
word =trim(request.form("Find"))'关键字
if word="" then
response.Write("<script language='javascript'>window.alert('请输入您要搜索的关键字');history.back(-1);</script>")
response.End()
end if
exec="select * from 数据库表名 where title like '%"&word&"%' order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1'如果需要更新记录最后的"1"改成"3"
%>
<% if rs.eof and rs.bof then
response.write "<script language=""javascript""> "
response.write "alert(""记录不存在!""); " response.write "top.location='new_ish_news.asp';"
response.write "</script> "
response.End()
else
response.write rs("title(这是产品名称)")%>
如需链接加个<a href="">就可以了.
<TABLE style="margin: 15 0 10 0px" width="629">
<TR>
<TD align="right">
<table>
<tr>
<td>
输入产品型号:
</td>
<td style="padding: 0 0 0 3px"><input type="text" name="Find" value="" style="width:160px"></td>
<td>
<input type="submit" name="Submit" value="搜索">
</td>
</tr>
</table>
</TD>
</TR>
</TABLE>
</form>
===================================================================下面的页面是显示查询结果的页面:
<%
set conn=server.createobject("adodb.connection")
conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("example3.mdb")
%> '数据库存连接
dim search,word,exec
word =trim(request.form("Find"))'关键字
if word="" then
response.Write("<script language='javascript'>window.alert('请输入您要搜索的关键字');history.back(-1);</script>")
response.End()
end if
exec="select * from 数据库表名 where title like '%"&word&"%' order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open exec,conn,1,1'如果需要更新记录最后的"1"改成"3"
%>
<% if rs.eof and rs.bof then
response.write "<script language=""javascript""> "
response.write "alert(""记录不存在!""); " response.write "top.location='new_ish_news.asp';"
response.write "</script> "
response.End()
else
response.write rs("title(这是产品名称)")%>
如需链接加个<a href="">就可以了.
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询