ad.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 request.form("action") = "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 * from ad",conn,1,3
rs("mainbigpic")=trim(request.form("mainbigpic"))
rs("mainbigpicurl")=trim(request.form("mainbigpicurl"))
rs("mainpic1")=trim(request.form("mainpic1"))
rs("mainpic1url")=trim(request.form("mainpic1url"))
rs("mainpic2")=trim(request.form("mainpic2"))
rs("mainpic2url")=trim(request.form("mainpic2url"))
rs("mainpic3")=trim(request.form("mainpic3"))
rs("mainpic3url")=trim(request.form("mainpic3url"))
rs("mainpic4")=trim(request.form("mainpic4"))
rs("mainpic4url")=trim(request.form("mainpic4url"))
rs("mainpic5")=trim(request.form("mainpic5"))
rs("mainpic5url")=trim(request.form("mainpic5url"))
rs("mainpic6")=trim(request.form("mainpic6"))
rs("mainpic6url")=trim(request.form("mainpic6url"))
rs("mainpic7")=trim(request.form("mainpic7"))
rs("mainpic7url")=trim(request.form("mainpic7url"))
rs("bigpic")=trim(request.form("bigpic"))
rs("bigurl")=trim(request.form("bigurl"))
rs("top")=trim(request.form("top"))
rs("topurl")=trim(request.form("topurl"))
rs("middle")=trim(request.form("middle"))
rs("middleurl")=trim(request.form("middleurl"))
rs("bottom")=trim(request.form("bottom"))
rs("bottomurl")=trim(request.form("bottomurl"))
rs("left1")=trim(request.form("left1"))
rs("left1url")=trim(request.form("left1url"))
rs("left2")=trim(request.form("left2"))
rs("left2url")=trim(request.form("left2url"))
rs("left3")=trim(request.form("left3"))
rs("left3url")=trim(request.form("left3url"))
rs("zuo1")=trim(request.form("zuo1"))
rs("zuo1url")=trim(request.form("zuo1url"))
rs("zuo2")=trim(request.form("zuo2"))
rs("zuo2url")=trim(request.form("zuo2url"))
rs("zuo3")=trim(request.form("zuo3"))
rs("zuo3url")=trim(request.form("zuo3url"))
rs("zuo4")=trim(request.form("zuo4"))
rs("zuo4url")=trim(request.form("zuo4url"))
rs("right1")=trim(request.form("right1"))
rs("right1url")=trim(request.form("right1url"))
rs("right2")=trim(request.form("right2"))
rs("right2url")=trim(request.form("right2url"))
rs("right3")=trim(request.form("right3"))
rs("right3url")=trim(request.form("right3url"))
rs("class1url")=trim(request.form("class1url"))
rs("class1")=trim(request.form("class1"))
rs("class2url")=trim(request.form("class2url"))
rs("class2")=trim(request.form("class2"))
rs("class3url")=trim(request.form("class3url"))
rs("class3")=trim(request.form("class3"))
rs("class4url")=trim(request.form("class4url"))
rs("class4")=trim(request.form("class4"))
rs("class5url")=trim(request.form("class5url"))
rs("class5")=trim(request.form("class5"))
rs.update
rs.close
set rs=nothing
conn.close
set conn = nothing
response.write "<script language=javascript>alert('修改成功！');history.go(-1);</script>"
response.End
end if
%>
<title>广告设置</title>
<table width="98%" border="0" align="center" cellpadding="1" cellspacing="1" BGCOLOR="#338FCC">
  <tr> 
    <td align="center"><font color="#FFFFFF">网站广告设置</font></td>
  </tr>
  <tr> 
    <td height="200" valign="top" bgcolor="#FFFFFF"> 
	<form name="form1" method="post" action="ad.asp">
        <table width="95%" border="0" align="center" cellpadding="1" cellspacing="1" bgcolor="#CCCCCC">
          <tr bgcolor="#FFFFFF"> 
            <td WIDTH="20%"></td>
            <td WIDTH="40%" > 图片地址</td>
            <td> 图片广告链接(连接外部网址前面请加http://)</td>
          </tr>
          <tr> 
            <td colspan="3" bgcolor="#FFFFFF"><strong>网站首页广告设置</strong>：</td>
          </tr>
		  <%set rs=server.CreateObject("adodb.recordset")
			rs.open "select * from ad",conn,1,1 %> 
          <tr> 
            <td bgcolor="#FFFFFF">首页大广告：</td>
            <td bgcolor="#FFFFFF"><input name="mainbigpic" type="text" id="mainbigpic" size="28" value=<%=trim(rs("mainbigpic"))%>>
              <input type="button" name="Submitmainbig" value="上传图片" onClick="window.open('upfile.asp?formname=form1&editname=mainbigpic&uppath=images/guanggao&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')"></td>
            <td bgcolor="#FFFFFF"><INPUT NAME="mainbigpicurl" TYPE="text" ID="mainbigpicurl" SIZE="28" VALUE="<%= rs("mainbigpicurl")%>"></td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td>首页1：</td>
            <td> <input name="mainpic1" type="text" id="mainpic1" size="28" value=<%=trim(rs("mainpic1"))%>>
              <input type="button" name="Submitmain1" value="上传图片" onClick="window.open('upfile.asp?formname=form1&editname=mainpic1&uppath=images/guanggao&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')"> 
            </td>
            <td> <input name="mainpic1url" type="text" id="mainpic1url" size="28" value=<%=trim(rs("mainpic1url"))%>> 
            </td>
          </tr>
            <tr bgcolor="#FFFFFF"> 
            <td>首页2：</td>
            <td> <input name="mainpic2" type="text" id="mainpic2" size="28" value=<%=trim(rs("mainpic2"))%>>
              <input type="button" name="Submitmain2" value="上传图片" onClick="window.open('upfile.asp?formname=form1&editname=mainpic2&uppath=images/guanggao&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')"> 
            </td>
            <td> <input name="mainpic2url" type="text" id="mainpic2url" size="28" value=<%=trim(rs("mainpic2url"))%>> 
            </td>
          </tr>
          <tr bgcolor="#FFFFFF"> 
            <td>首页3：</td>
            <td> <input name="mainpic3" type="text" id="mainpic3" size="28" value=<%=trim(rs("mainpic3"))%>>
              <input type="button" name="Submitmain3" value="上传图片" onClick="window.open('upfile.asp?formname=form1&editname=mainpic31&uppath=images/guanggao&filelx=jpg','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')"> 
            </td>
            <td> <input name="mainpic3url" type="text" id="mainpic3url" size="28" value=<%=trim(rs("mainpic3url"))%>> 
            </td>
          </tr>
         <tr bgcolor="#FFFFFF"> 
            <td>首页4：</td>
            <td> <input name="mainpic4" type="text" id="mainpic3" size="28" value=<%=trim(rs("mainpic4"))%>>