这个是动网论坛里的采集系统，我希望能用4个用户一起循环发帖。

这个是动网论坛里的采集系统，我希望能用4个用户一起循环发帖。set rs1= Server.CreateObject("adodb.recordset")sql="select * from dv_topic order by topicid desc"rs1.open sql,conn2,1,3if rs1.eof thenid1=1elseid1=rs1("topicid")+1end ifrs1.addnewrs1("title")=titlers1("boardid")=ChannelIDrs1("PollID")=0rs1("locktopic")=0rs1("Child")=0rs1("PostUsername")="admin"rs1("PostUserid")=1rs1("DateAndTime")=UpDateTimers1("hits")=Hitsrs1("Expression")="0|face1.gif"rs1("VoteTotal")=0rs1("lastpost")="发帖子的$"&announceid&"$"&UpDateTime&"$"&title&"$gif$2$"&id1&"$2"rs1("LastPostTime")=UpDateTimers1("istop")=0rs1("isvote")=0rs1("isbest")=0rs1("PostTable")="dv_bbs1"rs1("TopicMode")=0rs1("Mode")=0rs1("GetMoney")=0rs1("UseTools")=""rs1("GetMoneyType")=0rs1("HideName")=0rs1.updaters1.closeset rs1=nothingrs.addnewrs("username")="发帖子的"rs("topic")=titleif right(content,1)<>">" then exit subrs("body")=contentrs("DateAndTime")=UpDateTimers("boardid")=ChannelIDrs("length")=len(content)rs("layer")=1rs("orders")=0rs("isbest")=0rs("ip")="0.0.0.0"'rs("signflay")=1rs("emailflag")=0rs("signflag")=1rs("PostUserID")=1rs("PostBuyUser")=""rs("UseTools")=""rs("isupload")=0rs("ubblist")=",0,18,39,"rs("GetMoneyType")=0rs("expression")="face1.gif"rs("ParentID")=0rs("rootid")=id1rs("locktopic")=0rs("GetMoney")=0rs.updaters.closeset rs=nothing以上这个“发帖子的”就是现在发帖的用户，请问高手如何修改为4个用户？

if rs1.eof then

id1=1

else

id1=rs1("topicid")+1

end if

rs1.addnew

rs1("title")=title

rs1("boardid")=ChannelID

rs1("PollID")=0

rs1("locktopic")=0

rs1("Child")=0

rs1("PostUsername")="admin"

rs1("PostUserid")=1

rs1("DateAndTime")=UpDateTime

rs1("hits")=Hits

rs1("Expression")="0|face1.gif"

rs1("VoteTotal")=0

rs1("lastpost")="发帖子的$"&announceid&"$"&UpDateTime&"$"&title&"$gif$2$"&id1&"$2"

rs1("LastPostTime")=UpDateTime

rs1("istop")=0

rs1("isvote")=0

rs1("isbest")=0

rs1("PostTable")="dv_bbs1"

rs1("TopicMode")=0

rs1("Mode")=0

rs1("GetMoney")=0

rs1("UseTools")=""

rs1("GetMoneyType")=0

rs1("HideName")=0

rs1.update

rs1.close

set rs1=nothing

rs.addnew

rs("username")="发帖子的"

rs("topic")=title

if right(content,1)<>">" then exit sub

rs("body")=content

rs("DateAndTime")=UpDateTime

rs("boardid")=ChannelID

rs("length")=len(content)

rs("layer")=1

rs("orders")=0

rs("isbest")=0

rs("ip")="0.0.0.0"

'rs("signflay")=1

rs("emailflag")=0

rs("signflag")=1

rs("PostUserID")=1

rs("PostBuyUser")=""

rs("UseTools")=""

rs("isupload")=0

rs("ubblist")=",0,18,39,"

rs("GetMoneyType")=0

rs("expression")="face1.gif"

rs("ParentID")=0

rs("rootid")=id1

rs("locktopic")=0

rs("GetMoney")=0

rs.update

以上在 rs.close 之前 复制3遍。

• ·DIOR魅惑感光粉饼好吗？什么叫感光粉饼？
• ·用笔记本下载影片很伤硬盘吗
• ·关于韩剧<宫>的MV下载`!
• ·完全免费电影
• ·外来媳妇本地郎的网页是什么?
• ·实况足球9开始前的那个图里面一个是亨利，别外一
• ·什么芯片以上的板子才支持DDR2
• ·高考英语一道选择
• ·主演,领衔主演,联合主演有什么区别?
• ·在酒店做西餐厅的厨师长，有年龄的限制吗？50岁