www.gusucode.com > 运动用品商城网站系统源代码程序 > feyok/ad_mingg2.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("nsort")="" 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("nsort")=request("nsort")
rs.update
rs.close
set rs=nothing
call addok(addt,"ad_mingg2.asp","ad_mingg2.asp")
elseif request("types")="mod" then
id=request("id")
if request("banner")="" or request("url")="" or request("nsort")="" 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("nsort")=request("nsort")
rs.update
rs.close
set rs=nothing
call editok(editt,"ad_mingg2.asp","ad_mingg2.asp")
elseif request("types")="del" then
id=request("id")
conn.execute "delete from venshop_logo where id="&id&""
call deleok(delet,"ad_mingg2.asp")
else
%>
<table border="0" cellpadding="5" cellspacing="0" class="st">
<form action="ad_mingg2.asp?types=addname" method=post name="form">
<tr><td colspan="2" align="center" class="sa">新增小类广告</td></tr>
<tr><td align="center" valign="top">图片地址：</td>
<td 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" class="s0">链接地址：</span></td><td class="s0">
<input type="text" name="url" size="50" value="http://www.norshop.cn"></td></tr>
<tr><td align="center">类别序号：</td><td>
<select name="nsort" size="1"style="font-size: 9pt"><option value="" selected>选择分类</option>
<%set rs=server.createobject("adodb.recordset")
sql="select * from venshop_nsort"
rs.open sql,conn,1,1
Do while not rs.eof
response.write "<option value='" + Cstr(rs("nsort_id")) + "'>" + rs("nsort_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 nsort<>0"
rs.open sql,conn,1,1
i=0
do while not rs.eof
i=i+1
%>
<form method=post action="ad_mingg2.asp?types=mod&id=<%=trim(rs("id"))%>">
<tr>
<td align="center" class="<%=i mod 2%>">
<input type="text" name="banner" value="<%=trim(rs("banner"))%>" size="30"></td>
<td align="center" class="<%=i mod 2%>">
<input type="text" name="url" value="<%=trim(rs("url"))%>" size="30"></td>
<td align="center" class="<%=i mod 2%>">
<%nsort=rs("nsort")
set rss=server.createobject("adodb.recordset")
sql="select * from venshop_nsort where nsort_id="&nsort&""
rss.open sql,conn,1,1
if rss.eof and rs.bof then
response.write "<font color=red>该类别已经被删除，请更改类别或者删除广告</font>"
else%>
<%=rss("nsort_name")%>
<%end if
rss.close
set rss=nothing%></td>
<td align="center" class="<%=i mod 2%>">
<select name="nsort" size="1"style="font-size: 9pt">
<option value="<%=nsort%>" selected>选择分类</option>
<%set rss=server.createobject("adodb.recordset")
sql="select * from venshop_nsort"
rss.open sql,conn,1,1
Do while not rss.eof
response.write "<option value='" + Cstr(rss("nsort_id")) + "'>" + rss("nsort_name") + "</option>"
rss.MoveNext
Loop
rss.close
set rss=nothing%></select></td>
<td align="center" class="<%=i mod 2%>"><input type="submit" name="modify" value="修改"></td>
<td align="center" class="<%=i mod 2%>"><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"-->