<% set rs=server.createobject("adodb.recordset") If Not IsObject(conn) Then ConnectionDatabase sql = "select * from LeaveWord where passed=true order by dateandtime desc" rs.open sql,conn,1,1 If Not rs.BOF And Not rs.EOF Then rs.PageSize = 4 mpage=rs.pagecount pageno=clng(request("pageno")) If isempty(pageno) Or cint(pageno)<1 or cint(pageno)>mpage Then pageno=1 End If rs.absolutepage=pageno For i = 1 To 4 If Not rs.EOF Then Dim name,time,content name=rs("name") time=datevalue(rs("DateAndTime")) content=replace(rs("content")," ","") 'idi=rs("classid") %>

[<%=name%>]在<%=time%>留言时说：

<%=content%>

【回复】<% Dim rsReply Set rsReply = server.CreateObject("adodb.recordset") rsReply.open "select top 1 * from Reply where MessageID="&rs("ID"),conn,1,1 If rsReply.eof Then response.write "暂无回复" Else response.write rsReply("RContent") end if rsReply.close Set rsReply = Nothing %>

<% rs.MoveNext End If next Else response.Write "

暂时没有内容！

" End If rs.close Set rs = Nothing %>