我写了个搜索数据库的代码，可是怎么搞也实现不了，哪位大侠帮我看看是哪里出了错，小弟感激不尽！！！
<%setconn=Server.CreateObject("ADODB.Connection")connstr="provider=Microsoft.ACE.OLED...
<%
set conn = Server.CreateObject("ADODB.Connection")
connstr = "provider=Microsoft.ACE.OLEDB.12.0;data source="&Server.MapPath("db11.mdb")&""
conn.Open.connstr
%>
<%
Dim c01
c01=Request.QueryString("textfield")
Set rs = Server.CreateObject("ADODB.Recordset")
IF c01<>"" then
sql = "select * from 111 where "歌名" like '%"&"c01"&"%'"
rs.Open sql,conn,1,3
else
response.write "请认真填写信息"
response.end
If rs.eof or rs.bof Then
Response.Write("没有查询到您所要的信息！")
Response.End()
Else
Response.Write("大家都好。")
Response.End()
Do while not rs.eof
rs.movenext
Loop
End If
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>search</title>
</head>
<body>
<form action="" method="get" name="form1" target="_top">
<input type="text" name="textfield">
<input type="submit" name="Submit" value="提交">
</form>
</body>
</html> 展开
set conn = Server.CreateObject("ADODB.Connection")
connstr = "provider=Microsoft.ACE.OLEDB.12.0;data source="&Server.MapPath("db11.mdb")&""
conn.Open.connstr
%>
<%
Dim c01
c01=Request.QueryString("textfield")
Set rs = Server.CreateObject("ADODB.Recordset")
IF c01<>"" then
sql = "select * from 111 where "歌名" like '%"&"c01"&"%'"
rs.Open sql,conn,1,3
else
response.write "请认真填写信息"
response.end
If rs.eof or rs.bof Then
Response.Write("没有查询到您所要的信息！")
Response.End()
Else
Response.Write("大家都好。")
Response.End()
Do while not rs.eof
rs.movenext
Loop
End If
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>search</title>
</head>
<body>
<form action="" method="get" name="form1" target="_top">
<input type="text" name="textfield">
<input type="submit" name="Submit" value="提交">
</form>
</body>
</html> 展开
2个回答
展开全部
错了很多处啊，并且判断语句逻辑混乱。
给你改好了。
<%
set conn = Server.CreateObject("ADODB.Connection")
connstr = "provider=Microsoft.ACE.OLEDB.12.0;data source="&Server.MapPath("inc/data.mdb")&""
conn.Open connstr
%>
<%
Dim c01
c01=Request.QueryString("textfield")
IF c01<>"" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from 111 where 歌名like '%"&c01&"%'"
rs.Open sql,conn,1,3
If rs.eof or rs.bof Then
Response.Write("没有查询到您所要的信息！")
Response.End()
Else
Response.Write("大家都好。")
Response.End()
Do while not rs.eof
rs.movenext
Loop
End If
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>search</title>
</head>
<body>
<form action="" method="get" name="form1" target="_top">
<input type="text" name="textfield">
<input type="submit" name="Submit" value="提交">
</form>
</body>
给你改好了。
<%
set conn = Server.CreateObject("ADODB.Connection")
connstr = "provider=Microsoft.ACE.OLEDB.12.0;data source="&Server.MapPath("inc/data.mdb")&""
conn.Open connstr
%>
<%
Dim c01
c01=Request.QueryString("textfield")
IF c01<>"" then
Set rs = Server.CreateObject("ADODB.Recordset")
sql = "select * from 111 where 歌名like '%"&c01&"%'"
rs.Open sql,conn,1,3
If rs.eof or rs.bof Then
Response.Write("没有查询到您所要的信息！")
Response.End()
Else
Response.Write("大家都好。")
Response.End()
Do while not rs.eof
rs.movenext
Loop
End If
End If
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>search</title>
</head>
<body>
<form action="" method="get" name="form1" target="_top">
<input type="text" name="textfield">
<input type="submit" name="Submit" value="提交">
</form>
</body>
更多追问追答
追问
看起来你也没改什么啊，就改了一个地方，connstr前面我本来就用的是空格，不行啊，所以我才改成"."的，逻辑你也没改啊，我本来就是这样的啊，对了，inc/data.mdb这个地方你改了，这应该就是我数据库的地址吧，我上面没错啊，inc是什么意思，望指教。
追答
inc/data.mdb
你改回你原来的就行了，那是我测试用的，后来忘记改回来了。
conn.Open.connstr
是肯定错误的，那个点要改成空格。
conn.Open connstr
sql = "select * from 111 where 歌名like '%"&c01&"%'"
这句也错了，这是我给你改过的，你原来里面多了两个引号。
逻辑上算不上错误，只是非常混乱，改不改都行（如果你认为你原来的逻辑没问题的话）。
还有什么自己不多试试呢，测试ASP程序对电脑是没有任何损伤的，自己动手比问别人一百都强，重要错误我都给你改好了，你自己跟据自己情况多调试都行了。
本回答由提问者推荐
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
