请给出正确代码！！在线等待！！完成就给分！！

jokeboy 2003-08-21 09:44:06

看看我错在什么地方
我的数据库名为test.mdb
表名为：test
要完成的功能是打开数据库并把数据库里面的内容显示出来就可以了
同时要求用ADO方式连接数据库
请给出正确代码，要求是COPY后可以出来正确结果

<%@ language=VBScript%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body>
<%
dim cnn,Provid,CreateMdbRecordset
set cnn=server.createobject("ADODB.connection")
Provid="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\test.mdb"
cnn.open Provid
RsToTable rs
Set rs = conn.Execute( "test" )
%>
<%
Sub RsToTable( rs )

' Part I：输出数据库的“表头”
Response.Write "<CENTER><TABLE BORDER=1>"
Response.Write "<TR BGCOLOR=#00FFFF>"
For i=0 to rs.Fields.Count-1
Response.WRITE "<TD>" & rs.Fields(i).Name & "</TD>"
Next
Response.Write "</TR>"

' Part II：输出数据库的“内容”
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
Wend
Response.Write "</TABLE></CENTER>"
End Sub
%>
</body>
</html>

...全文

34 9 打赏收藏转发到动态举报

写回复

用AI写文章

9 条回复

切换为时间正序

请发表友善的回复…

发表回复

jokeboy 2003-08-21

打赏
举报

请大家把QQ留下好吗
有事我好请教你们啊

chinesun 2003-08-21

打赏
举报

倒！

jokeboy 2003-08-21

打赏
举报

谢谢各位了哦

zurong 2003-08-21

打赏
举报

<%@ language=VBScript%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body>
<%
dim cnn,Provid,CreateMdbRecordset,rs
set cnn=server.createobject("ADODB.connection")
Provid="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\test.mdb"
cnn.open Provid

Set rs = cnn.Execute( "select * from test" )

' Part I：输出数据库的“表头”
Response.Write "<CENTER><TABLE BORDER=1>"
Response.Write "<TR BGCOLOR=#00FFFF>"
For i=0 to rs.Fields.Count-1
Response.WRITE "<TD>" & rs.Fields(i).Name & "</TD>"
Next
Response.Write "</TR>"

' Part II：输出数据库的“内容”
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
Wend
Response.Write "</TABLE></CENTER>"
rs.close
set rs=nothing
cnn.close
set cnn=nothing

%>
</body>
</html>

cpeboy 2003-08-21

打赏
举报

唉我的问题也很头疼帮你顶一下

zurong 2003-08-21

打赏
举报

第2次的为准，另最后加上
rs.close
set rs=nothing
cnn.close
set cnn=nothing

本拉灯 2003-08-21

打赏
举报

RsToTable rs
这个是什么
改成dim rs

sub RsToTable(ByRef rs)还有这里RS没定义改成，这就就可以了

zurong 2003-08-21

打赏
举报

<%@ language=VBScript%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body>
<%
dim cnn,Provid,CreateMdbRecordset
set cnn=server.createobject("ADODB.connection")
Provid="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\test.mdb"
cnn.open Provid

Set rs = cnn.Execute( "select * from test" )

' Part I：输出数据库的“表头”
Response.Write "<CENTER><TABLE BORDER=1>"
Response.Write "<TR BGCOLOR=#00FFFF>"
For i=0 to rs.Fields.Count-1
Response.WRITE "<TD>" & rs.Fields(i).Name & "</TD>"
Next
Response.Write "</TR>"

' Part II：输出数据库的“内容”
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
Wend
Response.Write "</TABLE></CENTER>"

%>
</body>
</html>

zurong 2003-08-21

打赏
举报

<%@ language=VBScript%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>

<body>
<%
dim cnn,Provid,CreateMdbRecordset
set cnn=server.createobject("ADODB.connection")
Provid="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\test.mdb"
cnn.open Provid
Set rs = cnn.Execute( "test" )

' Part I：输出数据库的“表头”
Response.Write "<CENTER><TABLE BORDER=1>"
Response.Write "<TR BGCOLOR=#00FFFF>"
For i=0 to rs.Fields.Count-1
Response.WRITE "<TD>" & rs.Fields(i).Name & "</TD>"
Next
Response.Write "</TR>"

' Part II：输出数据库的“内容”
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
Wend
Response.Write "</TABLE></CENTER>"

%>
</body>
</html>