zoukankan      html  css  js  c++  java
  • ASP 有关整合动网论坛的问题

    http://www.it130.net/asp-asp.net/13488.htm
    具体需求:在原有网站上加一动网论坛,要满足1:原网站的的会员通过原有网站登录入口登录后,访问论坛时,不再要求登录,也就是所谓的一站式登录,并且会员信息在原网站修改后要与论坛相关信息同步修改

    响应者 1:
    最简单的方法 把你网站的用户表并给动网 在动网写入COOKIES的地方写入session给你网站用,在动网的LOGIN.asp尾部.
    响应者 2:
    最简单的方法是:当你打开论坛的连接前,先自动登录一遍,代码如下:
    Dim username,password
    username=session("_username")
    password=session("_userpass")
    if username<>"" and password<>"" then
    if 1=1 then
    With Response
    .Write("<form id='loginBbs' name='loginBbs' method='post' action='bbs/login.asp?action=chk'>")
    .Write("<input id='username' name='username' type=hidden value="&username&">")
    .Write("<input id='password' name='password' type=hidden value="&password&">")
    .Write("</form>")
    .Write("<script language='JAVAscript'>document.all['loginBbs'].submit();</script>")
    end With
    else
    Response.Write(username)
    Response.Write("<br/>")
    Response.Write(password)
    end if
    end if


    然后在 login.asp 里面把下面的代码替换成 最后一句
    '这里是页面的转向
    'Dim TempStr
    'TempStr = template.html(2)
    'If DVBbs.Forum_ChanSetting(0)=1 And DVBbs.Forum_ChanSetting(10)=1 And DVBbs.Forum_ChanSetting(12)=1 Then
    'TempStr = Replace(TempStr,"{$ray_logininfo}",template.html(3))
    'Else
    'TempStr = Replace(TempStr,"{$ray_logininfo}","")
    'End If
    'TempStr = Replace(TempStr,"{$comeurl}",comeurl)
    'TempStr = Replace(TempStr,"{$comeurlinfo}",comeurlname)
    'TempStr = Replace(TempStr,"{$forumname}",DVBbs.Forum_Info(0))
    'Response.Write TempStr
    'TempStr=""
    Response.redirect(comeurl) '直接转向
    响应者 3:
    非常感谢两位的帮忙,尤其是ilik(煊烨※涅磐)给出如此详细的解决方法,目前登陆问题已解决,接下来就是用户的论坛权限的问题,这个自己再琢磨下,应该就可以搞定
  • 相关阅读:
    Nginx/Apache图片缩略图技术
    MySQL 备份和恢复
    MySQL主从复制
    xcode针对不同IOS版本的代码编译问题
    java 5 ReadWriteLock
    java 5 Lock
    结对-及格程序查询系统-结对项目总结
    团队-象棋游戏-开发文档
    结对-及格程序查询-最终程序
    结对-及格程序查询-测试过程
  • 原文地址:https://www.cnblogs.com/cy163/p/638615.html
Copyright © 2011-2022 走看看