求:ASP站內短信群發代碼

應該還有壹個是非變量：是否已讀

select * from user_data order by nameid '可以用where選擇妳的群發對象

........略過

do while not rs.eof

select * from primsg

........略過

rsmsg.addnew

i=i+1

rsmsg("primsguser")=rs("name")

rsmsg("shouid")=rs("nameid")

rsmsg("primsgtitle") =短信標題

rsmsg("primsgcontent")=短信內容

rsmsg("primsgtime")=now()

rsmsg.update

response.write i&":發送到"&rs("name")&"成功<br>"

rs.movenext

loop