求ASP，acc数据库站内搜索代码
哪位高手能给写个让我学习一下acc数据库bbb.mdb表bbb字段wordURL百度搜的就不要发了十分感谢...
哪位高手能给写个让我学习一下 acc数据库bbb.mdb 表bbb字段word URL 百度搜的就不要发了 十分感谢
展开
展开全部
数据库连接文件 conn.asp
<%
Set objConn = Server.CreateObject("ADODB.Connection")
Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
DBPath = "Data Source=" & Server.MapPath("bbb.mdb")
objConn.Open Provider & DBPath
%>
提交搜索关键字页面 search.html
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<form action="search.asp" method="get" name="form1">
<input value="" type="text" name="keyword"/> <input name="submit" type="submit" value="提交"/>
</form>
</body>
</html>
处理查询，显示结果 search.asp
<!--#include file="conn.asp"-->
<%
if trim(request("keyword"))<>"" then
set rs=server.CreateObject("adodb.recordset")
sql="select word,url from bbb where word = '"&trim(request("keyword"))&"'"
'根据具体要求修改查询语句
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
response.write rs("word")&"-"&rs("url")
'输出查询结果
rs.movenext
loop
else
response.write "没有符合条件的查询"
end if
rs.close
set rs=nothing
end if
%>
<%
Set objConn = Server.CreateObject("ADODB.Connection")
Provider = "Provider=Microsoft.Jet.OLEDB.4.0;"
DBPath = "Data Source=" & Server.MapPath("bbb.mdb")
objConn.Open Provider & DBPath
%>
提交搜索关键字页面 search.html
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>无标题文档</title>
</head>
<body>
<form action="search.asp" method="get" name="form1">
<input value="" type="text" name="keyword"/> <input name="submit" type="submit" value="提交"/>
</form>
</body>
</html>
处理查询，显示结果 search.asp
<!--#include file="conn.asp"-->
<%
if trim(request("keyword"))<>"" then
set rs=server.CreateObject("adodb.recordset")
sql="select word,url from bbb where word = '"&trim(request("keyword"))&"'"
'根据具体要求修改查询语句
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
response.write rs("word")&"-"&rs("url")
'输出查询结果
rs.movenext
loop
else
response.write "没有符合条件的查询"
end if
rs.close
set rs=nothing
end if
%>
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
