親注冊登錄道勤網(wǎng)-可以查看更多帖子內(nèi)容哦。ò蕡D片、文字詳情等)請您及時(shí)注冊登錄-bmrsportswear.com
您需要 登錄 才可以下載或查看,沒有賬號?立即注冊
x
首先ASP+UC客戶端API文檔查看:
- 用戶注冊示例 (ASP)Dim register
- 'register = uc_user_register("用戶名","密碼","郵箱","安全提問","問題答案")
- register = uc_user_register("admin1","admin888","admin@qq.com","","")
- If register > "0" Then
- response.write "注冊成功"
- ElseIf register = "-1" Then
- response.write "用戶名不合法"
- ElseIf register = "-2" Then
- response.write "包含要允許注冊的詞語"
- ElseIf register = "-3" Then
- response.write "用戶名已經(jīng)存在"
- ElseIf register = "-4" Then
- response.write "Email 格式有誤"
- ElseIf register = "-5" Then
- response.write "Email 不允許注冊"
- ElseIf register = "-6" Then
- response.write "該 Email 已經(jīng)被注冊"
- ElseIf register = "-7" Then
- response.write "注冊信息填寫不全"
- Else
- response.write "未定義"
- End If
- 用戶登錄示例 (ASP)Dim login
- 'login = uc_user_login("用戶","密碼","是否ID登錄","是否驗(yàn)證安全問題","安全問題","問題答案")
- login = uc_user_login("admin","5201314","0","0","","")
- If login(0) > "0" Then
- response.write "登錄成功<br>"
- response.write "用戶ID:"&login(0)&"<br>"
- response.write "用戶名:"&login(1)&"<br>"
- response.write "用戶密碼:"&login(2)&"<br>"
- response.write "用戶郵箱:"&login(3)&"<br>"
- response.write "是否重命名:"&login(4)&"<br>"
- ElseIf login(0) = "-1" Then
- response.write "用戶不存在,或者被刪除"
- ElseIf login(0) = "-2" Then
- response.write "密碼錯(cuò)"
- ElseIf login(0) = "-3" Then
- response.write "安全提問錯(cuò)"
- ElseIf login(0) = "-4" Then
- response.write "用戶或密碼為空"
- Else
- response.write "未定義"
- End If
- 刪除用戶
- 'response.write uc_user_delete("用戶ID")
- response.write uc_user_delete(2)
- 檢查用戶名示例 (ASP)Dim cname
- 'cname = uc_user_checkname("用戶名")
- cname = uc_user_checkname("admin")
- If cname = "1" Then
- response.write "正確"
- ElseIf cname = "-1" Then
- response.write "用戶名不合法"
- ElseIf cname = "-2" Then
- response.write "包含不允許注冊的詞語"
- ElseIf cname = "-3" Then
- response.write "用戶名已經(jīng)存在"
- Else
- response.write "未定義"
- End If
- 用戶登錄 后的:
- response.write uc_user_synlogin(UID)
- 完整的實(shí)例:
- Dim login
- 'login = uc_user_login("用戶","密碼","是否ID登錄","是否驗(yàn)證安全問題","安全問題","問題答案")
- login = uc_user_login("admin","5201314","0","0","","")
- If login(0) > 0 Then '有此用戶才登陸
- response.write uc_user_synlogin(login(0)) '獲取同步登錄代碼
- ElseIf login(0) = "-1" Then
- response.write "用戶不存在"
- ElseIf login(0) = "-2" Then
- response.write "密碼錯(cuò)誤"
- Else
- response.write "未定義"
- 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吧!
- <!--#include file="config.inc.asp"-->
- <%
- a=uc_user_login("清竹科技", "******", 0, 0, "", "") '登錄返回ARRAY數(shù)組,詳細(xì)函數(shù)說明見client.asp
- '----------------------
- '登錄判斷這里不詳細(xì)編寫,當(dāng)作登錄成功
- response.write uc_user_synlogin(a(0),"******") '得到登錄ID,打印結(jié)果執(zhí)行JS同步登錄
- response.write a(1)
- response.end
- %>
復(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ù):
- Function uc_fopen(url,post)
- Dim Http
- Set Http = Server.CreateObject("Msxml2.ServerXMLHTTP")
- With Http
- .Open "POST",url,False
- .SetRequestHeader "Accept","*/*"
- .SetRequestHeader "Accept-Language","zh-cn"
- .SetRequestHeader "Content-Type","application/x-www-form-urlencoded"
- .SetRequestHeader "User-Agent", Request.ServerVariables("HTTP_USER_AGENT")
- .setRequestHeader "Host","119.132.83.166"
- .SetRequestHeader "Content-Length",Len(post)
- .setRequestHeader "Connection","Close"
- .setRequestHeader "Cache-Control","no-cache"
- .Send post
- uc_fopen = .ResponseText
- End With
- End Function
復(fù)制代碼 在本函數(shù)下方添加一個(gè)二進(jìn)制轉(zhuǎn)換函數(shù)
- Function bytes2bstr(vin)
- On Error Resume Next
- Err.Clear
- strreturn = ""
- For i = 1 To LenB(vin)
- thischarcode = AscB(MidB(vin, i, 1))
- If thischarcode < &H80 Then
- strreturn = strreturn & Chr(thischarcode)
- Else
- nextcharcode = AscB(MidB(vin, i + 1, 1))
- strreturn = strreturn & Chr(CLng(thischarcode) * &H100 + CInt(nextcharcode))
- i = i + 1
- End If
- Next
- bytes2bstr = strreturn
- End Function
復(fù)制代碼 添加后,把原函數(shù)里的uc_fopen = .ResponseText換成uc_fopen=bytes2bstr(.responsebody)
修改后的完整代碼如下:
- '================================================
- '函數(shù)名: uc_fopen
- '作 用: 遠(yuǎn)程打開URL
- '參 數(shù): url : 打開的ur
- ' post : 要發(fā)送的 POST 數(shù)據(jù)
- '返回值: 取到的字符串
- '================================================
- Function uc_fopen(url,post)
- Dim Http
- Set Http = Server.CreateObject("Msxml2.ServerXMLHTTP")
- With Http
- .Open "POST",url,False
- .SetRequestHeader "Accept","*/*"
- .SetRequestHeader "Accept-Language","zh-cn"
- .SetRequestHeader "Content-Type","application/x-www-form-urlencoded"
- .SetRequestHeader "User-Agent", Request.ServerVariables("HTTP_USER_AGENT")
- '.setRequestHeader "Host","119.132.83.166" '這行沒用,注視掉
- .SetRequestHeader "Content-Length",Len(post)
- .setRequestHeader "Connection","Close"
- .setRequestHeader "Cache-Control","no-cache"
- .Send post
- uc_fopen=bytes2bstr(.responsebody)
- 'uc_fopen = .ResponseText
- End With
- End Function
- Function bytes2bstr(vin)
- On Error Resume Next
- Err.Clear
- strreturn = ""
- For i = 1 To LenB(vin)
- thischarcode = AscB(MidB(vin, i, 1))
- If thischarcode < &H80 Then
- strreturn = strreturn & Chr(thischarcode)
- Else
- nextcharcode = AscB(MidB(vin, i + 1, 1))
- strreturn = strreturn & Chr(CLng(thischarcode) * &H100 + CInt(nextcharcode))
- i = i + 1
- End If
- Next
- bytes2bstr = strreturn
- End Function
復(fù)制代碼 返回結(jié)果:
- <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)電話、后臺(tái)提交工單這些方式聯(lián)系道勤主機(jī)客服!
如果您不是我們的客戶也沒問題,點(diǎn)擊頁面最右邊的企業(yè)QQ在線咨詢圖標(biāo)聯(lián)系我們并購買后,我們?yōu)槟赓M(fèi)進(jìn)行無縫搬家服務(wù),讓您享受網(wǎng)站零訪問延遲的遷移到道勤主機(jī)的服務(wù)! |