www.gusucode.com > 仿MOP对开式论坛程序 1.0源码程序 > report.asp
<%@language="VBScript"%> <!--#include file="title.asp"--> <% Dim i if Trim(Request.QueryString("username"))<>"" then gbmaduser=Trim(Replace(Request.QueryString("username"),"'","")) contents=contents &"<title>异动报告-"& caption &"</title>"&_ "</head>"&_ "<body>"&_ ""&_ "<table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" class=""tdc"">" if gbmaduser="" then contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">出错</td></tr><tr><td><br>你还没登陆或者已经掉线。<br>请<a href=""login.asp"">登陆</a>,2秒后自动执行<Script Language=""JavaScript"">setTimeout(""location.href='login.asp'"",3000)</script>。<br><br></td></tr>" else contents=contents &"<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">异动报告</td></tr>"&_ "<form name=""user"" method=""get"" action=""report.asp"">"&_ "<tr class=""tds""><td>"&_ "请输入要查看的用户:<input name=""username"" type=""text"" maxlength=""20"" size=""20"" class=""iptwin"" value="""& gbmaduser &"""> "&_ "<input type=""submit"" value=""提交"" class=""out"" onmouseover=""this.className='over'"" onmouseout=""this.className='out'"">"&_ "</td></tr>"&_ "</form>"&_ "<tr class=""toptr""><td class=""tdc"" height=""20"" background="""& theme &"02.gif"">异动列表</td></tr>" if bbsadmin>0 then rs.Open "report Where gbmaduser='"& gbmaduser &"' or handler='"& gbmaduser &"' Order by id Desc",conn,1,1 else rs.Open "Select Top 100 * From report Where gbmaduser='"& gbmaduser &"' or handler='"& gbmaduser &"' Order by id Desc",conn,1,1 end if if rs.Eof then contents=contents &"<tr><td><br>还没任何的异动信息。<br><br></td></tr>" else For i=1 to rs.RecordCount-1 contents=contents &"<tr class=""tds""><td>"& rs("id") &" "& rs("posttime") &" 异动对象:"& rs("gbmaduser") &" 操作:"& rs("handler") &"<br>异动内容:"& rs("matter") &"<br>异动原因:"& rs("cause") &"</td></tr></table><table border=""0"" cellpadding=""0"" cellspacing=""0"" width=""100%"" class=""tdc"">" rs.MoveNext Next contents=contents &"<tr class=""tds""><td>"& rs("id") &" "& rs("posttime") &" 异动对象:"& rs("gbmaduser") &" 操作:"& rs("handler") &"<br>异动内容:"& rs("matter") &"<br>异动原因:"& rs("cause") &"</td></tr>" end if rs.Close end if contents=contents &"</table>"&_ "" %> <!--#include file="bottom.asp"-->