28,390
社区成员
发帖
与我相关
我的任务
分享帮我看看ASP代码有错没有,指出错误的有分!
<%
Set conn = Server.CreateObject("ADODB.Connection")
on Error Resume Next
'path = "Driver ={SQL Server}; Server = ice; Database = gs; UID =sa; PWS = sa"
'conn.open path
conn.open DNS="gsrlzy"
%>
<html>
<head>
<meta HTTP-EQUIV="Content-Type" Content="text-html; charset=gb2312">
<title>数据连接</title>
</head>
<body>
<table width="100%" border=1 align="center" bgcolor="#ffffff">
<%
set rs = Server.CreateObject("")
set rs = Server.CreateObject("ADODB.Recordset")
rs.open jbxx,conn,1,1
if not rs.eof then
rs.MoveFirst
do While Not rs.eof
Response.write "<TR>"
for i=0 to rs.fields.count-1
Response.write "<TD>" & rs.Fields(i).value & "</TD>"
next
Response.write "</TR>"
rs.movenext
loop
end if
%>
</table>
</body>
<%
rs.close
set rs=nothing
%>
</html>
Set conn = Server.CreateObject("ADODB.Connection")
on Error Resume Next
'path = "Driver ={SQL Server}; Server = ice; Database = gs; UID =sa; PWS = sa"
'conn.open path
conn.open DNS="gsrlzy"
%>
<html>
<head>
<meta HTTP-EQUIV="Content-Type" Content="text-html; charset=gb2312">
<title>数据连接</title>
</head>
<body>
<table width="100%" border=1 align="center" bgcolor="#ffffff">
<%
set rs = Server.CreateObject("")
set rs = Server.CreateObject("ADODB.Recordset")
rs.open jbxx,conn,1,1
if not rs.eof then
rs.MoveFirst
do While Not rs.eof
Response.write "<TR>"
for i=0 to rs.fields.count-1
Response.write "<TD>" & rs.Fields(i).value & "</TD>"
next
Response.write "</TR>"
rs.movenext
loop
end if
%>
</table>
</body>
<%
rs.close
set rs=nothing
%>
</html>
...全文
请发表友善的回复…
发表回复
tigerwen01 2003-04-21
- 打赏
- 举报
把set rs = Server.CreateObject("")删掉，运行一下，看有没有问题。
jobine 2003-04-21
- 打赏
- 举报
1.conn.open DSN="gsrlzy"
2.
'set rs = Server.CreateObject("")
set rs = Server.CreateObject("ADODB.Recordset")
3.
jbxx=???
rs.open jbxx,conn,1,1
2.
'set rs = Server.CreateObject("")
set rs = Server.CreateObject("ADODB.Recordset")
3.
jbxx=???
rs.open jbxx,conn,1,1
cqfeng 2003-04-21
- 打赏
- 举报
你运行一下不就知道有没有错了吗,不必这么累吧
