|
|
| 问题及建议解答列表 |
<% dim sql,rslist
sql="select * from guestbook where recontent<>'""' order by ID desc"
Set rslist= Server.CreateObject("ADODB.Recordset")
rslist.open sql,conn,1,1
msg_per_page=5 '定义每页显示记录条数
%>
<%
if rslist.eof then
response.write"暂无信息"
else
do while not rslist.eof and rowcount > 0
%>
 |
<% =rslist("content") %>
|
 |
<% =rslist("recontent") %>
|
<%
rowcount=rowcount-1
rslist.movenext
loop
end if
%>
|
<%=listPages("index.asp")%>
|
|
|