在线留言
如果您有任何意见或建议，请告诉我们。
<%
dim sql,rs
'set conn=server.createobject("adodb.connection")
'conn.open("DRIVER=Driver do Microsoft Access (*.mdb);UID=admin;pwd=;dbq="&server.mappath("1.mdb"))
set rs=server.createobject("adodb.recordset")
sql="select * from tcdqlymdb where shenhe=true order by id desc"
rs.open sql,myConn,3
rs.pagesize=8 '每页显示数
if request("page")<>"" then
epage=cint(request("page"))
if epage<1 then epage=1
if epage>rs.pagecount then epage=rs.pagecount
else
epage=1
end if
rs.absolutepage=epage
%>
<%
for i=0 to rs.pagesize-1
if rs.bof or rs.eof then exit for
%>
<%
rs.movenext()
next
%>
昵称：<%=rs("name")%> 留言日期：<%=rs("shijian")%>
<%=rs("neirong")%>工作人员回复：<%=rs("huifu")%>