www.gusucode.com > 凡人网络购物系统 2008源码程序 > Admin/ad_guanggao.asp
<!--#include file="conn.asp"-->
<!--#include file="ad_chk.asp"-->
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href=inc/css.css rel=STYLESHEET type=text/css>
<body topmargin="5" leftmargin="5" rightmargin="5" bottommargin="5">
<%
if Request.Cookies("venshop")("admin_class")<>0 then
response.write "你没有这个权限!"
response.end
end if
%>
<%
if request.QueryString("action")="save" then
banner=request("banner1")
url=request("url1")
c=request("c1")
for i=2 to 3
banner=banner&"*"&request("banner"&i)
url=url&"*"&request("url"&i)
c=c&"*"&request("c"&i)
next
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from venshop_logo",conn,1,3
rs("banner")=banner
rs("url")=url
rs("c")=c
rs.update
rs.close
set rs=nothing
call editok(editt,"ad_guanggao.asp","ad_guanggao.asp")
end if
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from venshop_logo",conn,1,1
if rs("banner")<>"" then
pic=split(rs("banner"),"*")
ulink=split(rs("url"),"*")
c=split(rs("c"),"*")
end if
%>
<table border="0" cellpadding="5" cellspacing="0" class="st">
<form name="form" method="post" action="ad_guanggao.asp?action=save">
<tr><td bgcolor="#D9D9D9" align="center" colspan="2" class="sa">首页变幻广告设置<a href="ad_ven.asp"><font color="#FF0000">（免费版仅支持3个广告，购买正式版支持最多10个）</font></a></td></tr>
<%for i=1 to 3%>
<tr><td class="s<%=i mod 2%>" align="center">变幻广告<%=i%></td>
<td class="s<%=i mod 2%>">
图片：<input type="text" name="banner<%=i%>" size="26" value="<%=pic(i-1)%>">
连接：<input type="text" name="url<%=i%>" size="26" value="<%=ulink(i-1)%>"> 文字
：<input type="text" name="c<%=i%>" size="26" value="<%=c(i-1)%>"></td>
</tr>
<tr><td class="s<%=i mod 2%>" colspan="2" align="right" >
<p style="margin-top:0; margin-bottom:0"><iframe name="I1" src="upfileother.asp?atype=banner<%=i%>" width="500" height="23" marginwidth="1" marginheight="1" scrolling="no" border="0" frameborder="0"></iframe>
</td></tr>
<%next%>
<tr><td colspan="2" style="PADDING-LEFT: 6px" bgcolor="#FFFFFF" align="center"><input type="submit" name="Submit" value="提交更改"></td></tr></form></table>
<%
rs.close
set rs=nothing
%>
<br><br>
<div class="help">
备注：首页中部自动变幻广告，支持JPG图片格式，尺寸：580×180！</div>
<!--#include file="ad_bottom.asp"-->