多媒体编程

开发平台：

ASP/ASPX

err.asp：源码内容

							<!--#include file="users.asp" -->
<!--#include file="config.asp" -->
<!--#include file="../md5.asp" -->
<!--#include file="cookies.asp" -->
<%
		if rs4("boolConfig")=False then
			Response.Redirect "index.asp"
		end if
	end if
	rs.close
	set rs=nothing
end if
%>
<!--#include file="function.asp" -->
<!--#include file="code.asp" -->
<!--#include file="first.asp" -->
<table border=0 cellspacing=0 style='border-collapse:collapse' width=735 height=233 cellpadding=3>
<tr>
<td width=185 valign=top>
<!--#include file="inc.asp" -->
</td>
<td width=550 valign=top>
<table width="100%" border="0" cellpadding="2" cellspacing="1" bgcolor="#000000">
  <tr align="center"> 
    <td width="15%" bgcolor="#EFEFEF">记录</td>
    <td width="25%" bgcolor="#EFEFEF">时间</td>
    <td width="20%" bgcolor="#EFEFEF">ＩＰ</td>
    <td width="40%" bgcolor="#EFEFEF">事件</td>
  </tr>
<%
if Request.QueryString("post")="del" then
	conn.execute("delete from cookies")
end if
Set rs =Server.CreateObject("ADODB.Recordset")
sql="select * from cookies order by howtime desc"
rs.open sql,conn,1,1
if rs.eof then
	response.write("<tr align=""center"" bgcolor=""#FFFFFF"">"& vbCRLF & _ 
					"<td colspan=""4"">还没有日志内容</td>"& vbCRLF & _ 
					"</tr>")
else
	do while not rs.eof
		response.write("<tr align=""center"" bgcolor=""#FFFFFF"">"& vbCRLF & _ 
						"<td width=""15%"">"& rs("admin") &"</td>"& vbCRLF & _ 
						"<td width=""25%"">"& rs("howtime") &"</td>"& vbCRLF & _ 
						"<td width=""20%""><a href=userip.asp?ip="& rs("ipaddress") &" alt=""点击进行IP操作"">"& rs("ipaddress") &"</a></td>"& vbCRLF & _ 
						"<td width=""40%"">"& rs("whatdo") &"</td>"& vbCRLF & _ 
						"</tr>")
		rs.movenext
	loop
end if
rs.close
set rs=nothing
response.write("<tr align=""center"" bgcolor=""#FFFFFF"">"& vbCRLF & _ 
				"<td colspan=""4""><a href=err.asp?post=del onclick=""{if(confirm('您确定执行的操作吗?')){return true;}return false;}"">清空日志</a></td>"& vbCRLF & _ 
				"</tr>")
%>
</table>
</td>
</tr>
</table>
<br><hr width=735>
<center>

						