UC知道关于ASP连接数据库问题?
来源：百度知道 编辑：UC知道 时间：2024/05/10 02:54:20
<%
Dim Rs,SQL
Set Rs=Server.CreateObject("adodb.recordset")
Sql="Select ID,zbgb from [gb]"
Rs.open sql,conn,1,1
if Rs.eof or Rs.bof then
Response.write"没有记录"
else
Do while not(Rs.eof or rs.bof)
Response.write Rs(1)&" <a href='del.asp?ID="&Rs(0)&"' target='_blank'>删除</a> <a href='modify.asp?ID="&Rs(0)&"' target='_blank'>修改</a><br>"
Rs.movenext
Loop
end if
Set Rs=nothing
%>
结果测试提示:
错误类型：
Microsoft JET Database Engine (0x80040E10)
至少一个参数没有被指定值。
/gk/topen.asp, 第 5 行
请高手帮我看一下!
Dim Rs,SQL
Set Rs=Server.CreateObject("adodb.recordset")
Sql="Select ID,zbgb from [gb]"
Rs.open sql,conn,1,1
if Rs.eof or Rs.bof then
Response.write"没有记录"
else
Do while not(Rs.eof or rs.bof)
Response.write Rs(1)&" <a href='del.asp?ID="&Rs(0)&"' target='_blank'>删除</a> <a href='modify.asp?ID="&Rs(0)&"' target='_blank'>修改</a><br>"
Rs.movenext
Loop
end if
Set Rs=nothing
%>
结果测试提示:
错误类型：
Microsoft JET Database Engine (0x80040E10)
至少一个参数没有被指定值。
/gk/topen.asp, 第 5 行
请高手帮我看一下!
<%
Dim Rs,SQL
Set Rs=Server.CreateObject("adodb.recordset")
Sql="Select ID,zbgb from [gb]"
Rs.open sql,conn,1,1
改为
<%
Dim Rs,SQL,conn
set conn=server.CreateObject("adodb.connection")
conn.provider="sqloledb"
ProvStr ="driver={SQL server};server=(服务器名);uid=用户名;pwd=;database=数据库名"
Conn.open ProvStr
Set Rs=Server.CreateObject("adodb.recordset")
Sql="Select ID,zbgb from [gb]"
Rs.open sql,conn,1,1