BVB Source Codes

Jie Yang v0.6.3 article system Show admin_log.asp Source code

Return Download Jie Yang v0.6.3 article system: download admin_log.asp Source code - Download Jie Yang v0.6.3 article system Source code - Type:.asp
  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
  2. <!--#include file="../../conn/conn.asp" -->
  3. <!--#include file="../admin_check.asp" -->
  4. <!--#include file="../../inc/commoncode.asp" -->
  5. <%
  6. If Not JYAdminLevel(803) Then
  7.         Call ErrorMsg()
  8. End If
  9. %>
  10. <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
  11. <html xmlns="http://www.w3.org/1999/xhtml">
  12. <head>
  13. <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
  14. <title>后台日志管理--<%=sitename%></title>
  15. <link href="../style/style.css" rel="stylesheet" type="text/css" />
  16. </head>
  17. <script language="javascript">
  18. function CheckAll(form)
  19. {
  20.         for (var i=0;i<form.elements.length;i++)
  21.         {
  22.                 var e = form.elements[i];
  23.                 if (e.Name != "chkAll")
  24.            e.checked = form.chkAll.checked;
  25.         }
  26. }
  27. function confirms()
  28. {
  29.         if(confirm("确定要删除吗?"))     
  30.         {
  31.                 document.form1.action="admin_log.asp?action=del";      
  32.         }
  33.         return false;
  34. }
  35. </script>
  36. <body>
  37. <%
  38. dim id,pageshow,action
  39. id=request("id")
  40. pageshow=request("pageshow")
  41. action=Request("action")
  42. select case action
  43.         case "del"
  44.                 call del()
  45.         case else
  46.                 call main()
  47. end select
  48. Sub main()
  49. %>
  50. <table width="98%" align="center" border="0" cellpadding="0" cellspacing="1" bgcolor="#8ED1FF" class="mtab">
  51.   <tr>
  52.     <td colspan="8" class="td28">登录日志</td>
  53.   </tr>
  54.   <tr class="tdcenter" bgcolor="#ECF5FE">
  55.     <td width="8%">全选</td>
  56.     <td width="8%">编号</td>
  57.     <td width="12%">登录帐号</td>
  58.     <td width="13%">登录名称</td>
  59.     <td width="16%">登录ip</td>
  60.     <td width="20%">登录时间</td>
  61.     <td width="12%">管理权限</td>
  62.     <td width="11%">删除</td>
  63.   </tr>
  64. <form name="form1" action="admin_log.asp" method="post">
  65. <%
  66. sql="select * from Article_Adminlog order by L_id desc"
  67. rs.open sql,conn,1,1
  68. linkURL="admin_log.asp"
  69. const maxperpage=18
  70. if not(rs.bof and rs.eof) then  '判别数据表中的记录是否为空
  71.         dim recordtotal  '总记录条数
  72.         dim pagetotal  '总的页数
  73.         recordtotal=rs.recordcount '总的记录条数
  74.         rs.pagesize=maxperpage   '每页显示的最多条数
  75.         pagetotal=rs.pagecount  '总的页数
  76.         if pageshow<>"" and IsNumeric(pageshow) then
  77.                 if pageshow<1 Or Len(pageshow)>10 Then
  78.                         pageshow=1
  79.                 else
  80.                         pageshow=CLng(pageshow)
  81.                 end If
  82.         else
  83.                 pageshow=1
  84.         end If
  85. end if 
  86. if Not(Rs.bof and Rs.eof) then
  87.         Rs.move(Cint(pageshow)-1)*maxperpage,1
  88. for i=1 to Rs.pagesize
  89.         sqla="select * from Article_Admin where A_user='"&rs("A_user")&"'"
  90.         set rsa=Server.CreateObject("ADODB.RecordSet")
  91.         rsa.open sqla,conn,1,1
  92.         if not rsa.eof then
  93.                 adminname=rsa("A_name")
  94.                 admintype=rsa("A_type")
  95.         end if
  96.         Closers(rsa)
  97. %>
  98.   <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#ECF7FE'" bgcolor="#FFFFFF">
  99.     <td align="center"><input name='id' type='checkbox' id="id" value='<%=rs("L_id")%>'></td>
  100.     <td align="center"><%=i%></td>
  101.     <td align="center"><%=rs("A_user")%></td>
  102.     <td align="center"><%=adminname%></td>
  103.     <td>&nbsp;&nbsp;<%=rs("L_ip")%></td>
  104.     <td align="center"><%=rs("L_addtime")%></td>
  105.     <td align="center"><%=admintype%></td>
  106.     <td align="center"><a href='javascript:if(confirm("确定要删除吗?"))location.href="admin_log.asp?action=del&id=<%=rs("L_id")%>"' title="删除信息">删除</a></td>
  107.   </tr>
  108. <%
  109. Rs.movenext
  110. if Rs.eof then exit for
  111. next
  112. %>
  113. <input type="hidden" name="pageshow" value="<%=pageshow%>">
  114. <tr>
  115.   <td colspan="8" align="left" bgcolor="#FFFFFF" class="td30"><input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox">选中本页显示的所有记录&nbsp;<input name="submit" type="submit" class="submit1" value='删除选定的记录' onclick='javascript:confirms();'></td>
  116. </tr>
  117. <tr>
  118.         <td colspan="8" align="right" bgcolor="#FFFFFF" class="tdright"><%Call ShowPage(linkURL,recordtotal,MaxPerPage,true,true,"次相关登录")%></td>
  119. </tr>
  120. <%end if
  121. closers(rs)
  122. %>
  123. </form>
  124. </table>
  125. <%End Sub%>
  126. <%
  127. Sub del()
  128.         if id="" then
  129.                 response.Write "<script>alert(""请选择你要删除的选项!"");location.href=""admin_log.asp"";</script>"
  130.                 response.End()
  131.         else
  132.                 conn.execute("delete from Article_Adminlog where L_id in ("&id&")")            
  133.                 response.Redirect ("admin_log.asp")
  134.                 response.End()
  135.         end if
  136. End Sub
  137. %>
  138. </body>
  139. </html>
  140. <%call CloseConn()%>
downloadadmin_log.asp Source code - Download Jie Yang v0.6.3 article system Source code
Related Source Codes/Software:
Jilin classification information release system v5.0 trial version - A ready-made classifieds site publishing system, h... 2016-09-21
Linyi CMS v6.5 market classification information - A. supply and demand information function: informa... 2016-09-21
Tesco discount net SQL version - And presentations, faster. 2016-09-21
- electronic enterprise website management system In a fully functional version - Super suitable for enterprise agents build a corpo... 2016-09-21
Rio mesh network hard disk system v3.0 - System functions: 1, increase the progress of Asp... 2016-09-21
Classified information network business in suzhou - Overall module: classification of supply and deman... 2016-09-21
NPOINT virtual host v1.7.0 formal version management system - The system main function is introduced 2016-09-21
IDC sales web site - Beautiful IDC sales web site source code 2016-09-21
Oo 126 CMS movie site system - This procedure ASP + ACC/ASP + SQL, using new kern... 2016-09-21
Pcook CMS bubble guest v3.0 SDCMS version - Developed by Asp+Access, and meet the needs of sma... 2016-09-21
CRYENGINE - CRYENGINE is a powerful real-time game development... 2017-06-11
postal - 2017-06-11
reactide - Reactide is the first dedicated IDE for React web ... 2017-06-11
rkt - rkt is a pod-native container engine for Linux. It... 2017-06-11
uWebSockets - Tiny WebSockets https://for... 2017-06-11
realworld - TodoMVC for the RealWorld - Exemplary fullstack Me... 2017-06-11
goreplay - GoReplay is an open-source tool for capturing and ... 2017-06-10
pyenv - Simple Python version management 2017-06-10
redux-saga - An alternative side effect model for Redux apps ... 2017-06-10
angular-starter - 2017-06-10

 Back to top