% '************************************** '** index.asp '** '** 文件说明:留言首页 '** 修改日期:2005-11-02 '************************************** dim currentpage,page_count,Pcount dim totalrec,endpage if Request.QueryString("page")="" then currentPage=1 else currentPage=cint(Request.QueryString("page")) end if if login then pagename="管理留言" else pagename="查看留言" end if call bodySkin() sub pageContent() showMsg() end sub function showMsg() if login then sql="select * from [topic] order by top desc,usertime desc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 else sql="select * from [topic] where checked=1 order by top desc,usertime desc" set rs=server.createobject("adodb.recordset") rs.open sql,conn,1,1 end if if rs.eof and rs.bof then rs.close set rs=nothing errinfo="
<%=usercontent%> |
<%=recontent%> |