ASP 显示数据库表中的字段代码问题?
setrs=Server.CreateObject("ADODB.Recordset")Sql="select*from查询数据库表中的字段"rs.opensql,Con...
set rs=Server.CreateObject("ADODB.Recordset")
Sql="select * from 查询数据库表中的字段 "
rs.open sql,Conn,1,1
if rs.bof and rs.eof then
Response.Write "没找到您要查询的数据,请确认姓名和班级是否正确<a href='./'>返回继续查询</a> "
Response.End
else
Response.Write"您查询的结果如下:<hr><br>"
end if
j=rs.Fields.count
Response.Write"<table width=100% border=1 cellspacing=0 cellpadding=5 bordercolor='#999999'>"
'字段输出
For i=2 to (j-1)
'从2开始是省掉id及不必要的数据
Response.Write("<th>" & rs.Fields(i).Name & "</th>")
Next
'数据输出
Do while not Rs.Eof
temp = "<tr>"
For n = 2 to j - 1
'同上
temp = temp & "<td> " & rs.Fields(n).Value & "</td>"
Next
Response.Write temp & "</tr>"
rs.movenext
Loop
这段代码可以查询 数据库表中的字段 但是这要自己输入数据库表来查询
如何改那个代码可以 让这里实现呢?? 展开
Sql="select * from 查询数据库表中的字段 "
rs.open sql,Conn,1,1
if rs.bof and rs.eof then
Response.Write "没找到您要查询的数据,请确认姓名和班级是否正确<a href='./'>返回继续查询</a> "
Response.End
else
Response.Write"您查询的结果如下:<hr><br>"
end if
j=rs.Fields.count
Response.Write"<table width=100% border=1 cellspacing=0 cellpadding=5 bordercolor='#999999'>"
'字段输出
For i=2 to (j-1)
'从2开始是省掉id及不必要的数据
Response.Write("<th>" & rs.Fields(i).Name & "</th>")
Next
'数据输出
Do while not Rs.Eof
temp = "<tr>"
For n = 2 to j - 1
'同上
temp = temp & "<td> " & rs.Fields(n).Value & "</td>"
Next
Response.Write temp & "</tr>"
rs.movenext
Loop
这段代码可以查询 数据库表中的字段 但是这要自己输入数据库表来查询
如何改那个代码可以 让这里实现呢?? 展开
1个回答
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询