急求高手解决动网论坛采集循环发贴的方法

问题描述：

以下是保存发贴的用户但是只有一个 ADMIN
现在想让多个人循环发贴
请问大虾该怎么改写一下函数和变量
比如要添加 四个会员循环发贴
方法如何呢！！

'==================================================
'过程名：SaveArticle
'作 用：保存文章
'参 数：无
'==================================================
Sub SaveArticle
set rs= Server.CreateObject("adodb.recordset")
sql="select * from dv_bbs1 order by announceid desc"
rs.open sql,conn2,1,3
if rs.eof then
announceid=1
else
announceid=rs("announceid")+1
end if
set rs1= Server.CreateObject("adodb.recordset")
sql="select * from dv_topic order by topicid desc"
rs1.open sql,conn2,1,3
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")="admin$"&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")="admin"
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
set rs=nothing

set rs3= Server.CreateObject("adodb.recordset")
sql="select * from dv_board where boardid="&ChannelID
rs3.open sql,conn2,1,3
rs3("postnum")=rs3("postnum")+1
rs3("topicnum")=rs3("topicnum")+1
rs3("topicnum")=rs3("topicnum")+1
rs3("todaynum")=rs3("todaynum")+1
rs3("lastpost")="admin$"&announceid&"$"&sj&"$"&title&"$gif$2$"&id1&"$2"
rs3.update
rs3.close
set rs3=nothing
set rs4= Server.CreateObject("adodb.recordset")
sql="select * from dv_user where userid=1"
rs4.open sql,conn2,1,3
rs4("userpost")=rs4("userpost")+1
rs4("usertopic")=rs4("usertopic")+3
rs4.update
rs4.close
set rs4=nothing
End Sub

问题解答：

急求高手解决动网论坛采集循环发贴的方法这个旅游问答期待您的解答，请登录账号或关注微信公众号回答这个问题。