BVB Source Codes

Pcook CMS bubble guest v3.0 SDCMS version Show sdcms_log.asp Source code

Return Download Pcook CMS bubble guest v3.0 SDCMS version: download sdcms_log.asp Source code - Download Pcook CMS bubble guest v3.0 SDCMS version Source code - Type:.asp
  1. <!--#include file="sdcms_check.asp"-->
  2. <%
  3. set sdcms=new Sdcms_Admin
  4. sdcms.Check_admin
  5. sdcms.Check_lever 13
  6. set sdcms=nothing
  7. select case action
  8. case else:title="日志管理"
  9. end select
  10. sd_table="sd_log"
  11. sdcms_head
  12. %>
  13. <div class="sdcms_notice"><span>管理操作:</span><a href="?">日志管理</a></div>
  14. <br>
  15. <ul id="sdcms_sub_title">
  16.         <li class="sub"><%=title%></li><li class="unsub"><a href="?action=del_all" onclick='return confirm("真的要删除?不可恢复!\n2天内的将会被保留!");'>清空日志</a></li>
  17. </ul>
  18. <div id="sdcms_right_b">
  19. <%
  20. select case action
  21. case "del":del
  22. case "del_all":del_all
  23. case else:main
  24. end select
  25. closedb
  26. sub main
  27. %>
  28.   <table border="0" align="center" cellpadding="3" cellspacing="1" class="table_b">
  29.     <form name="add" action="?" method="post"  onSubmit="return confirm('真的要删除?不可恢复!\n2天内的将会被保留!');">
  30.         <tr>
  31.         <td class="title_bg">选择</td>
  32.       <td width="50" class="title_bg">ID</td>
  33.       <td class="title_bg">帐户</td>
  34.           <td class="title_bg">操作</td>
  35.       <td class="title_bg">IP</td>
  36.       <td class="title_bg">日期</td>
  37.       <td class="title_bg">管理</td>
  38.     </tr>
  39.         <%
  40.         page=request.querystring("page")
  41.         if page="" or not isnumeric(page) then
  42.         page=1
  43.         end if
  44.         pages = 20
  45.         set rs=server.CreateObject("adodb.recordset")
  46.         sql="select id,sdcms_name,content,ip,adddate from "&sd_table&" order by id desc"
  47.         rs.open sql,conn,1,1   
  48.         if rs.eof then
  49.         else
  50.         rs.pagesize = pages
  51.         maxpagecount=rs.pagecount
  52.         rs.absolutepage = page
  53.         rcount1=0
  54.         pagestart=page-5
  55.         pageend=page+5
  56.         if pagestart<1 then
  57.         pagestart=1
  58.         end if
  59.         if pageend>maxpagecount then
  60.         pageend=maxpagecount
  61.         end if
  62.         rcount=rs.RecordCount
  63.         do while not rs.eof and rcount1 <rs.pagesize  
  64.         %>
  65.     <tr onmouseover=this.bgColor='#EBFFDC'; onmouseout=this.bgColor='#ffffff';  bgcolor='#ffffff'>
  66.         <td align="center"><input name="id"  type="checkbox" onClick="unselectall()"   value="<%=rs(0)%>"></td>
  67.          <%for i=0 to 4%>
  68.       <td <%if i<>2 then%>align="center"<%end if%>><%=rs(i)%></td>
  69.       <%next%>
  70.       <td align="center"><a href="?action=del&id=<%=rs(0)%>" onclick='return confirm("真的要删除?不可恢复!\n2天内的将会被保留!");'>删除</a></td>
  71.     </tr>
  72.         <%
  73.         rs.movenext
  74.         rcount1=rcount1+1
  75.         loop
  76.         end if        
  77.         %>
  78.         <tr>
  79.       <td colspan="7" class="tdbg" >
  80.           <span class="right">转到第
  81.                  <select onChange="location.href='?page='+this.value+''">
  82.                  <%for i=1 to maxpagecount%>
  83.                  <option value="<%=i%>" <%if clng(page)=clng(i) then echo "selected" end if%>><%=i%></option>
  84.                  <%next%>
  85.                  </select>页</span> <input name="chkAll" type="checkbox" id="chkAll" onclick=CheckAll(this.form) value="checkbox"> 全选
  86.               <select name="action">
  87.                           <option>→操作</option>
  88.                           <option value="del">删除</option>
  89.                           </select>
  90.              
  91.       <input type="submit" class="bnt" value="执 行">
  92.  
  93. </td>
  94.     </tr>
  95.         <tr>
  96.       <td colspan="7" class="tdbg" align="center">
  97.          
  98. <%
  99. if page<>"1" then
  100. echo "<a href=?page="&page-1&">上一页</a> "
  101. else
  102. echo "上一页 "
  103. end if
  104. for i=pagestart to pageend
  105. if i=0 then
  106. i=1
  107. end if
  108. if i=clng(page) then
  109. str="<font color=red><b>"&i&"</b></font>"
  110. else
  111. str=i
  112. end if
  113. strurl="[<a href=?page="&i&">"&str&"</a>]"
  114. echo strurl
  115. next
  116. if page=maxpagecount then
  117. echo " 下一页"
  118. elseif  page<>""&maxpagecount&"" then
  119. echo " <a href=?page="&page+1&"&stype="&stype&"&classid="&classid&">下一页</a>"
  120. else
  121. echo " 下一页"
  122. end if
  123. echo " 页次:"&page&"/"&maxpagecount&" 页   每页: "&pages&" 条  总数: "&rcount&" 条"
  124. %>
  125. </td>
  126.     </tr>
  127.         </form>
  128.   </table>
  129. <%
  130. end sub
  131.  
  132. sub del
  133. if id<>"" then
  134. if instr(id,", ")>0 then
  135.         id=split(id,", ")
  136.                 for i=0 to ubound(id)
  137.                   conn.execute("delete from "&sd_table&" where id="&id(i)&" and adddate<(date()-2)")
  138.                 Next
  139. Else
  140.         conn.execute("delete from "&sd_table&" where id="&id&" and adddate<(date()-2)")
  141. End if
  142. End if
  143.   response.Redirect("?")
  144. end sub
  145.  
  146. sub del_all
  147.   conn.execute("delete from "&sd_table&" where adddate<(date()-2)")
  148.   response.Redirect("?")
  149. end sub
  150. %>  
  151. </div>
  152. </body>
  153. </html>
downloadsdcms_log.asp Source code - Download Pcook CMS bubble guest v3.0 SDCMS version Source code
Related Source Codes/Software:
Oo 126 CMS movie site system - This procedure ASP + ACC/ASP + SQL, using new kern... 2016-09-21
IDC sales web site - Beautiful IDC sales web site source code 2016-09-21
NPOINT virtual host v1.7.0 formal version management system - The system main function is introduced 2016-09-21
Classified information network business in suzhou - Overall module: classification of supply and deman... 2016-09-21
Jie Yang v0.6.3 article system - System functions: 1, the system settings A confi... 2016-09-21
Age design website information management system SDCMS v1.1 SP1 - SDCMS is designed to build the information managem... 2016-09-21
Age design website information management system SDCMS v1.1 SP1 - SDCMS is designed to build the information managem... 2016-09-21
C9 v2.1.1 static post system - Program USES ASP + ACC structure design and develo... 2016-09-21
Imitation green download station perfect version - Before increased | software home page, on the basi... 2016-09-21
Subdomain hosting edition v1.9 s taobao, pat - The background site admin 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