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"-->