新手问题，显示数据表内容！

[szgw]

以下是连接数据库并且显示各字段内容的 a.asp 但就是不能显示出来，即在HTML中不知道怎么弄才能显示，我是新手，兴趣是很重要的，请各位大哥帮一把吧！！！

dim conn,re
'SqlLocalName ="127.0.0.1" '连接IP
'SqlUsername ="sa" '用户名
'SqlPassword ="" '用户密码
'SqlDatabaseName="hotel" '数据库名
'ConnStr = "Provider=Sqloledb; User ID=" & SqlUsername & "; Password=" & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source=" & SqlLocalName & ";"
'set conn=server.CreateObject("ADODB.connection")
'set re=server.CreateObject("ADODB.recordset")
'conn.open connstr
'sql="select * from fj"
're=conn.execute(sql)

'asp与sql server 数据库的连接

'连接数据库————————————————————————————
set conn=server.createobject("adodb.connection")
Connstr="Provider=SQLOLEDB;Data Source=127.0.0.1;UID=sa;PWD=;DataBase=hotel"
'打开数据库——————————————————————————————————
conn.open connstr
'写数据查询语句————————————————————————
set re=conn.execute("select * from fj")
'输出查询结果——————————————————————————
if re.recordcount <> 0 then
response.write "共有" & re.recordcount & "条记录！"
end if


response.write"<table border=1>"
TD="<td>"
TR="tr>"
for i=0 to re.fields.count-1
response.write TD & re.fields(i).name
next
reponse.write TR
do while not re.eof
for i=0 to re.fields.count-1
response.write TD & re.fields(i).value
next
response.write TR
re.movenext
loop
response.write "</table>"
re.close
conn.close
%>

[rexsp]

那到底显示了什么效果出来了

[hxn8203]

语法很混乱呀，只有<td><tr>，没有</td></tr>，是不是re.recordcount显示不出来？

[szgw]

现在没有显示， 不知如何才能让他显示
如我在一个叫 b.htm 的网页中点击一个SUBMIT1 就会出来这张表！！
如何弄， 谢谢各位大哥

[possible_Y]

response.write"<table border=1><tr>"
for i=0 to re.fields.count-1
response.write "<td>" & re.fields(i).name & "</td>"
next
reponse.write "</tr>"
do while not re.eof
reponse.write "<tr>"
for i=0 to re.fields.count-1
response.write "<td>" & re.fields(i).value & "</td>"
next
reponse.write "</tr>"
re.movenext
loop
response.write "</table>"
re.close
conn.close

[vbcjpb]

你到底用那种方式连接数据库啊！用ASP连接DBF、DBC、MDB、Excel、SQL Server型数据库的方法：
一、ASP的对象存取数据库方法
在ASP中，用来存取数据库的对象统称ADO（Active Data Objects），主要含有三种对象：Connection、Recordset 、Command
Connection：负责打开或连接数据
Recordset：负责存取数据表
Command：负责对数据库执行行动查询命令

二、连接各数据库的驱动程序
连接各数据库可以使用驱动程序，也可以使用数据源，不过我建议大家使用驱动程序，因为使用驱动程序非常方便、简单，而使用数据源比较麻烦。

ODBC链接

适合数据库类型 链接方式
access "Driver={microsoft access driver(*.mdb)};dbq=*.mdb;uid=admin;pwd=pass;"
dBase "Driver={microsoft dbase driver(*.dbf)};driverid=277;dbq=------------;"
Oracle "Driver={microsoft odbc for oracle};server=oraclesever.world;uid=admin;pwd=pass;"
MSSQL server "Driver={sql server};server=servername;database=dbname;uid=sa;pwd=pass;"
MS text "Driver={microsoft text driver(*.txt; *.csv)};dbq=-----;extensions=asc,csv,tab,txt;Persist SecurityInfo=false;"
Visual Foxpro "Driver={microsoft Visual Foxpro driver};sourcetype=DBC;sourceDB=*.dbc;Exclusive=No;"
MySQL "Driver={mysql};database=yourdatabase;uid=username;pwd=yourpassword;option=16386;"


OLEDB链接

适合的数据库类型 链接方式
access "Provider=microsoft.jet.oledb.4.0;data source=your_database_path;user id=admin;password=pass;"
Oracle "Provider=OraOLEDB.Oracle;data source=dbname;user id=admin;password=pass;"
MS SQL Server "Provider=SQLOLEDB;data source=machinename;initial catalog=dbname;userid=sa;password=pass;"
MS text "Provider=microsof.jet.oledb.4.0;data source=your_path;Extended Properties'text;FMT=Delimited'"


而我们在一般情况下使用Access的数据库比较多，在这里我建议大家连接Access数据库使用下面的方法：

dim conn
set conn = server.createobject("adodb.connection")
conn.open = "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("../db/bbs.mdb")

其中../db/bbs.mdb是你的数据库存放的相对路径！如果你的数据库和ASP文件在同一目录下，你只要这样写就可以了：

dim conn
set conn = server.createobject("adodb.connection")
conn.open = "provider=microsoft.jet.oledb.4.0;" & "data source = " & server.mappath("bbs.mdb")

有许多初学者在遇到数据库连接时总是会出问题，然而使用上面的驱动程序只要你的数据库路径选对了就不会出问题了。

http://expert.csdn.net/Expert/topic/2431/2431794.xml?temp=.238949希望对你有帮助

[Tal]

set re=conn.execute("select * from fj")
'输出查询结果——————————————————————————
if re.recordcount <> 0 then
response.write "共有" & re.recordcount & "条记录！"
end if
改为：
set re = server.createobject("adodb.recordset")
re.open "select * from fj",conn,1,1
if not re.eof then
response.write "共有" & re.recordcount & "条记录！"
end if