如何实现群发留言？急！

[pdysuny]

我已经循环获得接收留言者的ID，也就是flag=k的都要接受留言。
<%Set rs2 = Server.CreateObject("ADODB.Recordset")
sql2="select * from leaveword where flag='k'"
rs2.open sql2,conn,3,3
if rs2.eof then
response.Write""
else
netname1=rs2("netname")
session("netname1")=netname1
do while not rs2.eof
%>
<%=rs2("leavewordid")%> 

<%
rs2.movenext
loop
end if %

但我不知道如何才能点“发送”后才能发内容群发给他们？求助！

[BlueDestiny]

帮你急:(

[pdysuny]

急啊！

[pdysuny]

顶，再加50分

[pdysuny]

唉

[butcher2002]

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="adovbs.inc"-->
<!--#include file="cod_ado.inc"-->
<%
if (isempty(session("bbsname")) or len(session("bbsname"))=0) then
response.write"ÄúµÄ¹ÜÀíÔ±²Ù×÷³¬Ê±£¬ÇëÖØеǽ£¡"
response.end
end if
dim objcnn2,rs2
strdsn=application("cvec")
strsql="select * from bbs where bbs_name='"&session("bbsname")&"'"
cod_adoopen objcnn2,rs2,strdsn,strsql
dim objcnn1,rs1
strdsn=application("cvec")
strsql="select * from bbs"
cod_adoopen objcnn1,rs1,strdsn,strsql

main=Request.form("main")
main=server.htmlencode(main)
datetime=date()&" "&time()
rs1.movefirst
for intrecord=1 to rs1.recordcount
if rs1.eof then
exit for
end if
set conn=server.CreateObject("adodb.connection")
application("cvec")="dsn=cvec;uid=sa;pwd=password"
conn.open application("cvec")
sql="insert into bbsmessage(bbsmessage_toreal,bbsmessage_main,bbsmessage_real,bbsmessage_date) values('"&rs1("bbs_real")&"','"&main&"','"&rs2("bbs_real")&"','"&datetime&"')"
Set rss=Server.CreateObject("ADODB.recordset")
rss.Open sql,conn
rs1.movenext
next

response.redirect "mastermain4.asp"
%>

[butcher2002]

我不知道你数据库的逻辑结构

我有一个单独的message表用于存放短信

~循环的时候~~~~~~~~~~其他内容都一样~就是把接收人名字改成rs2("netname")

这样就实现了短信群发。。。

[kidrowlin]

用一个表专门存放短信，然后分别将短信保存到循环得来的ID，保存也用一个循环