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

来源:百度知道 编辑:UC知道 时间:2024/05/21 06:54:24
这个是动网论坛里的采集系统,我希望能用4个用户一起循环发帖。
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")="发帖子的$"&announceid&"$"&UpDateTime&"$"&title&"$gif$2$"&id1&"$2"
rs1("LastPostTime")=UpDateTime
rs1("istop")=0
rs1("isvote")=0

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("