jilu.asp

来自「支持IE 手机同步访问的WAP论坛社区程序 很不错」· ASP 代码 · 共 55 行

<!--#Include File="../Inc/Head.Asp"--><%
Private FangWen
Set FangWen=New xkon_FangWen
	FangWen.FangWen()
	FangWen.JiLu()
Set FangWen=Nothing
Private c,s
Set c=New xkon_Response
Set s=New xkon_Request
	Private Sub LieBiao()
		Dim Cn1,p,i
		p=s.QueryString("p")
		If p="" Then
			p=1
		Else
			p=Clng(p)
		End If
		Call OpenData()
			Set Cn1=Server.CreateObject("Adodb.Recordset")
			Cn1.Open "Select * From RiZi Order By ID Desc",Conn,1,1
			Cn1.PageSize=20
			If Not Cn1.Eof Then
				Cn1.AbsolutePage=p
			End If
			c.Write("<table width=100% ><tr><td>ID</td><td>操作</td><td>管理员</td><td>时间</td><td>IP</td></tr>")
			For i=1 To 20
				If Cn1.Eof Then Exit For
				c.Write("<tr><td>"&Cn1("ID")&"</td><td>"&Cn1("Word")&"</td><td>"&Cn1("Admin")&"</td><td>"&Cn1("ShiJian")&"</td><td>"&Cn1("IP")&"</td></tr>")
				Cn1.MoveNext
			Next
			c.Write("</table>")
			Call CPage(Cn1.PageCount,p,"JiLu.Asp")
			Cn1.Close
			Set Cn1=Nothing
		Call CloseData()
	End Sub
	Private Sub Delete()
		Call OpenData()
			Conn.Execute("Delete From RiZi")
			Call JiLu("清空管理记录")
		Call CloseData()
	End Sub
	Call H_Title("管理记录")
	If s.QueryString("s")="Delete" Then
		Call Delete()
	Response.Write("<script language=javascript>location.href=""JiLu.Asp"";</script>")
	Response.End()
	End If
	Call LieBiao()
	c.Writeln("<a href=""JiLu.Asp?S=Delete"" onClick=""if(confirm('确认操作')){return true;}else{return false;}"">清空管理记录</a>")
	c.Write("<a href=""ShouYe.Asp"">返回后台首页</a>")
	Call H_End()
Set c=Nothing
Set s=Nothing
%>