最新文件下载：
/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修改用户扩展信息不能在动易同步的问题。
