安裝使用 ASP程序整合UCenter 同步登錄退出并解決中文登錄的問題

豬八戒

首先ASP+UC客戶端API文檔查看：

1. 用戶注冊示例 (ASP)Dim register
   
2. 'register = uc_user_register("用戶名","密碼","郵箱","安全提問","問題答案")
   
3. register = uc_user_register("admin1","admin888","admin@qq.com","","")
   
4. If register > "0" Then
   
5.     response.write "注冊成功"
   
6. ElseIf register = "-1" Then
   
7.     response.write "用戶名不合法"
   
8. ElseIf register = "-2" Then
   
9.     response.write "包含要允許注冊的詞語"
   
10. ElseIf register = "-3" Then
    
11.     response.write "用戶名已經(jīng)存在"
    
12. ElseIf register = "-4" Then
    
13.     response.write "Email 格式有誤"
    
14. ElseIf register = "-5" Then
    
15.     response.write "Email 不允許注冊"
    
16. ElseIf register = "-6" Then
    
17.     response.write "該 Email 已經(jīng)被注冊"
    
18. ElseIf register = "-7" Then
    
19.     response.write "注冊信息填寫不全"
    
20. Else
    
21.     response.write "未定義"
    
22. End If
    
23. 
    
24. 
    
25. 用戶登錄示例 (ASP)Dim login
    
26. 'login = uc_user_login("用戶","密碼","是否ID登錄","是否驗(yàn)證安全問題","安全問題","問題答案")
    
27. login = uc_user_login("admin","5201314","0","0","","")
    
28. If login(0) > "0" Then
    
29.     response.write "登錄成功<br>"
    
30.     response.write "用戶ID："&login(0)&"<br>"
    
31.     response.write "用戶名："&login(1)&"<br>"
    
32.     response.write "用戶密碼："&login(2)&"<br>"
    
33.     response.write "用戶郵箱："&login(3)&"<br>"
    
34.     response.write "是否重命名："&login(4)&"<br>"
    
35. ElseIf login(0) = "-1" Then
    
36.     response.write "用戶不存在，或者被刪除"
    
37. ElseIf login(0) = "-2" Then
    
38.     response.write "密碼錯(cuò)"
    
39. ElseIf login(0) = "-3" Then
    
40.     response.write "安全提問錯(cuò)"
    
41. ElseIf login(0) = "-4" Then
    
42.     response.write "用戶或密碼為空"
    
43. Else
    
44.     response.write "未定義"
    
45. End If
    
46. 
    
47. 刪除用戶
    
48. 
    
49. 'response.write uc_user_delete("用戶ID")
    
50. response.write uc_user_delete(2)
    
51. 
    
52. 檢查用戶名示例 (ASP)Dim cname
    
53. 'cname = uc_user_checkname("用戶名")
    
54. cname = uc_user_checkname("admin")
    
55. If cname = "1" Then
    
56.     response.write "正確"
    
57. ElseIf cname = "-1" Then
    
58.     response.write "用戶名不合法"
    
59. ElseIf cname = "-2" Then
    
60.     response.write "包含不允許注冊的詞語"
    
61. ElseIf cname = "-3" Then
    
62.     response.write "用戶名已經(jīng)存在"
    
63. Else
    
64.     response.write "未定義"
    
65. End If
    
66. 
    
67. 
    
68. 用戶登錄 后的：
    
69. response.write uc_user_synlogin(UID)
    
70. 
    
71. 完整的實(shí)例：
    
72. 
    
73. Dim login
    
74. 'login = uc_user_login("用戶","密碼","是否ID登錄","是否驗(yàn)證安全問題","安全問題","問題答案")
    
75. login = uc_user_login("admin","5201314","0","0","","")
    
76. If login(0) > 0 Then '有此用戶才登陸
    
77.     response.write uc_user_synlogin(login(0))  '獲取同步登錄代碼
    
78. ElseIf login(0) = "-1" Then
    
79.     response.write "用戶不存在"
    
80. ElseIf login(0) = "-2" Then
    
81.     response.write "密碼錯(cuò)誤"
    
82. Else
    
83.     response.write "未定義"
    
84. End If

復(fù)制代碼

如何安裝使用這里就不詳細(xì)描述了，只說幾點(diǎn)遇到的問題，因?yàn)樘砑佑脩�、修改密碼我是直接用ASP+MYSQL向數(shù)據(jù)庫添加修改數(shù)據(jù)，所以不知道這個(gè)API對添加用戶、修改密碼有沒有問題，這里詳細(xì)講同步登錄。

1、通信問題

在UC添加應(yīng)用時(shí)通信密鑰要和config.inc.asp里寫的一樣，編寫程序時(shí)調(diào)用config.inc.asp，同步登錄需要在是否同步應(yīng)用里選擇是。

2、中文用戶無法登錄問題

這里給一個(gè)簡單的同步登錄代碼，就命名為login.asp吧！

1. 
   
2. <!--#include file="config.inc.asp"-->
   
3. <%
   
4. a=uc_user_login("清竹科技", "******", 0, 0, "", "") '登錄返回ARRAY數(shù)組，詳細(xì)函數(shù)說明見client.asp
   
5. '----------------------
   
6. '登錄判斷這里不詳細(xì)編寫，當(dāng)作登錄成功
   
7. response.write uc_user_synlogin(a(0),"******") '得到登錄ID，打印結(jié)果執(zhí)行JS同步登錄
   
8. response.write a(1)
   
9. response.end
   
10. %>

復(fù)制代碼

接下來是重點(diǎn)，打開client.asp，CTRL+F搜索Function uc_fopen(url,post)，在獲取遠(yuǎn)程頁面數(shù)據(jù)的返回結(jié)果我們需要進(jìn)行處理，把二進(jìn)制結(jié)果進(jìn)行字符串轉(zhuǎn)換。
原函數(shù)：

1. Function uc_fopen(url,post)
   
2. Dim Http
   
3. Set Http = Server.CreateObject("Msxml2.ServerXMLHTTP")
   
4. With Http
   
5. .Open "POST",url,False
   
6. .SetRequestHeader "Accept","*/*"
   
7. .SetRequestHeader "Accept-Language","zh-cn"
   
8. .SetRequestHeader "Content-Type","application/x-www-form-urlencoded"
   
9. .SetRequestHeader "User-Agent", Request.ServerVariables("HTTP_USER_AGENT")
   
10. .setRequestHeader "Host","119.132.83.166"
    
11. .SetRequestHeader "Content-Length",Len(post)
    
12. .setRequestHeader "Connection","Close"
    
13. .setRequestHeader "Cache-Control","no-cache"
    
14. .Send post
    
15. uc_fopen = .ResponseText
    
16. End With
    
17. End Function

復(fù)制代碼

在本函數(shù)下方添加一個(gè)二進(jìn)制轉(zhuǎn)換函數(shù)

1. Function bytes2bstr(vin)
   
2. On Error Resume Next
   
3. Err.Clear
   
4. strreturn = ""
   
5. For i = 1 To LenB(vin)
   
6. thischarcode = AscB(MidB(vin, i, 1))
   
7. If thischarcode < &H80 Then
   
8. strreturn = strreturn & Chr(thischarcode)
   
9. Else
   
10. nextcharcode = AscB(MidB(vin, i + 1, 1))
    
11. strreturn = strreturn & Chr(CLng(thischarcode) * &H100 + CInt(nextcharcode))
    
12. i = i + 1
    
13. End If
    
14. Next
    
15. bytes2bstr = strreturn
    
16. End Function

復(fù)制代碼

添加后，把原函數(shù)里的uc_fopen = .ResponseText換成uc_fopen=bytes2bstr(.responsebody)
修改后的完整代碼如下：

1. '================================================
   
2. '函數(shù)名: uc_fopen
   
3. '作 用: 遠(yuǎn)程打開URL
   
4. '參 數(shù): url : 打開的ur
   
5. ' post : 要發(fā)送的 POST 數(shù)據(jù)
   
6. '返回值: 取到的字符串
   
7. '================================================
   
8. Function uc_fopen(url,post)
   
9. Dim Http
   
10. Set Http = Server.CreateObject("Msxml2.ServerXMLHTTP")
    
11. With Http
    
12. .Open "POST",url,False
    
13. .SetRequestHeader "Accept","*/*"
    
14. .SetRequestHeader "Accept-Language","zh-cn"
    
15. .SetRequestHeader "Content-Type","application/x-www-form-urlencoded"
    
16. .SetRequestHeader "User-Agent", Request.ServerVariables("HTTP_USER_AGENT")
    
17. '.setRequestHeader "Host","119.132.83.166"  '這行沒用，注視掉
    
18. .SetRequestHeader "Content-Length",Len(post)
    
19. .setRequestHeader "Connection","Close"
    
20. .setRequestHeader "Cache-Control","no-cache"
    
21. .Send post
    
22. uc_fopen=bytes2bstr(.responsebody)
    
23. 'uc_fopen = .ResponseText
    
24. End With
    
25. End Function
    
26. Function bytes2bstr(vin)
    
27. On Error Resume Next
    
28. Err.Clear
    
29. strreturn = ""
    
30. For i = 1 To LenB(vin)
    
31. thischarcode = AscB(MidB(vin, i, 1))
    
32. If thischarcode < &H80 Then
    
33. strreturn = strreturn & Chr(thischarcode)
    
34. Else
    
35. nextcharcode = AscB(MidB(vin, i + 1, 1))
    
36. strreturn = strreturn & Chr(CLng(thischarcode) * &H100 + CInt(nextcharcode))
    
37. i = i + 1
    
38. End If
    
39. Next
    
40. bytes2bstr = strreturn
    
41. End Function

復(fù)制代碼

返回結(jié)果：

1. <script type="text/javascript" src=http://bbs.qzsys.com/api/uc.php?time=1291717078&code=************************** reload="1"></script>

復(fù)制代碼

即login.asp里response.write uc_user_synlogin(a(0),"******")打印出來的結(jié)果，登錄成功！

道勤主機(jī)提供365天*24小時(shí)全年全天無休、實(shí)時(shí)在線、零等待的售后技術(shù)支持。竭力為您免費(fèi)處理您在使用道勤主機(jī)過程中所遇到的一切問題! 如果您是道勤主機(jī)用戶，那么您可以通過QQ【792472177】、售后QQ【59133755】、旺旺【詮釋意念】、微信：q792472177免費(fèi)電話、后臺提交工單這些方式聯(lián)系道勤主機(jī)客服！ 如果您不是我們的客戶也沒問題，點(diǎn)擊頁面最右邊的企業(yè)QQ在線咨詢圖標(biāo)聯(lián)系我們并購買后，我們?yōu)槟�免費(fèi)進(jìn)行無縫搬家服務(wù)，讓您享受網(wǎng)站零訪問延遲的遷移到道勤主機(jī)的服務(wù)！