<!--#include file="conn.asp"-->
<%

dim objrs ,sql
sql="select proname,date,person,tel from tbbuy"
set objrs =server.createobject("adodb.recordset")

objrs.open sql ,cnn ,1,1

response.write "标题"&objrs("proname")&"<br>"
%>

<table width="748" border="0" align="center">
<tr bgcolor="#CCCCCC">
<td>标题</td>
<td>日期</td>
<td>联系人</td>
<td>联系方式</td>
</tr>
<%
do while not objrs.eof

response.write"<tr><td>"&objrs("proname")&"</td>"
response.write"<td>"&objrs("data")&"</td>"
response write"<td>"&objrs("person")&"</td>"错误 晕，为什么上面一行没有出错啊
response write"<td>"&objrs("tel")&"</td></tr>"

objrs movenext
loop

objrs.close
set objrs=nothing
cnn.close
set cnn=nothing
%>
</table>