这个是动网论坛里的采集系统,我希望能用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遍。