cast.asp

针对网上商城批发零售销售特点开发的综合商城系统,既适合商城零售VIP会员特点,又适合批发商城批发商等级价格体系,同时三种价格体系能更精确调整价格和优惠价格定义

<!--#include file="conn.asp"-->
<%
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("sundxshop")("admin")="" then
conn.close
set conn = nothing
response.Write "<script language='javascript'>alert('请先登录！');history.go(-1);</script>"
response.End
end if
end if
if FormatSQL(SafeRequest("action",0))="save" 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 book from DV_User order by userid",conn,1,3
do while not rs.eof
rs("book")=trim(request.Form("book"))
rs.update
rs.movenext
loop
rs.close
set rs=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('你无权设置VIP服务！');history.go(-1);</script>"
response.End
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select webimg11 from [config]",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

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

case "usercast"
usercast

case "VIPuser"
VIPuser

case "sendmess"
sendmess

end select

sub usercast
%>
<table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" BGCOLOR="#338FCC">
  <tr> 
    <td height="20" align="center"><font color="#FFFFFF">用户广播设置</font></td>
  </tr>
  <tr> 
    <td height="168" valign="top" bgcolor="#FFFFFF"> 
	<form name="usercast" method="post" action="cast.asp?action=save">
        <br>
        <table width="51%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
         <tr><td bgcolor="#FFFFFF" align="center">广播内容：</td></tr>
		  <tr bgcolor="#FFFFFF"> 
            <td valign="top" nowrap> <div align="center">
                <textarea name="book" cols="60" rows="8" id="book">欢迎来到购物商城,祝您购物愉快!
</textarea>
              </div></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td height="28" align="center"> <input type="submit" name="Submit" value="提 交">
            </td>
          </tr>
        </table>
      </form></td>
  </tr>
</table>
<% 
Conn.Close
Set Conn = Nothing
end sub

sub VIPuser 
set rs = server.CreateObject("adodb.recordset")
rs.open "select webimg11 from [config]",conn,1,1
%>
<table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" BGCOLOR="#338FCC">
  <tr> 
    <td height="20" align="center"><font color="#FFFFFF">VIP会员资格设置</font></td>
  </tr>
  <tr> 
    <td height="100" valign="top" bgcolor="#FFFFFF"> 
	<form name="vipform" method="post" action="cast.asp?action=vip">
        <br>
        <table width="51%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
          <tr> 
            <td align="center" bgcolor="#FFFFFF">VIP会员享受的服务： </td>
          </tr>
          <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="#FFFFFF"><input type="submit" name="Submit3" value="提 交"></td>
          </tr>
        </table>
      </form></td>
  </tr>
</table>
<% 
rs.close
set rs = nothing
Conn.Close
Set Conn = Nothing
end sub 

sub sendmess 
%>
<table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" BGCOLOR="#338FCC">
  <tr> 
    <td height="20" align="center"><font color="#FFFFFF">站内邮件群发</font></td>
  </tr>
  <tr> 
    <td height="100" valign="top" bgcolor="#FFFFFF"> 
	<form name="sendmess" method="post" action="cast.asp?action=sendmail">
        <table border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
          <tr bgcolor="#FFFFFF"> 
            <td>邮件标题： </td>
            <td><input name="MailSub" type="text" value="邮件标题"></td>
          </tr>
		   <tr bgcolor="#FFFFFF"> 
            <td>接受会员： </td>
            <td><% 
			set rsUser=server.createobject("adodb.recordset")
			rsUser.Open "Select GrpID,GrpName From sundxg"  ,conn,1,1 %>
              <select name="GrpID">
                <%
		do while not rsUser.eof
		response.write  "<option value="&rsUser("GrpID")
 		 if rsUser("GrpID")=rs("GrpID") then response.write " selected "
  		response.write ">"&trim(rsUser("GrpName"))&"</option>"    
        rsUser.movenext
        loop
		Conn.Close
		Set Conn = Nothing
		rsUser.Close
		Set rsUser = Nothing
		%>
              </select> </td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td>邮件正文： </td>
            <td><textarea name="MessCont" cols="60" rows="10"></textarea></td>
          </tr>
          <tr> 
            <td colspan="2" align="center" bgcolor="#FFFFFF"><input type="submit" name="Submit3" value="提 交"></td>
          </tr>
        </table>
      </form></td>
  </tr>
</table>
<% 
end sub 
%>
<!--#include file="footer.asp"-->