100分求通用的取出数据库某个表的所有内容的代码

[bingofei]

求通用的取出数据库某个表的所有内容的代码，输入表名，返回或者直接显示所有纪录内容

[wlm_lm]

Tblname="xxx" '表名
set rs=server.createobject("adodb.recordset")
sql="select * from"&Tblname
rs.open sql,conn,1,1
dim i,j
for i=0 to rs.fields.count-1
response.write rs.fields(i).name '列出所有字段
next
response.write "<br>"
do while not rs.eof
for i=1 to fields.count-1
response.write rs.fields(i).value '列出所有字段相应的数据
next
response.write "<br>"
rs.movenext
loop
rs.close
set rs=nothing
conn.close
set conn=nothing

[rena2003tj]

以access 数据库为例,mytable 为数据库中的表
<form name="form1" action="query.asp" method="post">
<input type="text" name="text1" value="">
<input type="submit" name="submit1" value="查询">
</form>
<%
set condb=server.creatobject("ADODB.Connection")
strcon="Provider=Microsoft.Jet.OLEDB.4.0;DataSource="&_
MaPPath("数据库路径")
condb.open strcon,1
set rs=server.creatobject("ADODB.recordset")
sql="select * from"&mytable
rs.open sql,conn,1,1
%>
<table border=1 bordercolor="#ffdeab" width="80%" align=center cellspacing=0>
<tr>
<% dim i
for i= 0 to rs.fields.count-1
<td><font size="2"><%=rs.fields(i).name%></font></td>
next i
%>
</tr>
<% do while not rs.eof%>
<tr>
<% for i=0 to rs.fields.count-1%>
<td><font size="2"><%=rs.files(i).value%></font></td>
<% next i
rs.movenext
loop
%>
</tr>
</table>
<%
rs.close
set rs=nothing
condb.close
set condb=nothing
%>