JiLu.Asp
资源名称:4.rar [点击查看]
上传用户:zhbanny
上传日期:2020-11-04
资源大小:161k
文件大小:2k
源码类别:
手机WAP编程
开发平台:
ASP/ASPX
- <!--#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
- %>