📄 update_2005count.asp
字号:
<%@language=vbscript codepage=936 %>
<%
Option Explicit
Server.ScriptTimeOut = 9999999
%>
<!--#include file="../conn.asp"-->
<!--#include file="conn_counter.asp"-->
<html>
<head>
<title>动易4.03版 To 2005版 统计数据库升级程序</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/style.css" rel="stylesheet" type="text/css">
</head>
<body>
<%
Dim rsOld, rs
Dim UpdateTable, TableName, db_Old
Dim Action,conn_Old, BeginTime, EndTime
Dim RecordNum, RecordIndex,Info_CurrentUpdate
Dim TotalRecordNum, TotalRecordIndex
Action = Trim(request("Action"))
If Action = "step1" Then
Call step1
ElseIf Action = "step2" Then
Call step2
ElseIf Action = "Update" Then
Call Update
Else
Call Main
End If
Call CloseConn_Counter()
Response.Write "</body></html>"
Sub Main()
%>
<form name="myform" method="post" action="Update_2005Count.asp">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr align="center" class="title">
<td height="30"><strong>动易4.03版 To 2005版 统计数据库升级程序</strong></td>
</tr>
<tr class="tdbg">
<td>
<p align="center">
<font color="#FF0000">使用前请一定要认真仔细的阅读下面的操作步骤及注意事项！！！<br></font>
</p>
<p>
<strong>操作步骤：</strong><br>
1、请先建立统计数据库。打开本系统所在文件夹中的Count\Counter.sql查询文件，执行查询以创建系统需要的表和存储过程,以保证是使用全新安装的2005版统计数据库，没有任何信息！<br>
2、将本文件（Update_2005Count.asp）和原动易4.03版的Access统计数据库文件(Counter403.mdb)复制到动易2005版的安装目录下Count文件中。<br>
3、在浏览器中输入本文件的地址，如http://localhost/Count/Update_2005Count.asp，运行本程序。<br>
4、确保Conn_Counter.asp文件中的数据库参数设置正确。<br>
5、认真阅读本说明后点“下一步”，开始升级操作。<br></p>
<p><strong>注意事项：</strong> <br>
1、本程序只适用于官方发布版本的统计数据库升级工作。<br>
2、本操作不建议您直接在服务器上进行，最好在本地架起调试环境然后进行升级工作。<br>
3、升级过程中错误提示，请使用原数据库文件重新进行升级操作。<br>
4、若您是直接在服务器进行升级，则操作成功完成后，一定要删除此文件！以免带来安全隐患。<br>
</p>
<p><br>
<br>
</p></td>
</tr>
<tr class="tdbg">
<td align="center"><input type='hidden' name='Action' value='step1'>
<input name="Submit" type="submit" id="Submit" value="下一步">
</td>
</tr>
</table>
</form>
<%
End Sub
Sub step1()
%>
<form name="myform" method="post" action="Update_2005Count.asp">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr align="center" class="title">
<td height="30"><strong>动易4.03版 To 2005版 统计数据库升级程序</strong></td>
</tr>
<tr class="tdbg">
<td width="100%" height="150" align=center valign="middle"><br>
<table border="0" cellspacing="0" cellpadding="5">
<tr>
<td><b>第一步、请选择数据库类型及数据库名称或连接字符串：</b></td>
</tr>
<tr>
<td>
<fieldset><legend>数据库连接</legend>
<table width="700" border="0" cellpadding="10" cellspacing="5">
<tr>
<td> 原4.03版ACCESS数据库文件名：</td>
<td>
<input name="db_access" type="text" value="Counter403.mdb" size="28">
<font color="#FF0000">（请确定已复制到动易2005版的目录下的Count文件中）</font>
</td>
</tr>
</table>
</fieldset>
</td>
</tr>
<tr>
<td align='center'><input type='hidden' name='Action' value='step2'><input name="Submit" type="submit" id="Submit" value="下一步"></td>
</tr>
</table>
</td>
</tr>
</table>
</form>
<%
End Sub
Sub step2()
If chkdatabase() = False Then Exit Sub
%>
<form name="myform" method="post" action="Update_2005Count.asp">
<table width="100%" border="0" align="center" cellpadding="2" cellspacing="1" class="border">
<tr align="center" class="title">
<td height="30"><strong>动易4.03版 To 2005版 统计数据库升级程序</strong></td>
</tr>
<tr class="tdbg">
<td width="100%" height="150" align=center valign="middle"><br>
<table border="0" cellspacing="0" cellpadding="5">
<tr>
<td><b>第二步、请选择要升级的数据库内容：</b></td>
</tr>
<tr>
<td><fieldset><legend>升级内容</legend>
<table width="700" border="0" cellpadding="0" cellspacing="5">
<tr>
<td width="16%"><input name="UpdateTable" type="checkbox" id="UpdateTable" value="FAddress" checked>地址分析</td>
<td width="16%"><input name="UpdateTable" type="checkbox" id="UpdateTable" value="Visitor" checked>访问记录</td>
<td width="16%"><input name="UpdateTable" type="checkbox" id="UpdateTable" value="FBrowser" checked>浏 览 器</td>
<td width="16%"><input name="UpdateTable" type="checkbox" id="UpdateTable" value="FColor" checked>屏幕色深</td>
<td width="16%"><input name="UpdateTable" type="checkbox" id="UpdateTable" value="FIp" checked>IP 地 址</td>
<td width="16%"><input name="UpdateTable" type="checkbox" id="UpdateTable" value="FMozilla" checked>字串分析</td>
</tr>
<tr>
<td width="16%"><input name="UpdateTable" type="checkbox" id="UpdateTable" value="FRefer" checked>链接页面</td>
<td width="16%"><input name="UpdateTable" type="checkbox" id="UpdateTable" value="FScreen" checked>屏幕大小</td>
<td width="16%"><input name="UpdateTable" type="checkbox" id="UpdateTable" value="FSystem" checked>操作系统</td>
<td width="16%"><input name="UpdateTable" type="checkbox" id="UpdateTable" value="FTimezone" checked>时区分析</td>
<td width="16%"><input name="UpdateTable" type="checkbox" id="UpdateTable" value="FVisit" checked>访问次数</td>
<td width="16%"><input name="UpdateTable" type="checkbox" id="UpdateTable" value="FWeburl" checked>来访网站</td>
</tr>
<tr>
<td width="16%"><input name="UpdateTable" type="checkbox" id="UpdateTable" value="InfoList" checked>信息配置</td>
<td width="16%"><input name="UpdateTable" type="checkbox" id="UpdateTable" value="StatDay" checked>日 报 表</td>
<td width="16%"><input name="UpdateTable" type="checkbox" id="UpdateTable" value="StatMonth" checked>月 报 表</td>
<td width="16%"><input name="UpdateTable" type="checkbox" id="UpdateTable" value="StatWeek" checked>周 报 表</td>
<td width="16%"><input name="UpdateTable" type="checkbox" id="UpdateTable" value="StatYear" checked>年 报 表</td>
</tr>
</table>
</fieldset></td>
</tr>
<tr>
<td align="center">
<input type='hidden' name='Action' value='Update'>
<input type='hidden' name='db_access' value='<%=db_Old%>'>
<input type="submit" name="StartUpdate" id="StartUpdate" value="开始升级">
</td>
</tr>
</table>
</td>
</tr>
</table>
</form>
<%
End Sub
Sub Update()
BeginTime=Timer
If chkdatabase() = False Then Exit Sub
UpdateTable = Trim(request("UpdateTable"))
Call InitPercentBar
call OpenConn_Counter()
If InStr(UpdateTable, "FAddress") > 0 Then
Call Update_FAddress
End If
If InStr(UpdateTable, "FBrowser") > 0 Then
Call Update_FBrowser
End If
If InStr(UpdateTable, "FColor") > 0 Then
Call Update_FColor
End If
If InStr(UpdateTable, "FIp") > 0 Then
Call Update_FIp
End If
If InStr(UpdateTable, "FMozilla") > 0 Then
Call Update_FMozilla
End If
If InStr(UpdateTable, "FRefer") > 0 Then
Call Update_FRefer
End If
If InStr(UpdateTable, "FScreen") > 0 Then
Call Update_FScreen
End If
If InStr(UpdateTable, "FSystem") > 0 Then
Call Update_FSystem
End If
If InStr(UpdateTable, "FTimezone") > 0 Then
Call Update_FTimezone
End If
If InStr(UpdateTable, "FVisit") > 0 Then
Call Update_FVisit
End If
If InStr(UpdateTable, "FWeburl") > 0 Then
Call Update_FWeburl
End If
If InStr(UpdateTable, "InfoList") > 0 Then
Call Update_InfoList
End If
If InStr(UpdateTable, "StatDay") > 0 Then
Call Update_StatDay
End If
If InStr(UpdateTable, "StatMonth") > 0 Then
Call Update_StatMonth
End If
If InStr(UpdateTable, "StatWeek") > 0 Then
Call Update_StatWeek
End If
If InStr(UpdateTable, "StatYear") > 0 Then
Call Update_StatYear
End If
If InStr(UpdateTable, "Visitor") > 0 Then
Call Update_Visitor
End If
Call DelAllCache
Response.Write "<script>" & vbCrLf
Response.Write "Info_CurrentUpdate.innerHTML=""<font color='blue'>数据库升级成功！</font>"";" & vbCrLf
Response.Write "</script>" & vbCrLf
conn_Old.Close
Set conn_Old = Nothing
Call CloseConn_Counter()
EndTime = Timer
Call Success
Call RefreshPercentBar
End Sub
Function chkdatabase()
On Error Resume Next
db_Old = Trim(request("db_access"))
If db_Old = "" Then
Response.Write "请输入动易原4.03版ACCESS数据库文件名！"
chkdatabase = False
Exit Function
End If
Set conn_Old = Server.CreateObject("ADODB.Connection")
conn_Old.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("" & db_Old & "")
If Err.Number <> 0 Then
Response.Write "数据库连接错误，请确认输入的动易原4.03版ACCESS数据库文件名是否正确，且已经复制（或上传）到动易2005版目录下的Count文件中。"
chkdatabase = False
Exit Function
End If
chkdatabase = True
End Function
Sub Success()
Response.Write "<br><br>恭喜您，动易4.03版 To 2005版 统计数据库升级成功！！！<br>"
Response.Write "共耗时：" & FormatNumber((EndTime - BeginTime) * 1000, 2) & "毫秒。<br>"
Response.Write "<font color=red>若您是直接在服务器进行升级，则请立即删除此文件！以免带来安全隐患。</font><br><br>"
Response.Write "您还需要去动易2005版后台管理找到系统配置>>网站统计配置,对您的网站进行基本的配置!<br>"
Response.Write "<p align='center'><input type='button' name='close' value=' 关闭此窗口 ' onclick='javascript:onclick=window.close()'></p>"
End Sub
Sub InitPercentBar()
TotalRecordNum = 0
If InStr(UpdateTable, ",") > 0 Then
Dim arrUpdateTable, intTemp
arrUpdateTable = Split(UpdateTable, ",")
For intTemp = 0 To UBound(arrUpdateTable)
TotalRecordNum = TotalRecordNum + GetRecordNum(Trim(arrUpdateTable(intTemp)))
Next
Else
TotalRecordNum = GetRecordNum(Trim(UpdateTable))
End If
%>
<table>
<tr>
<td>
<fieldset><legend>升级进度</legend>
<table border="0" cellspacing="1" cellpadding="1" bgcolor="#cccccc">
<br>
<tr bgcolor="#ffffff">
<td width="110" align="center" >
<span id="FAddress_OK"> </span>升级地址分析<br>
<span id="FBrowser_OK"> </span>升级浏 览 器<br>
<span id="FColor_OK"> </span>升级屏幕色深<br>
<span id="FIp_OK"> </span>升级IP 地 址<br>
<span id="FMozilla_OK"> </span>升级字串分析<br>
<span id="FRefer_OK"> </span>升级链接页面<br>
<span id="FScreen_OK"> </span>升级屏幕大小<br>
<span id="FSystem_OK"> </span>升级操作系统<br>
<span id="FTimezone_OK"> </span>升级时区分析<br>
<span id="FVisit_OK"> </span>升级访问次数<br>
</td>
<td width="110" align="center" >
<span id="FWeburl_OK"> </span>升级来访网站<br>
<span id="InfoList_OK"> </span>升级信息配置<br>
<span id="StatDay_OK"> </span>升级日 报 表<br>
<span id="StatMonth_OK"> </span>升级月 报 表<br>
<span id="StatWeek_OK"> </span>升级周 报 表<br>
<span id="StatYear_OK"> </span>升级年 报 表<br>
<span id="Visitor_OK"> </span>升级访问记录<br>
</td>
<td>
<span id="Info_CurrentUpdate"></span><br><br>
当前进度：<table width="404" height="20" border="0" cellspacing="1" cellpadding="1" bgcolor="#000000" align="center">
<tr>
<td bgcolor="#ffffff">
<table name="PercentBar" id="PercentBar" width="0" height="18" bgcolor="green" border="0" cellspacing="0" cellpadding="0"><tr><td></td></tr></table>
</td>
</tr>
</table>
<table width="404">
<tr>
<td><span id="Info_CurrentPercent" name="Info_CurrentPercent">0</span>%</td>
<td align="right"><span id="Info_CurrentRecord" name="Info_CurrentRecord"></span></td>
</tr>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -