usersynchro.asp

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

                UserAnswer = CheckStr(RsSource("UserAnswer"))
                UserSex = RsSource("UserSex")
                UserRegDate = CheckDateTime(RsSource("JoinDate"))
                UserLastLoginTime = CheckDateTime(RsSource("LastLogin"))
                UserLogins = CheckInt(RsSource("UserLogins"))
                UserEmail = CheckStr(RsSource("UserEmail"))
            End If
            IsAddUser = True
            strSql = "Select * From " & RemoteUserTable & " Where UserName='" & UserName & "'"
            Set RsRemote = Server.CreateObject("Adodb.Recordset")
            RsRemote.Open strSql, ConnRemote, 1, 3
            If Not (RsRemote.Bof And RsRemote.EOF) Then
                If ActionType = 0 Then
                    NeedTrans = False
                    JumpNum = JumpNum + 1
                Else
                    NeedTrans = True
                End If
                IsAddUser = False
            Else
                NeedTrans = True
                RsRemote.AddNew
            End If
            If NeedTrans = True Then
                If RemoteSys = "PE2005" Then
                    RsRemote("UserPassword") = UserPassword
                    RsRemote("LastPassword") = GetRndPassword(16)
                    RsRemote("Question") = UserQuestion
                    RsRemote("Answer") = UserAnswer
                    If IsAddUser = True Then
                        '生成客户编号的中间6位
                        v_hms = Right("0" & Hour(Now), 2) & Right("0" & Minute(Now), 2) & Right("0" & Second(Now), 2)
                        '生成客户编号的后2位
                        Randomize
                        v_mmm = Right("0" & CStr(CInt(99 * Rnd) + 1), 2)
                        ClientNum = v_ymd & v_hms & v_mmm
                        MaxUserID = CLng(MaxUserID + 1)
                        RsRemote("UserID") = MaxUserID
                        RsRemote("NickName") = UserName
                        RsRemote("UserName") = UserName
                        RsRemote("Email") = UserEmail
                        RsRemote("Sex") = UserSex
                        RsRemote("ClientNum") = ClientNum
                        RsRemote("RegTime") = Now()
                        RsRemote("LoginTimes") = 0
                        RsRemote("IsLocked") = False
                        RsRemote("Balance") = 0
                        RsRemote("UserExp") = 0
                        RsRemote("Orders") = 0
                        RsRemote("PaidOrders") = 0
                        RsRemote("SentOrders") = 0
                        RsRemote("PostItems") = 0
                        RsRemote("PassedItems") = 0
                        RsRemote("DelItems") = 0
                        RsRemote("UnsignedItems") = ""
                        RsRemote("UnreadMsg") = 0
                        RsRemote("arrClass_Browse") = ""
                        RsRemote("arrClass_View") = ""
                        RsRemote("arrClass_Input") = ""
                        RsRemote("UserSetting") = ""
                        RsRemote("GroupID") = GroupID
                        RsRemote("ChargeType") = GroupSetting(14)
                        RsRemote("UserPoint") = 100
                        RsRemote("BeginTime") = FormatDateTime(Now(), 2)
                        RsRemote("ValidNum") = 100
                        RsRemote("ValidUnit") = 1
                        RsRemote("CheckNum") = CheckNum
                        RsRemote("SpecialPermission") = False
                    End If
                Else
                    RsRemote("UserPassword") = UserPassword
                    RsRemote("UserQuesion") = UserQuestion
                    RsRemote("UserAnswer") = UserAnswer
                    If IsAddUser = True Then
                        RsRemote("UserName") = UserName
                        RsRemote("UserEmail") = CheckStr(UserEmail)
                        RsRemote("UserSign") = ""
                        RsRemote("UserFace") = "images/userface/image1.gif"
                        RsRemote("LockUser") = 0
                        RsRemote("UserMsg") = 0
                        RsRemote("UserWealth") = 0
                        RsRemote("UserWidth") = 64
                        RsRemote("UserHeight") = 64
                        RsRemote("UserSex") = UserSex
                        RsRemote("JoinDate") = UserRegDate
                        RsRemote("LastLogin") = UserLastLoginTime
                        RsRemote("UserLastIP") = Replace(Request.ServerVariables("REMOTE_ADDR"), "'", "")
                        RsRemote("UserLogins") = UserLogins
                        RsRemote("UserIM") = "||||||||||||||||||"
                        RsRemote("UserPost") = 0
                        RsRemote("UserTopic") = 0
                        RsRemote("UserClass") = "新手上路"
                        RsRemote("UserGroup") = "注册用户"
                        RsRemote("UserEP") = 0
                        RsRemote("UserCP") = 0
                        RsRemote("UserPower") = 0
                        RsRemote("UserDel") = 0
                        RsRemote("UserIsBest") = 0
                        RsRemote("UserInfo") = "||||||||||||||||||||||||||||||||||||||||||"
                        RsRemote("UserFav") = "陌生人,我的好友,黑名单"
                        RsRemote("UserSetting") = "||||||"
                        RsRemote("UserGroupID") = UserGroupID
                        RsRemote("UserHidden") = 0
                        RsRemote("IsChallenge") = 0
                    End If
                End If
                RsRemote.Update
                If Not Err Then
                    SuccessNum = SuccessNum + 1
                Else
                    Err.Clear
                End If
                RsRemote.Close
                Set RsRemote = Nothing
                If CInt(CInt(SuccessNum / TotalNum * 100) - CountRefresh) = 5 Or CInt(CInt(JumpNum / TotalNum * 100) - CountRefresh) = 5 Or SuccessNum = TotalNum Or JumpNum = TotalNum Then
                    Call RefreshHtml("RateOfProgress", "<li>已成功完成：<font color=blue>" & SuccessNum & "/" & TotalNum & "</font>条记录，跳过<font color=blue>" & JumpNum & "</font>条")
                    CountRefresh = CInt(SuccessNum / TotalNum * 100)
                End If
            End If
            RsSource.MoveNext
        Loop
        RsSource.Close
        Set RsSource = Nothing
        Call RefreshHTML("RateOfProgress","<li>用户资料转换已完成：<font color=blue>100%</font>,共跳过"&JumpNum&"条记录")
    End If
End Sub 'UserTrans

Private Sub InitializeHtml()
%>
<table width="98%"  border="0" align="center" cellpadding="2" cellspacing="1" class="border">
    <form name="actionform" id="actionform" action="UserSynchro.asp" method="post">
        <tr>
            <td colspan="2" class="tdbg">&nbsp;
            </td>
        </tr>
        <tr align="center">
            <th height="22" colspan="2" class="topbg2">
                <b><font color="#FFFFFF">正在进行数据操作</font></b>
            </th>
        </tr>
        <tr>
            <td width="27%" rowspan="2" valign="top" class="tdbg">
                <strong>动易用户数据互转工具</strong>
                <ul>
                    <li>收集数据库信息</li>
                    <li><font color="#FF0000">进行数据操作</font></li>
                    <li> 操作结果说明</li>
                </ul>
            </td>
            <td width="73%" class="tdbg" style="margin-left:10px;margin-right:10px">
            <span name="CheckSourceData" id="CheckSourceData">&nbsp;&nbsp;</span>
            <span name="CheckRemoteData" id="CheckRemoteData">&nbsp;&nbsp;</span>
            <span name="RateOfProgress" id="RateOfProgress">&nbsp;&nbsp;</span>
            <span name="MsgProgress" id="MsgProgress">&nbsp;&nbsp;</span>
            <span name="theResult" id="theResult">&nbsp;&nbsp;</span>
            </td>
        </tr>
        <tr>
            <td align="center" class="tdbg">
                <input name="action" type="hidden" id="action" value="ShowResult">
                <span name="SuccessNum" id="SuccessNum">&nbsp;</span>
                <span name="JumpNum" id="JumpNum">&nbsp;</span>
                <span name="TotalNum" id="TotalNum">&nbsp;</span>
                <span name="NavButton" id="NavButton">&nbsp;</span>&nbsp;&nbsp;<input name="Submit" type="button" class="button" value="退　出" onClick="window.close()">
            </td>
        </tr>
    </form>
</table>
<%
End Sub

Private Sub RefreshHtml(SpanName, SpanValue)
    Response.Write "<script language='JavaScript'>" & vbCrLf
    Response.Write SpanName & ".innerHTML=""" & SpanValue & """;" & vbCrLf
    Response.Write "</script>" & vbCrLf
    Response.Flush
End Sub

Private Sub CloseDatabase()
    On Error Resume Next
    ConnSource.Close: Set ConnSource = Nothing
    ConnRemote.Close: Set ConnRemote = Nothing
End Sub 'CloseDatabase

'定义程序中用到的函数
Private Function CheckStr(StrToCheck)
    If IsNull(StrToCheck) Then
        CheckStr = ""
    Else
        CheckStr = StrToCheck
    End If
End Function 'CheckStr

Private Function CheckInt(ValueToCheck)
    If IsNull(ValueToCheck) Or IsNumeric(ValueToCheck) = False Then
        CheckInt = 0
    ElseIf ValueToCheck = 0 Then
        CheckInt = 0
    Else
        CheckInt = ValueToCheck
    End If
End Function 'CheckInt

Private Function CheckDateTime(ValueToCheck)
    If IsNull(ValueToCheck) Or IsDate(ValueToCheck) = False Then
        CheckDateTime = Now()
    Else
        CheckDateTime = CDate(ValueToCheck)
    End If
End Function 'CheckDateTime

Function GetRndPassword(PasswordLen)
    Dim Ran, i, strPassword
    strPassword = ""
    For i = 1 To PasswordLen
        Randomize
        Ran = CInt(Rnd * 2)
        Randomize
        If Ran = 0 Then
            Ran = CInt(Rnd * 25) + 97
            strPassword = strPassword & UCase(Chr(Ran))
        ElseIf Ran = 1 Then
            Ran = CInt(Rnd * 9)
            strPassword = strPassword & Ran
        ElseIf Ran = 2 Then
            Ran = CInt(Rnd * 25) + 97
            strPassword = strPassword & Chr(Ran)
        End If
    Next
    GetRndPassword = strPassword
End Function
%>