c#调用Discuz的UCenter 1.5的API及示例。

很久以前一个项目中用到和UCenter通信,API版本号是1.5,从网上找到的示例代码。

点此下载

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
uc asp 开发接口 <!--#include file="../config.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:00") 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 %>

“相关推荐”对你有帮助么?

  • 非常没帮助
  • 没帮助
  • 一般
  • 有帮助
  • 非常有帮助
提交
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值