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(煊烨※涅磐)给出如此详细的解决方法,目前登陆问题已解决,接下来就是用户的论坛权限的问题,这个自己再琢磨下,应该就可以搞定
原文地址:https://www.cnblogs.com/cy163/p/638615.html