开发工具:
文件大小: 10kb
下载次数: 0
上传时间: 2010-03-21
详细说明： uc asp 开发接口 <% Dim tget, ttime, code, action code = Request.QueryString("code") code = uc_authcode(code,"DECODE",UC_KEY) Set tget = parse_str(code) If Len(code) < 5 Then Response.write "Invalid Request" Response.End() End If ttime = tget("time") If Not IsNumeric(ttime) Or ttime = "" Then Response.write "Invalid Request" Response.End() End If ttime = DateAdd("s",ttime,"1970-01-01 08:00:0 0") ttime = DateDiff("s",ttime,Now()) If CInt(ttime) > 60 Then Response.write "Authracation has expiried" Response.End() End If '验证部分，不用修改 结束 action = tget("action") Dim ids, uid, oldusername, newusername, username, password, orgpassword, salt Select Case action Case "test" Response.write 1 Case "synlogin" '登录 Response.Addheader "P3P","CP=""CURa ADMa DEVa PSAo PSDo OUR BUS UNI PUR INT DEM STA PRE COM NAV OTC NOI DSP COR""" '以下可修改本应用的登录处理方式代码 'session("username") = tget("username") Response.write 1 '最后返回 成功 Case "synlogout" '退出 Response.Addheader "P3P","CP=""CURa ADMa DEVa PSAo PSDo OUR BUS UNI PUR INT DEM STA PRE COM NAV OTC NOI DSP COR""" '以下可修改本应用的退出处理方式代码 'session.Abandon() Response.write 1 '最后返回 成功 End Select Function parse_str(str) Dim objData, aryData, i, aryT Set objData = Server.CreateObject("Scripting.Dictionary") aryData = Split(str,"&") For i = 0 To UBound(aryData) aryT = Split(aryData(i), "=") If UBound(aryT) > 0 Then objData.add aryT(0), aryT(1) Else objData.add aryT(0), "" End If Next Set parse_str = objData Set objData = Nothing End Function %> ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
