b2b_allmes.asp

信运网店系统是一套功能完善、简洁美观

<!--#include file="conn.asp"-->
<!--#include file="../b2b_includefile/b2b_mail.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<%
if session("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
else
if request.cookies("Buy2Buy")("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
end if
end if
'所有无权限
if session("rank")>1 then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('您的管理权限未达到此操作等级!');history.go(-1);</script>"
response.End
end if
if FormatSQL(SafeRequest("action",0))="save" then
set rs=server.CreateObject("adodb.recordset")
set mRs=server.CreateObject("adodb.recordset")

rs.open "select UserID from [User] order by userid",conn,1,3
do while not rs.eof
	mSql="Insert Into welcomemesbuy(UserID,Content) values('"&rs("UserID")&"','"&trim(request.Form("book"))&"')"
	mRs.open mSql,conn,1,3
	rs.movenext
loop
rs.close
set rs=nothing
mRs.close
set mRs=nothing
Conn.Close
Set Conn = Nothing
response.write "<script language=javascript>alert('会员广播信息批量更改成功！');history.go(-1);</script>"
response.End
end if


if FormatSQL(SafeRequest("action",0)) = "vip" then
'所有无权限
if session("rank")>1 then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('您的管理权限未达到此操作等级!');history.go(-1);</script>"
response.End
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select webimg11 from [b2b_systemdata]",conn,1,3
Dim strvipservice
For i = 1 To Request.Form("vipservice").Count 
strvipservice = strvipservice & Request.Form("vipservice")(i) 
Next 
rs("webimg11")=strvipservice
rs.update
rs.close
set rs=nothing
Conn.Close
Set Conn = Nothing
response.write "<script language=javascript>alert('VIP服务设置成功！');history.go(-1);</script>"
response.End
end if

if FormatSQL(SafeRequest("action",0)) = "sendmail" then
'所有无权限
if session("rank")>1 then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('您的管理权限未达到此操作等级!');history.go(-1);</script>"
response.End
end if
%>

<%
Dim smtpserver,SendFrom,sendusername,sendpassword,subject,message,SendName,SendTO,MailType
set rsUser=server.createobject("adodb.recordset")
rsUser.Open "select webbj4,webbj7,webbj8,webbj9,webbj3 from b2b_systemdata",conn,1,1
MailType = trim(rsUser("webbj4"))
smtpserver = trim(rsUser("webbj7"))
sendusername = trim(rsUser("webbj8"))
sendpassword =trim( rsUser("webbj9"))
SendName = trim(rsUser("webbj3"))
SendFrom = trim(rsUser("webbj8"))
rsUser.Close

subject=trim(request.form("MailSub"))
message=trim(request.form("MessCont"))
Intgrpid = trim(request.form("GrpID"))

rsUser.Open "Select usermail From [User]",conn,1,1
Do while not rsUser.Eof
SendTO = trim(rsUser("usermail"))
Select Case MailType
Case "Nothing"

Case "CDONTS"
call sendemail(SendFrom,SendTO,smtpserver,sendusername,sendpassword,subject,message)
Case "Jmail"
call SendJmail(SendFrom,SendTO,smtpserver,sendusername,sendpassword,subject,message,SendName)
End Select
Loop
rsUser.Close
response.Write "<script language='javascript'>alert('发送完成！');history.go(-1);</script>"
set rsUser = Nothing
Conn.close
Set conn = Nothing
end if

select case FormatSQL(SafeRequest("menu",0))

case "usercast"
usercast

case "VIPuser"
VIPuser

case "sendmess"
sendmess

end select

sub usercast
%>
<style type="text/css">
<!--
.STYLE3 {color: #0000FF}
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
.STYLE1 {color: #000000;
	font-weight: bold;
}
.style4 {color: #FF0000}
-->
</style>
<table width="98%" border="5" align="center" cellpadding="5" cellspacing="5" bordercolor="#CCCCCC" bgcolor="#FFFFFF">
  <tr> 
    <td height="20" background="images/topbg.gif">&nbsp;</td>
  </tr>
  <tr> 
    <td height="168" valign="top" bgcolor="#FFFFFF"> 
	<form name="usercast" method="post" action="b2b_allmes.asp?action=save">
        <br>
        <table width="51%"  border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td>本处为管理员对全站注册用户统一发布短信，如果您需要对单个用户发送站内短信，请使用 <a href="b2b_user.asp">商城用户管理</a> 发布！ </td>
          </tr>
        </table>
        <br>
        <table width="51%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#f2f2f2">
		  <tr bgcolor="#FFFFFF"> 
            <td valign="top" nowrap> <div align="center">
                <textarea name="book" cols="80" rows="8" id="book">
</textarea>
              </div></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td height="28" align="center" bgcolor="#F7F7F7"> <input name="Submit" type="submit" class="input_bot" value="提 交">
            </td>
          </tr>
        </table>
        <br>
	</form></td>
  </tr>
</table>
<% 
Conn.Close
Set Conn = Nothing
end sub

sub VIPuser 
set rs = server.CreateObject("adodb.recordset")
rs.open "select webimg11 from [b2b_systemdata]",conn,1,1
%>
<style type="text/css">
<!--
.STYLE3 {color: #0000FF}
body {
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
.STYLE1 {color: #000000;
	font-weight: bold;
}
.style4 {color: #FF0000}
-->
</style>
<table width="98%" border="5" align="center" cellpadding="5" cellspacing="5" bordercolor="#CCCCCC" bgcolor="#FFFFFF">
  <tr> 
    <td height="20" background="images/topbg.gif"><span class="STYLE1"><img src="images/pic5.gif" width="28" height="22" align="absmiddle" />您现在所在的位置是： <a href="adminhelp.asp">管理首页</a> -&gt; <span class="style4">VIP文案设置</span></span></td>
  </tr>
  <tr> 
    <td height="100" valign="top" bgcolor="#FFFFFF"> 
	<form name="vipform" method="post" action="b2b_allmes.asp?action=vip">
        <br>
        <table width="51%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#f2f2f2">
          <tr> 
            <td align="center" bgcolor="#FFFFFF"> <INPUT type="hidden" name="vipservice" value="<% = Server.HtmlEncode(rs("webimg11")) %>">	
              <iframe ID="vipservice" src="htmledit/ewebeditor.asp?id=vipservice&style=standard" frameborder="0" scrolling="no" width="550" HEIGHT="350"></iframe> 
            </td>
          </tr>
          <tr> 
            <td align="center" bgcolor="#F7F7F7"><input name="Submit3" type="submit" class="input_bot" value="提 交"></td>
          </tr>
        </table>
      </form></td>
  </tr>
</table>
<% 
rs.close
set rs = nothing
Conn.Close
Set Conn = Nothing
end sub 

sub sendmess 
%>
<% 
end sub 
%>