<
%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp"-->
<%dim rs,sql
dim time,name,pic,top,ip
set rs=server.createobject("adodb.recordset")
sql="select * from myword order by title desc"
rs.open sql,conn,1,1
time=rs("time")
name=rs("name")
pic=rs("pic")
top=rs("top")
ip=rs("ip")
if rs.eof and rs.bof then
response.write "暂时没有留言"
else
response.write "<html><body><table>"
do while not rs.eof or rs.bof
response.write "<tr><td>"
response.write "来自'"&ip&"'的"
response.write "'"&name&"' 于 '"&time&"'说道"
response.write "'"&word&"'"
response.write "</td></tr>"
loop
end if
response.write "</table>"
response.write "</body></html>"
%>