ad_mingg.asp

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>

<%
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
  response.write "添加成功, <a href=ad_mingg.asp><font color=#ff0000>返回</font></a>"
  response.end
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
  response.write "修改成功, <a href=ad_mingg.asp><font color=#ff0000>返回</font></a>"
  response.end
elseif request("types")="del" then
 id=request("id")
 conn.execute "delete from venshop_logo where id="&id&""
 response.write "删除成功, <a href=ad_mingg.asp><font color=#ff0000>返回</font></a>"
 response.end
else
%>
<table border="0" cellspacing="1" cellpadding="5" bgcolor="#C8C8C8"><form action="ad_mingg.asp?types=addname" method=post name="form">
<tr><td colspan="2" bgcolor="#F0F0F0" align="center">新增大类广告</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 bgcolor="#FFFFFF" align="center" valign="top">链接地址：</span></td>
	<td bgcolor="#FFFFFF" valign="top">
	<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" bgcolor="#FFFFFF" align="center"><input type="submit" name="addname" value="提交"></td></tr>
</form></table>
<br>
<table border="0" cellspacing="1" cellpadding="5" bgcolor="#C8C8C8"><tr>
<td align="center" bgcolor="#F0F0F0">图片地址</td>
<td align="center" bgcolor="#F0F0F0">链接</td>
<td align="center" bgcolor="#F0F0F0">现在类别</td>
<td align="center" bgcolor="#F0F0F0">类别修改</td>
<td align="center" bgcolor="#F0F0F0">修改</td>
<td align="center" bgcolor="#F0F0F0">删除</td></tr>
<%set rs=server.createobject("adodb.recordset")
sql="select * from venshop_logo where sort<>0"
rs.open sql,conn,1,1
if rs.eof and rs.bof then 
response.write "<tr><td align=center bgcolor=#FFFFFF colspan=7>NO DATA</td></tr>" 
else 
Do while not rs.eof%>
<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
end if
rs.close
set rs=nothing
end if
conn.close
set conn=nothing%></table>
<br>
<div class="help">
备注：<br>大类广告显示在每个大类推荐商品下面位置，每个分类下可以添加多个广告</div><table cellSpacing="0" cellPadding="3" border="0" width="500"><tr><td height="20"></td></tr>
<tr><td bgcolor="#F2F2F2"><p style="LINE-HEIGHT: 150%"><font color="#FF0000">凡人网络购物系统V8.0 版权所有:</font><a target="_blank" href="http://www.venshop.com"><font color="#FF0000">凡人网络VenShop.Com</font></a><font color="#FF0000"><br>客服电话:[phone]&nbsp; QQ:739202/57152557 Email/Msn:</font><a href="mailto:[e-mail]"><font color="#FF0000">[e-mail]</font></a></td>
</tr></table>