BVB Source Codes

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

Return Download Jie Yang v0.6.3 article system: download admin_weblog.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(802) 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_weblog.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 "lock"
  46.                 Call LockIP()
  47.         case else
  48.                 call main()
  49. end select
  50. Sub main()
  51. %>
  52. <table width="98%" align="center" border="0" cellpadding="0" cellspacing="1" bgcolor="#8ED1FF" class="mtab">
  53.   <tr>
  54.     <td colspan="9" class="td28">网站前台安全日志管理</td>
  55.   </tr>
  56.   <form name="form1" action="admin_weblog.asp" method="post">
  57.   <tr class="tdcenter" bgcolor="#ECF5FE">
  58.     <td width="5%">选中</td>
  59.     <td width="6%">编号</td>
  60.     <td width="10%">操作IP</td>
  61.         <td width="8%">是否锁定</td>
  62.     <td width="18%">操作时间</td>
  63.     <td width="15%">操作页面</td>
  64.     <td width="8%">提交方式</td>
  65.     <td width="8%">提交参数</td>
  66.     <td width="22%">提交数据</td>
  67.   </tr>
  68. <%
  69. sql="select * from Article_Errlog order by Err_id desc"
  70. rs.open sql,conn,1,1
  71. linkURL="admin_weblog.asp"
  72. const maxperpage=18
  73. if not(rs.bof and rs.eof) then  '判别数据表中的记录是否为空
  74.         dim recordtotal  '总记录条数
  75.         dim pagetotal  '总的页数
  76.         recordtotal=rs.recordcount '总的记录条数
  77.         rs.pagesize=maxperpage   '每页显示的最多条数
  78.         pagetotal=rs.pagecount  '总的页数
  79.         if pageshow<>"" and IsNumeric(pageshow) then
  80.                 if pageshow<1 Or Len(pageshow)>10 Then
  81.                         pageshow=1
  82.                 else
  83.                         pageshow=CLng(pageshow)
  84.                 end If
  85.         else
  86.                 pageshow=1
  87.         end If
  88. end if 
  89. if Not(Rs.bof and Rs.eof) then
  90.         Rs.move(Cint(pageshow)-1)*maxperpage,1
  91.         for i=1 to Rs.pagesize
  92. %>
  93.   <tr onmouseout="this.style.backgroundColor=''" onmouseover="this.style.backgroundColor='#ECF7FE'" bgcolor="#FFFFFF">
  94.     <td align="center"><input name='id' type='checkbox' id="id" value='<%=rs("Err_id")%>'></td>
  95.     <td align="center"><%=rs("Err_id")%></td>
  96.     <td align="center"><%=rs("Err_ip")%></td>
  97.         <%
  98.         If rs("Err_killip")=1 then
  99.                 Err_killip="<a href="&URL&"?action=unlock&id="&rs("Err_id")&"><font color=red>已锁定</font></a>"
  100.         Else
  101.                 Err_killip="<a href="&URL&"?action=lock&id="&rs("Err_id")&"><font color=green>未锁定</font></a>"
  102.         End If
  103.         %>
  104.     <td align="center"><%=Err_killip%></td>
  105.     <td>&nbsp;&nbsp;<%=rs("Err_time")%></td>
  106.     <td align="center"><%=rs("Err_web")%></td>
  107.     <td align="center"><%=rs("Err_FS")%></td>
  108.         <td align="center"><%=rs("Err_CS")%></td>
  109.     <td align="center"><%=rs("Err_data")%></td>
  110.   </tr>
  111. <%
  112.         Rs.movenext
  113.         if Rs.eof then exit for
  114.         next
  115. %>
  116. <input type="hidden" name="pageshow" value="<%=pageshow%>">
  117. <tr>
  118.   <td colspan="9" 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>
  119. </tr>
  120. <tr>
  121.         <td colspan="9" align="right" bgcolor="#FFFFFF" class="tdright"><%Call ShowPage(linkURL,recordtotal,MaxPerPage,true,true,"次相关登录")%></td>
  122. </tr>
  123. <%
  124. end if
  125. closers(rs)
  126. %>
  127. </form>
  128. </table>
  129. <%End Sub%>
  130. <%
  131. Sub del()
  132.         if id="" then
  133.                 response.Write "<script>alert(""请选择你要删除的选项!"");location.href=""admin_weblog.asp"";</script>"
  134.                 response.End()
  135.         else
  136.                 conn.execute("delete from Article_Errlog where Err_id in ("&id&")")            
  137.                 response.Redirect ("admin_weblog.asp")
  138.                 response.End()
  139.         end if
  140. End Sub
  141. Sub LockIP()
  142.         if id<>"" then
  143.                 conn.execute("Update Article_Errlog set Err_killip=1 where Err_id="&id&"")
  144.         end if
  145.         response.Redirect ("admin_weblog.asp")
  146.         response.End()
  147. End Sub
  148. %>
  149. </body>
  150. </html>
  151. <%call CloseConn()%>
downloadadmin_weblog.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