update_2005count.asp

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

                  </table><br>
                  总体进度：<table width="404" height="20" border="0" cellspacing="1" cellpadding="1" bgcolor="#000000" align="center">
                    <tr>
                      <td bgcolor="#ffffff">
                        <table name="TotalPercentBar" id="TotalPercentBar" 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_TotalPercent" name="Info_TotalPercent">0</span>%</td>
                      <td align="right"><span id="Info_TotalRecord" name="Info_TotalRecord"></span></td>
                    </tr>
                  </table>
                </td>
              </tr>
            </table>
            <br><font color=red>升级过程中请勿刷新页面或关闭窗口！</font><br>
          </fieldset>
        </td>
      </tr>
    </table>
    <%
End Sub

Sub RefreshPercentBar()
    Response.Write "<script>" & vbCrLf
    Response.Write "Info_CurrentUpdate.innerHTML=""<font color='blue'>" & Info_CurrentUpdate & "</font>"";" & vbCrLf
    If RecordNum > 0 Then
        Response.Write "PercentBar.width="
        If Fix((RecordIndex / RecordNum) * 400) = 0 Then
            Response.Write "1;" & vbCrLf
        Else
            Response.Write Fix((RecordIndex / RecordNum) * 400) & ";" & vbCrLf
        End If
        Response.Write "Info_CurrentPercent.innerHTML=""" & FormatNumber(RecordIndex / RecordNum * 100, 2, -1) & """;" & vbCrLf
        Response.Write "Info_CurrentRecord.innerHTML=""" & RecordIndex & "/" & RecordNum & """;" & vbCrLf
    End If
    If RecordIndex >= 0 Then
        Response.Write TableName & "_OK.innerHTML=""<font color='red'>√</font>"";" & vbCrLf
    End If
    If TotalRecordNum > 0 Then
        Response.Write "TotalPercentBar.width="
        If Fix((TotalRecordIndex / TotalRecordNum) * 400) = 0 Then
            Response.Write "1;" & vbCrLf
        Else
            Response.Write Fix((TotalRecordIndex / TotalRecordNum) * 400) & ";" & vbCrLf
        End If
        Response.Write "Info_TotalPercent.innerHTML=""" & FormatNumber(TotalRecordIndex / TotalRecordNum * 100, 2, -1) & """;" & vbCrLf
        Response.Write "Info_TotalRecord.innerHTML=""" & TotalRecordIndex & "/" & TotalRecordNum & """;" & vbCrLf
    End If
    Response.Write "</script>" & vbCrLf
    Response.Flush
End Sub


Sub Update_FAddress()
    Info_CurrentUpdate = "正在升级地址分析..."
    TableName = "FAddress"
    RecordNum = GetRecordNum(TableName)
    RecordIndex = 0
    Set rsOld = Server.CreateObject("ADODB.Recordset")
    Set rs = Server.CreateObject("ADODB.Recordset")
    rsOld.open "select * from FAddress", conn_Old, 1, 1
    Do While Not rsOld.EOF
        rs.open "select * from PE_StatAddress", conn_Counter, 1, 3
		rs.addnew
        rs("TAddress") = rsOld("TAddress") & ""
        rs("TAddNum") = rsOld("TAddNum")

        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_FBrowser()
    Info_CurrentUpdate = "正在升级浏 览 器..."
    TableName = "FBrowser"
    RecordNum = GetRecordNum(TableName)
    RecordIndex = 0
    Set rsOld = Server.CreateObject("ADODB.Recordset")
    Set rs = Server.CreateObject("ADODB.Recordset")

    rsOld.open "select * from FBrowser", conn_Old, 1, 1
    Do While Not rsOld.EOF
        rs.open "select * from PE_StatBrowser", conn_Counter, 1, 3
		rs.addnew
        rs("TBrowser") = rsOld("TBrowser") & ""
        rs("TBrwNum") = rsOld("TBrwNum")

        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_FColor()
    Info_CurrentUpdate = "正在升级屏幕颜色..."
    TableName = "FColor"
    RecordNum = GetRecordNum(TableName)
    RecordIndex = 0
    Set rsOld = Server.CreateObject("ADODB.Recordset")
    Set rs = Server.CreateObject("ADODB.Recordset")

    rsOld.open "select * from FColor", conn_Old, 1, 1
    Do While Not rsOld.EOF
        rs.open "select * from PE_StatColor", conn_Counter, 1, 3
		rs.addnew
        rs("TColor") = rsOld("TColor") & ""
        rs("TColNum") = rsOld("TColNum")

        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_FIp()
    Info_CurrentUpdate = "正在升级 IP 地 址..."
    TableName = "FIp"
    RecordNum = GetRecordNum(TableName)
    RecordIndex = 0
    Set rsOld = Server.CreateObject("ADODB.Recordset")
    Set rs = Server.CreateObject("ADODB.Recordset")

    rsOld.open "select * from FIp", conn_Old, 1, 1
    Do While Not rsOld.EOF
        rs.open "select * from PE_StatIp", conn_Counter, 1, 3
		rs.addnew
        rs("TIp") = rsOld("TIp") & ""
        rs("TIpNum") = rsOld("TIpNum")

        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_FMozilla()
    Info_CurrentUpdate = "正在升级字串分析..."
    TableName = "FMozilla"
    RecordNum = GetRecordNum(TableName)
    RecordIndex = 0
    Set rsOld = Server.CreateObject("ADODB.Recordset")
    Set rs = Server.CreateObject("ADODB.Recordset")

    rsOld.open "select * from FMozilla", conn_Old, 1, 1
    Do While Not rsOld.EOF
        rs.open "select * from PE_StatMozilla", conn_Counter, 1, 3
		rs.addnew
        rs("TMozilla") = rsOld("TMozilla") & ""
        rs("TMozNum") = rsOld("TMozNum")

        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_FRefer()
    Info_CurrentUpdate = "正在升级链接页面..."
    TableName = "FRefer"
    RecordNum = GetRecordNum(TableName)
    RecordIndex = 0
    Set rsOld = Server.CreateObject("ADODB.Recordset")
    Set rs = Server.CreateObject("ADODB.Recordset")

    rsOld.open "select * from FRefer", conn_Old, 1, 1
    Do While Not rsOld.EOF
        rs.open "select * from PE_StatRefer", conn_Counter, 1, 3
		rs.addnew
        rs("TRefer") = rsOld("TRefer") & ""
        rs("TRefNum") = rsOld("TRefNum")

        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_FScreen()
    Info_CurrentUpdate = "正在升级屏幕大小..."
    TableName = "FScreen"
    RecordNum = GetRecordNum(TableName)
    RecordIndex = 0
    Set rsOld = Server.CreateObject("ADODB.Recordset")
    Set rs = Server.CreateObject("ADODB.Recordset")

    rsOld.open "select * from FScreen", conn_Old, 1, 1
    Do While Not rsOld.EOF
        rs.open "select * from PE_StatScreen", conn_Counter, 1, 3
		rs.addnew
        rs("TScreen") = rsOld("TScreen") & ""
        rs("TScrNum") = rsOld("TScrNum")

        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_FSystem()
    Info_CurrentUpdate = "正在升级操作系统..."
    TableName = "FSystem"
    RecordNum = GetRecordNum(TableName)
    RecordIndex = 0
    Set rsOld = Server.CreateObject("ADODB.Recordset")
    Set rs = Server.CreateObject("ADODB.Recordset")

    rsOld.open "select * from FSystem", conn_Old, 1, 1
    Do While Not rsOld.EOF
        rs.open "select * from PE_StatSystem", conn_Counter, 1, 3
		rs.addnew
        rs("TSystem") = rsOld("TSystem") & ""
        rs("TSysNum") = rsOld("TSysNum")

        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_FTimezone()
    Info_CurrentUpdate = "正在升级时区分析..."
    TableName = "FTimezone"
    RecordNum = GetRecordNum(TableName)
    RecordIndex = 0
    Set rsOld = Server.CreateObject("ADODB.Recordset")
    Set rs = Server.CreateObject("ADODB.Recordset")

    rsOld.open "select * from FTimezone", conn_Old, 1, 1
    Do While Not rsOld.EOF
        rs.open "select * from PE_StatTimezone", conn_Counter, 1, 3
		rs.addnew
        rs("TTimezone") = rsOld("TTimezone") & ""
        rs("TTimNum") = rsOld("TTimNum")

        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_FVisit()
    Info_CurrentUpdate = "正在升级访问次数..."
    TableName = "FVisit"
    RecordNum = GetRecordNum(TableName)
	RecordIndex = 0
    Set rsOld = Server.CreateObject("ADODB.Recordset")
    Set rs = Server.CreateObject("ADODB.Recordset")
	
    rsOld.open "select * from FVisit", conn_Old, 1, 1
	
	rs.open "select * from PE_StatVisit", 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.Update
	rs.Close
	TotalRecordIndex = TotalRecordIndex + 1

    rsOld.Close