熟悉dvbbs登陆以及cookie的大侠进来一下，问题解决再给50分！

[bineon]

我自己的网站用的是dvbbs，我想整合数据库，也就是网站的注册用户和论坛里面的可以通用。现在我想达到这样的效果：
无论是在网站登陆还是再论坛登陆，只要登陆正确就可以访问所有的页面。
dv是用cookie判断用户是否登陆的，我看了它的login.asp，里面有个chklogin
函数是验证登陆信息的。我可以在网站登陆处直接调用函数，但问题是这个函数登陆以后所写的cookie全部是用与论坛的，但是我需要同时写部分cookie以便网站应用！所以我做了如下修改：
当会员正确登陆以后读数据库部分信息，然后写入cookie，但是不成功！

我是在login.asp的583行以后加上
'#######添加文章信息
dim wzrs
dim wenji,wzshu,wzjifen,wzdengji
set wzrs=Server.CreateObject("adodb.recordset")
wzrs.open "select wenji,shu,wzjifen,wzdengji from [user] where username='"& regname &"'" , conn,1,1
wenji=wzrs("wenji")
response.Cookies(Dvbbs.Forum_sn)("wenji")=wzrs("wenji")
response.Cookies(Dvbbs.Forum_sn)("wzshu")=wzrs("wzshu")
response.Cookies(Dvbbs.Forum_sn)("wzjifen")=wzrs("wzjifen")
response.Cookies(Dvbbs.Forum_sn)("wzdengji")=wzrs("wzdengji")
wzrs.close
set wzrs=nothing
'#######文章信息结束

但是提示Microsoft VBScript 运行时错误 (0x800A000D)
类型不匹配: '[object]'
/bbs/login.asp, 第 591 行

什么意思？？
怎么解决

问题解决再给50分，决不食言！

[Jaron]

response.Cookies("Forum_sn")("wenji")=wzrs("wenji")

[bineon]

测试不行呀。并且在我添加代码的上面dv有如下代码：
Response.Cookies(Dvbbs.Forum_sn)("username") = regname
Response.Cookies(Dvbbs.Forum_sn)("userid") = dvbbs.UserID
Response.Cookies(Dvbbs.Forum_sn)("password") = PassWord
Response.Cookies(Dvbbs.Forum_sn)("userclass") = userclass
Response.Cookies(Dvbbs.Forum_sn)("userhidden") = userhidden
说明不是
response.Cookies("Forum_sn")("wenji")=wzrs("wenji")
的问题

同时我发现很奇怪的现象：注释掉部分语句以后能通过，没有错误！

'#######添加文章管理信息
dim wzrs
dim wenji,wzshu,wzjifen,wzdengji
set wzrs=Server.CreateObject("adodb.recordset")
wzrs.open "select wenji,shu,wzjifen,wzdengji from [user] where username='"& regname &"'" , conn,1,1
'wenji=wzrs("wenji")
'response.Cookies(Dvbbs.Forum_sn)("wenji")=wzrs("wenji")
response.Cookies(Dvbbs.Forum_sn)("wzshu")=wzrs("shu")
'response.Cookies(Dvbbs.Forum_sn)("wzjifen")=wzrs("wzjifen")
'response.Cookies(Dvbbs.Forum_sn)("wzdengji")=wzrs("wzdengji")
wzrs.close
set wzrs=nothing
'#######技术文章信息

也就是说response.Cookies(Dvbbs.Forum_sn)("wzshu")=wzrs("shu")能执行但其他的都说
类型不匹配: '[object]'

烦请老大指点！

[bineon]

顶一下！

[Jaron]

wzrs 是否返回了记录集？
试试

if not (wzrs.eof and wzrs.bof) then

'加上你的代码
end if

[bineon]

测试不行。
一样是
类型不匹配: '[object]'

[孟子E章]

wzrs.open "select wenji,shu,wzjifen,wzdengji from [user] where username='"&

wzrs.open "select wenji,wzshu,wzjifen,wzdengji from [user] where username='"&

[bineon]

楼上的是不是说应该为swzhu不是shu
？
不对，数据库里面是shu

response.Cookies(Dvbbs.Forum_sn)("wzshu")=wzrs("shu")能执行
但其他的都说
类型不匹配: '[object]'

[Jaron]

set wzrs = conn.execute("select wenji,shu,wzjifen,wzdengji from [user] where username='"& regname &"'")

[bineon]

那我应该怎么得到数据库里面的值呢？
是不是向wzrs(0)之类的呀？
关于这类似的代码
set wzrs = conn.execute("select wenji,shu,wzjifen,wzdengji from [user] where username='"& regname &"'")
我不是很清楚

[bineon]

问题基本解决，谢谢各位！