小李刀刀博客

最新文件下载：

/works/PDO_API_TIO.rar [文件更新日期：2006-04-18](年代久远，链接已取消)

更新记录：

4月11日：

 'API_Response.asp:
    If sPE_Items(conUserstatus,1) = "1" Then
        rsReg("IsLocked") = True
    Else
        rsReg("IsLocked") = False
    End If
'说明：解决同步注册默认状态为锁定的问题。

'User/User_Logout.asp
Action = Trim(Request("action"))
Dim MemberName,APISysKey
MemberName = Request.Cookies(Site_Sn)("UserName")
APISysKey = MD5(MemberName&API_Key,16)
'Response.Cookies(Site_Sn)("UserName") = ""
Response.Cookies(Site_Sn)("UserPassword") = ""
Response.Cookies(Site_Sn)("LastPassword") = ""
'说明：解决注销时取不到用户名而不能注销的问题

'JS/checklogin.js
function getAPIUrls(root,username,userpass){
 var strTempHTML = "";
 var iName,iPass;
 var syskey = root.item(0).getElementsByTagName("syskey").item(0).text;
 var savecookie = root.item(0).getElementsByTagName("savecookie").item(0).text;
 if (savecookie != "") {
  savecookie = "&savecookie=" + savecookie;
 }else{
                savecookie = "&savecookie=";
        }
 if (syskey != "" && username != "") {
  iName = "&username=" + username;
  if (userpass != "") {
   iPass = "&password=" + userpass;
  }else{
                        iPass = "&password=";
                }
  var iUrls = root.item(0).getElementsByTagName("apiurl");
  for (var i=0; i<iUrls.length; i++){
   strTempHTML += "<iframe frameborder="0" width="1" height="1" src="" + iUrls.item(i).text + "?syskey=" + syskey + iName + iPass + savecookie + "" />";
  }
 }
 return strTempHTML;
}'说明：解决多个程序整合时不能同步的问题

4月12日：

'API/API_Response.asp
Select Case sPE_Items(conUserstatus,1)
    Case "0"
        tRs("Islocked") = False
        tRs("GroupID") = GroupID_ok
    Case "4"
        tRs("Islocked") = True
        tRs("GroupID") = GroupID_chk
    Case "1"
        tRs("IsLocked") = True
        tRs("GroupID") = GroupID_ok
    Case Else
        tRs("IsLocked") = True
        tRs("GroupID") = GroupID_ok
End Select '补充对锁定用户的请求的处理过程

         'User/User_GetPassword.asp
         If rsGetPassword("Answer") <> MD5(Answer, 16) Then
            '对动网加密结果的兼容处理
            MD5OLD = 0
            If rsGetPassword("Answer") <> MD5(Answer,16) Then
             FoundErr = True
             ErrMsg = ErrMsg & "<br><li>对不起，您的答案不对！</li>"
            End If
            MD5OLD = 1
        End If
        '说明：增加对动网加密结果的兼容处理

'/User/User_ChkLogin.asp
            UserPassword = MD5(UserPassword, 16)
            Set rs = Server.CreateObject("adodb.recordset")
            sql = "select UserID,UserName,UserPassword,LastPassword,LastLoginIP,LastLoginTime,LoginTimes from PE_User where UserName='" & UserName & "'"
            rs.Open sql, Conn, 1, 3

'=================================================
                    Dim tempPassword
                    tempPassword = sPE_Items(conPassword,1)
                    MD5OLD = 0
                    tempPassword = MD5(tempPassword,16)
                    Md5OLD = 1
                    If tempPassword <> rs(2) Then
                        FoundErr = True
                        ErrMsg = ErrMsg & "{a}密码错误！！！{b}"
                    Else
                        rs("UserPassword") = UserPassword
                    End If
'说明：增加对动网方式Md5加密的兼容

Md5.asp更换新文件

 4月17日：

'/User/User_Info.asp

    Response.Write "        <input name='UserName' type='hidden' id='UserName' value='" & UserName & "'>" & vbCrLf
    Response.Write "        <input name='Action' type='hidden' id='Action' value='SavePwd'>" & vbCrLf
    Response.Write "        <input name='Submit' type='submit' id='Submit' value=' 保 存 '>" & vbCrLf

'===================================
    If API_Enable Then
        If createXmlDom Then
            sPE_Items(conAction,1) = "update"
            sPE_Items(conUsername,1) = UserName
            sPE_Items(conPassword,1) = Password
            prepareXml True
            SendPost
            If FoundErr Then
                ErrMsg = "<li>" & ErrMsg & "</li>"
            End If
        Else
            FoundErr = True
            ErrMsg = "<li>用户服务当前不可用。 [APIError-XmlDom-Runtime]</li>"
        End If
    End If

    If FoundErr = True Then
        Exit Sub
    End If

'说明：修正在会员中心点“修改密码”进行密码修改不生效的问题。增加判断避免远程修改失败后在本地修改。

 4月18日：

'/User/User_ChkLogin.asp

If FoundErr <> True Then
    '保存用户名
    TempUserName = UserName
    If CheckUserLogined() = False Then
        If Action = "xmlstat" Then
            FoundErr = True
            ErrMsg = ""
        Else
            '恢复可能被替换的用户名
            UserName = TempUserName
            sPE_Items(conPassword,1) = UserPassword
            UserPassword = MD5(UserPassword, 16)
'解决由于缓存不能换名登陆的问题 

4月19日

'/Reg/User_RegPost.asp

                        tempAPIScripts = tempAPIScripts & "<script type=""text/javascript"" language=""JavaScript"" src=""" & arrAPIUrl(1) & "?syskey=" & sPE_Items(conSyskey,1) & "&username=" & UserName & "&password=" & Md5(sPE_Items(conPassword,1),16) & """></script>"

'解决注册成功不能自动登陆论坛和博客的问题

4月22日：

'/API/API_Response.asp

    For intIndex = 7 to 20
        If intIndex <8 Or intIndex > 10 Then
            If sPE_Items(intIndex,1) <> "" Then
                NeedContacter = True
                Exit For
            End If
        End If
    Next

'修正一个程序逻辑上的错误，解决在动网和Oblog修改用户扩展信息不能在动易同步的问题。

本文基于署名 2.5 中国大陆许可协议发布，欢迎转载，演绎或用于商业目的，但是必须保留本文的署名小李刀刀（包含链接）。如您有任何疑问或者授权方面的协商，请给我发送邮件。