ASP显示记录问题.请高手帮下忙。

来源:百度知道 编辑:UC知道 时间:2024/06/05 14:02:56
我一个页面有如下代码,读取表里的数据,可要怎样能让他一行显示一条记录。能显示出表格么,格式如下:
id username domainsname pending/paid
<% Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from Domains"
rs.open sql,conn,1,1
%>
<body>
<%if rs.EOF and rs.BOF then
response.write ("No Domains")
else
Do Until rs.EOF
response.write("id:"& rs("G_domainsid"))
response.write("<br>Username:"& rs("username"))
response.write("<br>Domainsname:"& rs("G_domainsname"))
response.write("<br>Pending:"& rs("G_pending"))
response.write("<br>Paid:"& rs("G_paid"))
response.write("<hr>")
rs.MoveNext
Loop
end if%>
2楼的高手,您的代码可以用,但是怎样让它显示出表格。现在的情况是只有数据,想让它有个表格

<% Set rs = Server.CreateObject("ADODB.Recordset")
sql="select * from Domains"
rs.open sql,conn,1,1
%>
<body>
<%if rs.EOF and rs.BOF then
response.write ("No Domains")
else
response.write("<table width='100%' border='0' cellspacing='0' cellpadding='0'><tr><td>id </td><td>username </td><td>domainsname </td><td>pending/paid</td></tr>")
Do Until rs.EOF

response.write("<tr><td>"&rs("G_domainsid")&"</td><td>"&rs("username")&"</td><td>"&rs("G_domainsname")&"</td><td>"&rs("G_pending")&"/"&rs("G_paid")&"</td></tr>"

rs.MoveNext
Loop
response.write("</table>")
end if