正宗地三鲜的家常做法:ASP检索数据库出错
来源:百度文库 编辑:杭州交通信息网 时间:2024/06/06 13:03:54
运行下文出现<%Response.write(Rs.("title"))%>错误的信息
<html>
<head>
<title>ASP数据库检索实例</title>
</head>
<%
Dim Conn
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "by",IUSR_ss,""
Dim sql
Sql= "select *from 帮战表示例"
Dim Rs
Set Rs=Server.CreateObject("ADODB.recordset")
Rs.PageSize=10
Const adOpenkeyset=1
Rs.OpenSql,Conn,adOpenkeyset
<%Response.write(Rs.("title"))%>
%>
<FONT COLOR="#800000"><strong>检索词命中率:<%=Rs.Recordcount%></strong></font><br><br>
<select size=8>
<%
Do while not Rs.eof
%>
<option><%=Rs("title")%></option>
<%
rs.movenext
loop
%>
</select>
<%
Rs.close
Conn.close
setrs = nothing
setconn = nothing
%>
</body>
</html>
<html>
<head>
<title>ASP数据库检索实例</title>
</head>
<%
Dim Conn
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "by",IUSR_ss,""
Dim sql
Sql= "select *from 帮战表示例"
Dim Rs
Set Rs=Server.CreateObject("ADODB.recordset")
Rs.PageSize=10
Const adOpenkeyset=1
Rs.OpenSql,Conn,adOpenkeyset
<%Response.write(Rs.("title"))%>
%>
<FONT COLOR="#800000"><strong>检索词命中率:<%=Rs.Recordcount%></strong></font><br><br>
<select size=8>
<%
Do while not Rs.eof
%>
<option><%=Rs("title")%></option>
<%
rs.movenext
loop
%>
</select>
<%
Rs.close
Conn.close
setrs = nothing
setconn = nothing
%>
</body>
</html>
Rs.OpenSql,Conn,adOpenkeyset
中Open和Sql之间应该有一个空格吧?