update_2005count.asp

《动易网站管理系统》2005 SP2正式版中

    Set rsOld = Nothing
    Set rs = Nothing
    Call RefreshPercentBar
End Sub

Sub Update_FWeburl()
    Info_CurrentUpdate = "正在升级来访网站..."
    TableName = "FWeburl"
    RecordNum = GetRecordNum(TableName)
    RecordIndex = 0
    Set rsOld = Server.CreateObject("ADODB.Recordset")
    Set rs = Server.CreateObject("ADODB.Recordset")

    rsOld.open "select * from FWeburl", conn_Old, 1, 1
    Do While Not rsOld.EOF
        rs.open "select * from PE_StatWeburl", conn_Counter, 1, 3
		rs.addnew
        rs("TWeburl") = rsOld("TWeburl") & ""
        rs("TWebNum") = rsOld("TWebNum")

        rs.Update
        rs.Close
        rsOld.movenext
        RecordIndex = RecordIndex + 1
        If (RecordIndex Mod 10) = 0 Then
            Call RefreshPercentBar
        End If
        TotalRecordIndex = TotalRecordIndex + 1
    Loop
    rsOld.Close
    Set rsOld = Nothing
    Set rs = Nothing
    Call RefreshPercentBar
End Sub

Sub Update_InfoList()
    Info_CurrentUpdate = "正在升级信息配置..."
    TableName = "InfoList"
    RecordNum = GetRecordNum(TableName)
	RecordIndex = 0
    Set rsOld = Server.CreateObject("ADODB.Recordset")
    Set rs = Server.CreateObject("ADODB.Recordset")

    rsOld.open "select * from InfoList", conn_Old, 1, 1

	rs.open "select * from PE_StatInfoList", conn_Counter, 1, 3

	rs("TotalNum") = rsOld("TotalNum") & ""
	rs("StartDate") = rsOld("StartDate")
	rs("MonthNum") = rsOld("MonthNum")
	rs("MonthMaxNum") = rsOld("MonthMaxNum") & ""
	rs("OldMonth") = rsOld("OldMonth") & ""
	rs("MonthMaxDate") = rsOld("MonthMaxDate") & ""
	rs("DayNum") = rsOld("DayNum") & ""
	rs("DayMaxNum") = rsOld("DayMaxNum") & ""
	rs("OldDay") = rsOld("OldDay") & ""
	rs("DayMaxDate") = rsOld("DayMaxDate") & ""
	rs("HourNum") = rsOld("HourNum") & ""
	rs("HourMaxNum") = rsOld("HourMaxNum")
	rs("OldHour") = rsOld("OldHour") & ""
	rs("HourMaxTime") = rsOld("HourMaxTime") & ""
	rs("ChinaNum") = rsOld("ChinaNum") & ""
	rs("OtherNum") = rsOld("OtherNum") & ""

	rs.Update
	rs.Close
	TotalRecordIndex = TotalRecordIndex + 1

    rsOld.Close
    Set rsOld = Nothing
    Set rs = Nothing
    Call RefreshPercentBar
End Sub

Sub Update_StatDay()
    Info_CurrentUpdate = "正在升级日 报 表..."
    TableName = "StatDay"
    RecordNum = GetRecordNum(TableName)
    RecordIndex = 0
    Set rsOld = Server.CreateObject("ADODB.Recordset")
    Set rs = Server.CreateObject("ADODB.Recordset")

    rsOld.open "select * from StatDay", conn_Old, 1, 1
    Do While Not rsOld.EOF
        rs.open "select * from PE_StatDay", conn_Counter, 1, 3
		rs.addnew
        rs("1") = rsOld("1")
        rs("2") = rsOld("2")
        rs("3") = rsOld("3")
        rs("4") = rsOld("4")
        rs("5") = rsOld("5")
		rs("6") = rsOld("6")
        rs("7") = rsOld("7")
		rs("8") = rsOld("8")
        rs("9") = rsOld("9")
		rs("10") = rsOld("10")
        rs("11") = rsOld("11")
        rs("12") = rsOld("12")
        rs("13") = rsOld("13")
        rs("14") = rsOld("14")
        rs("15") = rsOld("15")
		rs("16") = rsOld("16")
        rs("17") = rsOld("17")
		rs("18") = rsOld("18")
        rs("19") = rsOld("19")
        rs("20") = rsOld("20")
		rs("21") = rsOld("21")
        rs("22") = rsOld("22")
        rs("23") = rsOld("23")
		rs("TDay") = rsOld("TDay")
		rs.Update
        rs.Close
        rsOld.movenext
        RecordIndex = RecordIndex + 1
        If (RecordIndex Mod 10) = 0 Then
            Call RefreshPercentBar
        End If
        TotalRecordIndex = TotalRecordIndex + 1
    Loop
    rsOld.Close
    Set rsOld = Nothing
    Set rs = Nothing
    Call RefreshPercentBar
End Sub

Sub Update_StatMonth()
    Info_CurrentUpdate = "正在升级月 报 表..."
    TableName = "StatMonth"
    RecordNum = GetRecordNum(TableName)
    RecordIndex = 0
    Set rsOld = Server.CreateObject("ADODB.Recordset")
    Set rs = Server.CreateObject("ADODB.Recordset")

    rsOld.open "select * from StatMonth", conn_Old, 1, 1
    Do While Not rsOld.EOF
        rs.open "select * from PE_StatMonth", conn_Counter, 1, 3
		rs.addnew
        rs("1") = rsOld("1")
        rs("2") = rsOld("2")
        rs("3") = rsOld("3")
        rs("4") = rsOld("4")
        rs("5") = rsOld("5")
		rs("6") = rsOld("6")
        rs("7") = rsOld("7")
		rs("8") = rsOld("8")
        rs("9") = rsOld("9")
		rs("10") = rsOld("10")
        rs("11") = rsOld("11")
        rs("12") = rsOld("12")
        rs("13") = rsOld("13")
        rs("14") = rsOld("14")
        rs("15") = rsOld("15")
		rs("16") = rsOld("16")
        rs("17") = rsOld("17")
		rs("18") = rsOld("18")
        rs("19") = rsOld("19")
        rs("20") = rsOld("20")
		rs("21") = rsOld("21")
        rs("22") = rsOld("22")
        rs("23") = rsOld("23")
        rs("24") = rsOld("24")
        rs("25") = rsOld("25")
		rs("26") = rsOld("26")
        rs("27") = rsOld("27")
		rs("28") = rsOld("28")
        rs("29") = rsOld("29") 
        rs("30") = rsOld("30")
		rs("31") = rsOld("31")
        rs("TMonth") = rsOld("TMonth")

        rs.Update
        rs.Close
        rsOld.movenext
        RecordIndex = RecordIndex + 1
        If (RecordIndex Mod 10) = 0 Then
            Call RefreshPercentBar
        End If
        TotalRecordIndex = TotalRecordIndex + 1
    Loop
    rsOld.Close
    Set rsOld = Nothing
    Set rs = Nothing
    Call RefreshPercentBar
End Sub


Sub Update_StatWeek()
    Info_CurrentUpdate = "正在升级周 报 表..."
    TableName = "StatWeek"
    RecordNum = GetRecordNum(TableName)
    RecordIndex = 0
    Set rsOld = Server.CreateObject("ADODB.Recordset")
    Set rs = Server.CreateObject("ADODB.Recordset")

    rsOld.open "select * from StatWeek", conn_Old, 1, 1
    Do While Not rsOld.EOF
        rs.open "select * from PE_StatWeek", conn_Counter, 1, 3
		rs.addnew
        rs("1") = rsOld("1")
        rs("2") = rsOld("2")
        rs("3") = rsOld("3")
        rs("4") = rsOld("4")
        rs("5") = rsOld("5")
		rs("6") = rsOld("6")
        rs("7") = rsOld("7")
        rs("TWeek") = rsOld("TWeek")

        rs.Update
        rs.Close
        rsOld.movenext
        RecordIndex = RecordIndex + 1
        If (RecordIndex Mod 10) = 0 Then
            Call RefreshPercentBar
        End If
        TotalRecordIndex = TotalRecordIndex + 1
    Loop
    rsOld.Close
    Set rsOld = Nothing
    Set rs = Nothing
    Call RefreshPercentBar
End Sub

Sub Update_StatYear()
    Info_CurrentUpdate = "正在升级年 报 表..."
    TableName = "StatYear"
    RecordNum = GetRecordNum(TableName)
    RecordIndex = 0
    Set rsOld = Server.CreateObject("ADODB.Recordset")
    Set rs = Server.CreateObject("ADODB.Recordset")

    rsOld.open "select * from StatYear", conn_Old, 1, 1
    Do While Not rsOld.EOF
        rs.open "select * from PE_StatYear", conn_Counter, 1, 3
		rs.addnew
        rs("1") = rsOld("1")
        rs("2") = rsOld("2")
        rs("3") = rsOld("3")
        rs("4") = rsOld("4")
        rs("5") = rsOld("5")
		rs("6") = rsOld("6")
        rs("7") = rsOld("7")
		rs("8") = rsOld("8")
        rs("9") = rsOld("9")
		rs("10") = rsOld("10")
        rs("11") = rsOld("11")
        rs("12") = rsOld("12")
        rs("TYear") = rsOld("TYear")

        rs.Update
        rs.Close
        rsOld.movenext
        RecordIndex = RecordIndex + 1
        If (RecordIndex Mod 10) = 0 Then
            Call RefreshPercentBar
        End If
        TotalRecordIndex = TotalRecordIndex + 1
    Loop
    rsOld.Close
    Set rsOld = Nothing
    Set rs = Nothing
    Call RefreshPercentBar
End Sub

Sub Update_Visitor()
    Info_CurrentUpdate = "正在升级访问记录..."
    TableName = "Visitor"
    RecordNum = GetRecordNum(TableName)
    RecordIndex = 0
    Set rsOld = Server.CreateObject("ADODB.Recordset")
    Set rs = Server.CreateObject("ADODB.Recordset")

    rsOld.open "select * from Visitor", conn_Old, 1, 1
    Do While Not rsOld.EOF
        rs.open "select * from PE_StatVisitor", conn_Counter, 1, 3
		rs.addnew
        rs("VTime") = rsOld("VTime")
        rs("IP") = rsOld("IP") & ""
		rs("Address") = rsOld("Address") & ""
        rs("System") = rsOld("System") & ""
        rs("Browser") = rsOld("Browser") & ""
        rs("Screen") = rsOld("Screen") & ""
		rs("Color") = rsOld("Color") & ""
        rs("Referer") = rsOld("Referer") & ""
        rs("Timezone") = CheckClng(TimezoneFormate(rsOld("Timezone")))

		rs.Update
        rs.Close
        rsOld.movenext
        RecordIndex = RecordIndex + 1
        If (RecordIndex Mod 10) = 0 Then
            Call RefreshPercentBar
        End If
        TotalRecordIndex = TotalRecordIndex + 1
    Loop
    rsOld.Close
    Set rsOld = Nothing
    Set rs = Nothing
    Call RefreshPercentBar
End Sub


Function GetRecordNum(strTable)
    Dim nrs
    Set nrs = conn_Old.execute("select Count(*) from " & strTable)
    GetRecordNum = nrs(0)
    If IsNull(GetRecordNum) Then GetRecordNum = 0
    nrs.Close
    Set nrs = Nothing
End Function

Sub DelAllCache()
    Dim Cacheobj, strAllCache, CacheList, i
    For Each Cacheobj In Application.Contents
        strAllCache = strAllCache & Cacheobj & ","
    Next
    CacheList = Split(strAllCache, ",")
    If UBound(CacheList) > 0 Then
        For i = 0 To UBound(CacheList)
            Application.Lock
            Application.Contents.Remove CacheList(i)
            Application.UnLock
        Next
    End If
End Sub

Function TimezoneFormate(str)
	Dim re,Match,Matches

	set re = new regExp
	re.IgnoreCase=False
	re.Global=True
	re.Pattern="T(.*):"
	set Matches= re.Execute(str)
	For Each Match In Matches
		TimezoneFormate=Cint(replace(mid(Match.Value,2),":",""))
	Next
	set re=Nothing

End Function

Private Function CheckClng(strValue)
	If IsNull(strValue) or IsNumeric(strValue) = False Then
		CheckClng = 0
	ElseIf  strValue = 0 Then
		CheckClng = 0
	Else
		CheckClng = strValue
	End If
End Function
%>