本人整合风讯几天了,就是不成功,能同步注册,但是不能同步登陆

本人设置如下:<****** width=0 height=0 src=http://www.yahoolh.bj.cn/bbs/check.asp?passtype=1&username="&UserName&"&password="&PassWord&"></******>

也试过:<****** width=0 height=0 src=http://www.yahoolh.bj.cn/bbs/check.asp?passtype=1&username="&UserName&"&password="&PassWord&"></******>

切入在风讯/user/mian.asp 用户登陆后的管理页面文件

/user/CheckLogin.asp这是判断用户名正确与否的文件

反复试过几百次,试了几天,还是不行,也在论坛求救.在本论坛搜索处搜了100多次关于整合和同步登陆的文章,说法也是一样,我看除了518这位版主说能成功整合外,别的和我一样,都没有一个成功的.所以本人想看看到底有几个人是整合成功的,希望来顶顶,告诉我,你们是怎么样整合成功的.小弟拜谢了!

我不敢这样说,但是我觉得这程序应该是没问题的,他至少实现同步注册,说明离同步登陆不远了,只是我哪里没搞对~!

但是官方又不提供一个非常祥细的说明.真是遗憾!

你们所谓的帮助文档，本人看了１０００多遍了！！！

你们除了说叫理解，叫看帮助文档还能说什么？

我能通过帮助看懂，我还来论坛求什么救？？？

简直就是对我们这些免费用户不负责！！！ 

有点偏激了,不好意思

提供的程序的确能同步注册,但是同步登陆还是不能实现,但作为会飞的猪他518二位版主他们却说能同步登陆，但是又小气，怕自己技术透露，舍不得把其中原委说出来．也不愿意把代码提供出来

本人就把源文件的内容拿出来，大家看看

bbsgood的coon.asp

<%
Option Explicit
Response.Buffer = True
Dim StarTime,EndTime,DataNum,Conn,OutConn

'其它相关初始化配置=================================================================================================
Const BBSInfo="BBSGood.Speed" '这里请输入你的系统的名称，注意如果你要在同一系统中运行多个程序，那么这个名称必须与其它系统不同，要不会有冲突，如果你只运行一个程序，此处可不修改
      StarTime = Timer() '初始化开始运行时间
      DataNum=0  '初始化数据库操作次数计算
Const WriteType=0 '生在html文件的组件类型，0为fso方式，1为ado方式 ，对于不支持fso的用户来用，可以尝试使用ado。
Const CharType="gb2312" '字符类型
'===================================================================================================================

Const DataType=0 '论坛数据库类型，0为access,1为sql数据库

If DataType = 1 Then
    '必修改设置二：========================sql数据库设置============================================================
    'sql数据库连接参数：数据库名(sqlDatabaseName)、用户密码(sqlPassword)、用户名(sqlUsername)、
    '连接名(sqlLocalName)（本地用local，外地用IP）
    Const sqlDatabaseName = "bbs"
    Const sqlPassword = "sa"
    Const sqlUsername = "sa"
    Const sqlLocalName = "(local)"
Else
    '必修改设置三：========================access数据库设置=========================================================
    '免费用户第一次使用请修改本处数据库地址并相应修改data目录中数据库名称，如:将bbsgood_speed.mdb修改为bbsgood_speed.asp
    Const Db="/bbs/data/bjggq.asp" '数据库路径
End IF
'===================================================================================================================

Sub LinkData()
    Dim ConnStr
    If DataType=1 Then
        ConnStr = "Provider = sqloledb; User ID = " & sqlUsername & "; Password = " & sqlPassword & "; Initial Catalog = " & sqlDatabaseName & "; Data Source = " & sqlLocalName & ";"
    Else
     ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
    End If
    On Error Resume Next
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.open ConnStr
    If Err Then
     err.Clear
     Set Conn = Nothing
     Response.Write "数据库连接出错，请检查连接字串。"
     Response.End
    End If
End Sub

'=========================================外部表整合参数设置开始=======================================================
Const isoutuser=1 '如果此项为0那么用户名，密码不使用外部数据库或表，如果为1,表示整合到其它系统，用户名和密码采用其它系统的表

if isoutuser=1 then '如果使用外部连接表
    Const OutDataType=0 '如果此项为0.那么表示使用access数据库，如果此项为1，那么表示采用mssql数据库
   
    Const User_out="FS_ME_Users"  '外部数据库表名　这里是外部会员数据库段   Const UserName_out="UserName"  '外部数据库用户表，用户字段
    Const PassWord_out="UserPassword"  '外部数据库用户表，密码字段
   
    Const reg_out="http://www.yahoolh.bj.cn/user/Reg_service.asp"  '外部用户名注册地址
    Const userinfo_out="http://www.yahoolh.bj.cn/user/GetPassword.asp" '外部密码修改地址
    Const userlogin_out="http://www.yahoolh.bj.cn/user/login.asp" '外部帐号登陆地址

    If OutDataType = 1 Then
        '必修改设置二：========================sql数据库设置============================================================
        'sql数据库连接参数：数据库名(sqlDatabaseName)、用户密码(sqlPassword)、用户名(sqlUsername)、
        '连接名(sqlLocalName)（本地用local，外地用IP）
        Const OutsqlDatabaseName = "bbsgood"
        Const OutsqlPassword = "sa"
        Const OutsqlUsername = "sa"
        Const OutsqlLocalName = "(local)"
    Else
        '必修改设置三：========================access数据库设置=========================================================
        '免费用户第一次使用请修改本处数据库地址并相应修改data目录中数据库名称，如:将bbsgood_speed.mdb修改为bbsgood_speed.asp
        Const OutDb="/Foosun_Data/user.asp" '数据库路　这里是外部会员数据库地址
    End IF
end if

'==========================================外部表整合参数设置结束=======================================================

Sub OutLinkData() '连接外部表函数
    Dim ConnStr
    If OutDataType=1 Then
        ConnStr = "Provider = sqloledb; User ID = " & OutsqlUsername & "; Password = " & OutsqlPassword & "; Initial Catalog = " & OutsqlDatabaseName & "; Data Source = " & OutsqlLocalName & ";"
    Else
     ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(OutDb)
    End If
    On Error Resume Next
    Set OutConn = Server.CreateObject("ADODB.Connection")
    OutConn.open ConnStr
    If Err Then
     err.Clear
     Set OutConn = Nothing
     Response.Write "数据库连接出错，请检查连接字串。"
     Response.End
    End If

End Sub

Sub CloseData()
    if IsObject(conn) then
        conn.Close
        set conn=nothing
    end if
End Sub
%>