ATB ソース・コード

南西農業情報ネットワーク 表示する bak_step3_in.aspソースコード

戻る ダウンロード南西農業情報ネットワーク: 個別にダウンロードbak_step3_in.aspソースコード - 全体をダウンロード南西農業情報ネットワークソースコード - タイプ:.asp
  1. <%@ CODEPAGE = "936" %>
  2. <%
  3. '=================================
  4. '
  5. '      阿江酷站访问统计系统
  6. '    Ajiang   info@ajiang.net
  7. '        www.ajiang.net
  8. '
  9. '     版权所有·抄袭挪用必究
  10. '
  11. '=================================
  12. %>
  13. <!--#include file="inc_config.asp"-->
  14. <%
  15. '权限检查
  16. if session.Contents("master") <> true then Response.Redirect "help.asp?error=你不是管理员,无权进入本页面。"
  17.  
  18. '延长脚本超时时间
  19. server.ScriptTimeout =240
  20.  
  21. '获取条件
  22. offtime=Request("offtime")
  23. if (not isdate(offtime)) then Response.Redirect "help.asp?error=请正确填写要备份数据的截止日期。"
  24.  
  25. '创建数据对象
  26. set conn=server.createobject("adodb.connection")
  27. DBPath = Server.MapPath(connpath)
  28. conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath
  29. Set rs = Server.CreateObject("ADODB.Recordset")
  30.  
  31. set bakconn=server.createobject("adodb.connection")
  32. bakDBPath = Server.MapPath(bakconnpath)
  33. bakconn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & bakDBPath
  34. Set bakrs = Server.CreateObject("ADODB.Recordset")
  35.  
  36. '====================
  37. '   备份浏览器信息
  38. '====================
  39.  
  40. '从主库中提取浏览器信息
  41. sql="select count(id) as tcid,vsoft from view where vtime<datevalue('" & offtime & "') and bakstats=0 group by vsoft"
  42. rs.Open sql,conn,1,1
  43.  
  44. do while not rs.EOF
  45.         '将当前行追加到后备库
  46.         sql="select * from stats where vtype='soft' and vtitle='" & rs("vsoft") & "'"
  47.         bakrs.Open sql,bakconn,3,2
  48.         if bakrs.EOF then       '如果后备库中没有这一项
  49.                 bakrs.AddNew
  50.                 bakrs("vtype")="soft"
  51.                 bakrs("vtitle")=rs("vsoft")
  52.                 bakrs("vdata")=rs("tcid")
  53.                 bakrs.Update
  54.         else            '如果已经有这一项了,就追加数据
  55.                 bakrs("vdata")=bakrs("vdata")+rs("tcid")
  56.                 bakrs.Update
  57.         end if
  58.         bakrs.Close
  59.         rs.MoveNext
  60. loop
  61. rs.Close
  62.  
  63. '====================
  64. '  备份操作系统信息
  65. '====================
  66.  
  67. '从主库中提取操作系统信息
  68. sql="select count(id) as tcid,vOS from view where vtime<datevalue('" & offtime & "') and bakstats=0 group by vOS"
  69. rs.Open sql,conn,1,1
  70.  
  71. do while not rs.EOF
  72.         '将当前行追加到后备库
  73.         sql="select * from stats where vtype='OS' and vtitle='" & rs("vOS") & "'"
  74.         bakrs.Open sql,bakconn,3,2
  75.         if bakrs.EOF then       '如果后备库中没有这一项
  76.                 bakrs.AddNew
  77.                 bakrs("vtype")="OS"
  78.                 bakrs("vtitle")=rs("vOS")
  79.                 bakrs("vdata")=rs("tcid")
  80.                 bakrs.Update
  81.         else            '如果已经有这一项了,就追加数据
  82.                 bakrs("vdata")=bakrs("vdata")+rs("tcid")
  83.                 bakrs.Update
  84.         end if
  85.         bakrs.Close
  86.         rs.MoveNext
  87. loop
  88. rs.Close
  89.  
  90.  
  91. '====================
  92. '  备份屏幕宽度信息
  93. '====================
  94.  
  95. '从主库中提取屏幕宽度信息
  96. sql="select count(id) as tcid,vwidth from view where vtime<datevalue('" & offtime & "') and bakstats=0 group by vwidth"
  97. rs.Open sql,conn,1,1
  98.  
  99. do while not rs.EOF
  100.         '将当前行追加到后备库
  101.         sql="select * from stats where vtype='width' and vtitle='" & rs("vwidth") & "'"
  102.         bakrs.Open sql,bakconn,3,2
  103.         if bakrs.EOF then       '如果后备库中没有这一项
  104.                 bakrs.AddNew
  105.                 bakrs("vtype")="width"
  106.                 bakrs("vtitle")=rs("vwidth")
  107.                 bakrs("vdata")=rs("tcid")
  108.                 bakrs.Update
  109.         else            '如果已经有这一项了,就追加数据
  110.                 bakrs("vdata")=bakrs("vdata")+rs("tcid")
  111.                 bakrs.Update
  112.         end if
  113.         bakrs.Close
  114.         rs.MoveNext
  115. loop
  116. rs.Close
  117.  
  118.  
  119. '====================
  120. '  备份访客地区信息
  121. '====================
  122.  
  123. '从主库中提取访问者地区信息
  124. sql="select count(id) as tcid,vwhere from view where vtime<datevalue('" & offtime & "') and bakstats=0 group by vwhere"
  125. rs.Open sql,conn,1,1
  126.  
  127. do while not rs.EOF
  128.         '将当前行追加到后备库
  129.         sql="select * from stats where vtype='where' and vtitle='" & rs("vwhere") & "'"
  130.         bakrs.Open sql,bakconn,3,2
  131.         if bakrs.EOF then       '如果后备库中没有这一项
  132.                 bakrs.AddNew
  133.                 bakrs("vtype")="where"
  134.                 bakrs("vtitle")=rs("vwhere")
  135.                 bakrs("vdata")=rs("tcid")
  136.                 bakrs.Update
  137.         else            '如果已经有这一项了,就追加数据
  138.                 bakrs("vdata")=bakrs("vdata")+rs("tcid")
  139.                 bakrs.Update
  140.         end if
  141.         bakrs.Close
  142.         rs.MoveNext
  143. loop
  144. rs.Close
  145.  
  146.  
  147. '在主库中做上标记,指明这些数据的“客户端信息”已经备份
  148. conn.execute("update view set bakstats=1 where vtime<datevalue('" & offtime & "')")
  149.  
  150. set rs=nothing
  151. conn.Close
  152. set conn=nothing
  153.  
  154. set bakrs=nothing
  155. bakconn.Close
  156. set bakconn=nothing
  157.  
  158.  
  159.  
  160.  
  161. %>
  162. <html>
  163. <head>
  164. <meta http-equiv="Content-Type" content="text/html; charset=gb2312">
  165. <meta http-equiv="Content-Language" content="zh-cn">
  166. <meta http-equiv="Copyright" content="Ajiang http://www.ajiang.net">
  167. <title><%=countname%>-数据备份-第三步-备份客户端信息</title>
  168. <link rel="stylesheet" type="text/css" href="style.css">
  169. </head>
  170. <body topmargin=5 rightmargin=0 leftmargin=0 vlink=#000000 style="BACKGROUND-IMAGE: none" class=backq>
  171. <br>
  172. <p class="p1">客户端信息备份完成。
  173. <p class="p1" align="right"><a href='bak_step4.asp?offtime=<%=offtime%>' target="_parent">下一步 备份页面信息 开始</a> <a href='bak_step4.asp?offtime=<%=offtime%>' target="_parent"><img src="images/arbutton.gif" align="absmiddle" border="0"></a> <font style="font-size:16px">&nbsp;</font>&nbsp;
  174. </body>
  175. </html>
  176.  
個別にダウンロードbak_step3_in.aspソースコード - 全体をダウンロード南西農業情報ネットワークソースコード
関連するソース/ソフトウェア:
ZWMOBI 3 G ウェブサイト システムの構築 - モバイル B2C のモバイル ショッピングを含む、強力なビジネス モジュール ダウンロード機能モジュ... 3.89KB
キャンパス サイト システム v2.0 として - ほとんどの学校には、キャンパスのウェブサイトの便利なメンテナンスの強力な機能を構築する私は、簡単な物... 44.88KB
シーティング システム 7 夜学生 - シーティング システム夜学生が促進クラスのすべての教師は、もはやように「こんにちはこんにちはこんにち... 26.4KB
94KK には消極的ネットワーク コミュニティ美化 bate3 (新しい年版) - カーネル KB 94kkBBS フォーラム、新しい造園、速度と機能がさらに強化 !新しいスタ... 24.82KB
QQ のフラッシュの言葉 - 1。 今計り知れないほど、ネットワーク上の他のプログラムでは、強力な DIY の機能ほど厳密ではどの... 67KB
系統のひずみの美しい個人の家の Build20061004 をページします。 - -----------修正部分-------------1: PPsTREAM 映画オンライ... 7.7KB
梅 Windows ネットワーク - 機能をについて説明します。Windows のホーム | 垂直方向と水平方向のニュース | 電... 34.61KB
中国のソースをダウンロード システム v1.0 - この 3-イノベーション システムでダウンロードしたプログラムを美化するには、独立した管理の背景を広... 5.26KB
南西農業情報ネットワーク - 南西農業情報ネットワーク、農業システム 98.89KB
Zoomla ! Eall CMS v2.0 - Eall CMS のウェブ マスターが最適なカーネルを開いている、無料で強力な Web サイト管理サ... 11.31KB

 トップへ戻る