请asp高手帮我看看站内搜索代码的错误在哪

提交页面：<html><head><title>标题自己写</title></head><formaction="search.asp"><inputname="biao... 提交页面：
<html>
<head>
<title>
标题自己写
</title>
</head>
<form action="search.asp">
<input name="biaoti" type="text" id="biaoti">
<input name="search" type=submit value="搜索">
</form>
</html>

search.asp页面如下：
<!--#INCLUDE file="ADOVBS.inc"-->

<%
con="DBQ="+server.mappath("data/#da@ta#@.mdb")+";DefaultDir=;DIRVER={microsoft Access Driver(*.mdb)};"
set mycon=server.createobject("ADODB.CONNECTION")
mycon.open.con %>
<% <%
dim rs,sql,biaoti
biaoti=request.QueryString("biaoti")
set rs=server.CreateObject("adodb.recordset")
sql="select * from content where biaoti like '"&biaoti&"' "
rs.open sql,db,1,1
%>
%>

<html><head><title>查询结果</title></head>
<body bgcolor="#ffffff">
<p align="center"><br>
"统计查询共有<% Response.Write(RS.RecordCount) %>条纪录</p><br>
<div align="center"><center>
<table border="1" align="center" bordercolor="000000" berdorcoorlight="#000000" bordercolordark="#ffffff">
<tr align="center">
<td width="20%" align="center" bgcolor="#ffffff">ID</td>
<td width="60%" align="center" bgcolor="#ffffff">主题</td>
<td width="20%" align="center" bgcolor="#ffffff">查看</td></table>
<table border="1" align="center" bordercolor="000000" berdorcoorlight="#000000" bordercolordark="#ffffff">
<tr align="center">
<!--从数据库提取信息-->
<% while not rs.eof %>
<tr align="center">
<td width="20%" align="center" bgcolor="#ffffff"><% =rs("id") %></td>
<td width="60%" align="center" bgcolor="#ffffff"><% =rs("biaoti") %></td>
<td width="20%" align="center" bgcolor="#ffffff"><a href="<% =rs(wz") %>">GO</a></td>
<% rs.movenext %></tr> <% wend %></table></center></div><% rs.close %>
<% mycon.close %>
"关闭链接
</body></html>

请问错误在哪里，加分，谢谢
删除了多余的%>还是不可以。
不知道啥原因，请高手帮忙 展开
 我来答
4个回答
#合辑# 面试问优缺点怎么回答最加分？
孟子E章
2008-01-15 · 超过96用户采纳过TA的回答
知道小有建树答主
回答量：204
采纳率：0%
帮助的人：157万
我也去答题访问个人页
展开全部
错误,太多了。我昏了。

下面，我全部修改了的...没错。.拷贝就行了

<!--#INCLUDE file="ADOVBS.inc"-->

<%
'On Error Resume next
Dim conn
db="data/#da@ta#@.mdb"

con="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &server.MapPath(""&db&"")"
set mycon=Server.CreateObject("Adodb.Connection")
mycon.open(con)

dim rs,sql,biaoti

biaoti=request("biaoti")

set rs=server.CreateObject("adodb.recordset")
sql="select * from content where biaoti like '%"&biaoti&"%'"
rs.open sql,mycon,1,3
%>

<html><head><title>查询结果</title></head>
<body bgcolor="#ffffff">
<p align="center"><br>

"统计查询共有<% Response.Write(Rs.RecordCount) %>条纪录</p><br>

<div align="center"><center>
<table border="1" align="center" bordercolor="000000" berdorcoorlight="#000000" bordercolordark="#ffffff">
<tr align="center">
<td width="20%" align="center" bgcolor="#ffffff">ID</td>
<td width="60%" align="center" bgcolor="#ffffff">主题</td>
<td width="20%" align="center" bgcolor="#ffffff">查看</td></table>
<table border="1" align="center" bordercolor="000000" berdorcoorlight="#000000" bordercolordark="#ffffff">
<tr align="center">
<!--从数据库提取信息-->
<% do while not rs.eof %>
<tr align="center">
<td width="20%" align="center" bgcolor="#ffffff"><% =rs("id") %></td>
<td width="60%" align="center" bgcolor="#ffffff"><% =rs("biaoti") %></td>
<td width="20%" align="center" bgcolor="#ffffff"><a href="<%=rs("wz")%>">GO</a></td>
<% rs.movenext %>
</tr>
<% loop %></table>
</center>
</div>
<%
rs.close

mycon.close %>
</body></html>
已赞过 已踩过<
你对这个回答的评价是？
评论 收起
百度网友fe63ddb7a
2008-01-15 · TA获得超过222个赞
知道小有建树答主
回答量：519
采纳率：0%
帮助的人：244万
我也去答题访问个人页
展开全部
用这段代码试下

<html>
<head>
<title>
标题自己写
</title>
</head>
<form action="search.asp">
<input name="biaoti" type="text" id="biaoti">
<input name="search" type=submit value="搜索">
</form>
</html>

search.asp页面如下：
<!--#INCLUDE file="ADOVBS.inc"-->

<%
con="DBQ="+server.mappath("data/#da@ta#@.mdb")+";DefaultDir=;DIRVER={microsoft Access Driver(*.mdb)};"
set mycon=server.createobject("ADODB.CONNECTION")
mycon.open.con

dim rs,sql,biaoti
biaoti=request.QueryString("biaoti")
set rs=server.CreateObject("adodb.recordset")
sql="select * from content where biaoti like '%"&biaoti&"%' "
rs.open sql,db,1,1

%>

<html><head><title>查询结果</title></head>
<body bgcolor="#ffffff">
<p align="center"><br>
"统计查询共有<% Response.Write(RS.RecordCount) %>条纪录</p><br>
<div align="center"><center>
<table border="1" align="center" bordercolor="000000" berdorcoorlight="#000000" bordercolordark="#ffffff">
<tr align="center">
<td width="20%" align="center" bgcolor="#ffffff">ID</td>
<td width="60%" align="center" bgcolor="#ffffff">主题</td>
<td width="20%" align="center" bgcolor="#ffffff">查看</td></table>
<table border="1" align="center" bordercolor="000000" berdorcoorlight="#000000" bordercolordark="#ffffff">
<tr align="center">
<!--从数据库提取信息-->
<% while not rs.eof %>
<tr align="center">
<td width="20%" align="center" bgcolor="#ffffff"><% =rs("id") %></td>
<td width="60%" align="center" bgcolor="#ffffff"><% =rs("biaoti") %></td>
<td width="20%" align="center" bgcolor="#ffffff"><a href="<% =rs(wz") %>">GO</a></td>
<% rs.movenext %></tr> <% wend %></table></center></div><% rs.close %>
<% mycon.close %>
"关闭链接
</body></html>
已赞过 已踩过<
你对这个回答的评价是？
评论 收起
196231222
2008-01-15 · TA获得超过584个赞
知道小有建树答主
回答量：562
采纳率：0%
帮助的人：201万
我也去答题访问个人页
展开全部
很简单呀！百分号是没影响的，把他去掉也好。
你把这句biaoti=request.QueryString("biaoti") 改成：biaoti=request.form("biaoti")
然后把这句sql="select * from content where biaoti like '"&biaoti&"' "
改成：
sql="select * from content where biaoti like '%"&biaoti&"%' "
本回答被提问者采纳
已赞过 已踩过<
你对这个回答的评价是？
评论 收起
chuaiguoqing
2008-01-15 · TA获得超过3828个赞
知道大有可为答主
回答量：3065
采纳率：100%
帮助的人：0
我也去答题访问个人页
展开全部
<%
con="DBQ="+server.mappath("data/#da@ta#@.mdb")+";DefaultDir=;DIRVER={microsoft Access Driver(*.mdb)};"
set mycon=server.createobject("ADODB.CONNECTION")
mycon.open.con %>
<% <%
dim rs,sql,biaoti
biaoti=request.QueryString("biaoti")
set rs=server.CreateObject("adodb.recordset")
sql="select * from content where biaoti like '"&biaoti&"' "
rs.open sql,db,1,1
%>
%>
你这怎么那么多<% %>啊？删掉一对！
已赞过 已踩过<
你对这个回答的评价是？
评论 收起
收起 更多回答（2）
推荐律师服务： 若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询

为你推荐：

下载百度知道APP，抢鲜体验
使用百度知道APP，立即抢鲜体验。你的手机镜头里或许有别人想知道的答案。
扫描二维码下载
×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消

京ICP证030173号-1   京网文【2023】1034-029号     ©2025Baidu  使用百度前必读 | 知道协议 | 企业推广

辅 助

模 式