www.gusucode.com > 凡人网络购物系统 2008源码程序 > Admin/ad_mingg.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("types")="addname" then
if request("banner")="" or request("url")="" or request("sort")="" then
response.write "图片地址链接均不能为空，分类必须选择 <a href=# onClick=history.go(-1)><font color=#ff0000>返回</font></a>"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from venshop_logo"
rs.open sql,conn,1,3
rs.addnew
rs("banner")=request("banner")
rs("url")=request("url")
rs("sort")=request("sort")
rs.update
rs.close
set rs=nothing
call addok(addt,"ad_mingg.asp","ad_mingg.asp")
elseif request("types")="mod" then
id=request("id")
if request("banner")="" or request("url")="" or request("sort")="" then
response.write "图片地址链接均不能为空 <a href=# onClick=history.go(-1)><font color=#ff0000>返回</font></a>"
response.end
end if
set rs=server.createobject("adodb.recordset")
sql="select * from venshop_logo where id="&id&""
rs.open sql,conn,1,3
rs("banner")=request("banner")
rs("url")=request("url")
rs("sort")=request("sort")
rs.update
rs.close
set rs=nothing
call editok(editt,"ad_mingg.asp","ad_mingg.asp")
elseif request("types")="del" then
id=request("id")
conn.execute "delete from venshop_logo where id="&id&""
call deleok(delet,"ad_mingg.asp")
else
%>
<table border="0" cellpadding="5" cellspacing="0" class="st">
<form action="ad_mingg.asp?types=addname" method=post name="form">
<tr><td colspan="2" align="center" class="sa">新增大类广告</td></tr>
<tr><td bgcolor="#FFFFFF" align="center" valign="top">图片地址：</td>
<td bgcolor="#FFFFFF" valign="top">
<input type="text" name="banner" size="50" value="img/banner1.gif"><br>
<iframe name="I1" src="upfileother.asp?atype=banner" width="587" height="26" marginwidth="1" marginheight="1" scrolling="no" border="0" frameborder="0"></iframe></td></tr>
<tr><td align="center" valign="top" class="s0">链接地址：</span></td>
<td valign="top" class="s0">
<input type="text" name="url" size="50" value="http://www.venshop.com"></td></tr>
<tr><td bgcolor="#FFFFFF" align="center" valign="top">类别序号：</td>
<td bgcolor="#FFFFFF" valign="top"><select name="sort" size="1"style="font-size: 9pt"><option value="" selected>选择分类</option>
<%set rs=server.createobject("adodb.recordset")
sql="select * from venshop_sort"
rs.open sql,conn,1,1
Do while not rs.eof
response.write "<option value='" + Cstr(rs("sort_id")) + "'>" + rs("sort_name") + "</option>"
rs.MoveNext
Loop
rs.close
set rs=nothing%></select></td></tr>
<tr><td colspan="2" class="s0">
<input type="submit" name="addname" value=" 提交 "></td></tr>
</form></table>
<br>
<table border="0" cellpadding="5" cellspacing="0" class="st"><tr>
<td align="center" class="sa" colspan="6">大类广告管理</td>
</tr>
<tr>
<td align="center" class="s0">图片地址</td>
<td align="center" class="s0">链接</td>
<td align="center" class="s0">现在类别</td>
<td align="center" class="s0">类别修改</td>
<td align="center" class="s0">修改</td>
<td align="center" class="s0">删除</td></tr>
<%set rs=server.createobject("adodb.recordset")
sql="select * from venshop_logo where sort<>0"
rs.open sql,conn,1,1
i=0
do while not rs.eof
i=i+1
%>
<form method=post action="ad_mingg.asp?types=mod&id=<%=trim(rs("id"))%>">
<tr>
<td align="center" bgcolor="#FFFFFF">
<input type="text" name="banner" value="<%=trim(rs("banner"))%>" size="30"></td>
<td align="center" bgcolor="#FFFFFF">
<input type="text" name="url" value="<%=trim(rs("url"))%>" size="30"></td>
<td align="center" bgcolor="#FFFFFF">
<%sort=rs("sort")
set rss=server.createobject("adodb.recordset")
sql="select * from venshop_sort where sort_id="&sort&""
rss.open sql,conn,1,1
if rss.eof and rs.bof then
response.write "<font color=red>该类别已经被删除，请更改类别或者删除广告</font>"
else%><%=rss("sort_name")%><%end if
rss.close
set rss=nothing
%></td><td align="center" bgcolor="#FFFFFF"><select name="sort" size="1"style="font-size: 9pt">
<option value="<%=sort%>" selected>选择分类</option>
<%set rss=server.createobject("adodb.recordset")
sql="select * from venshop_sort"
rss.open sql,conn,1,1
Do while not rss.eof
response.write "<option value='" + Cstr(rss("sort_id")) + "'>" + rss("sort_name") + "</option>"
rss.MoveNext
Loop
rss.close
set rss=nothing%></select></td>
<td align="center" bgcolor="#FFFFFF"><input type="submit" name="modify" value="修改"></td>
<td align="center" bgcolor="#FFFFFF"><input onclick="javascript:window.open('<%=filename%>?types=del&id=<%=trim(rs("id"))%>','_self','')" type="button" value="删除"></td></tr></form>
<%
rs.MoveNext
Loop
rs.close
set rs=nothing
end if
%></table>
<br>
<div class="help">
备注：<br>大类广告显示在每个大类推荐商品下面位置，每个分类下可以添加多个广告，广告尺寸：775*80</div><!--#include file="ad_bottom.asp"-->