📄 guanggao.asp
字号:
<!--#include file="conn.asp"-->
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="../images/css2.css" rel="stylesheet" type="text/css">
</head>
<body>
<% dim action
action=request.QueryString("action")
gid=request.QueryString("gid")
set rs=server.CreateObject("adodb.recordset")
select case action
case "save_a"
rs.open "select * from shop_ggpic where ggpicid="&gid,conn,1,3
rs("ggpicpath")=trim(request("ggpicpath"))
rs("ggpicurl")=trim(request("ggpicurl"))
rs.update
rs.close
set rs=nothing
response.write "<script language=javascript>alert('A区广告修改成功！');window.location.reload('guanggao.asp?action=top')</script>"
response.End
case "save_b"
rs.open "select * from shop_ggpic where ggpicid="&gid,conn,1,3
rs("ggpicpath")=trim(request("ggpicpath"))
rs("ggpicurl")=trim(request("ggpicurl"))
rs.update
rs.close
set rs=nothing
response.write "<script language=javascript>alert('B区广告修改成功！');window.location.reload('guanggao.asp?action=mid')</script>"
response.End
case "save_c"
rs.open "select * from shop_ggpic where ggpicid="&gid,conn,1,3
rs("ggpicpath")=trim(request("ggpicpath"))
rs("ggpicurl")=trim(request("ggpicurl"))
rs.update
rs.close
set rs=nothing
response.write "<script language=javascript>alert('C区广告修改成功！');window.location.reload('guanggao.asp?action=other')</script>"
response.End
case "save_del"
conn.execute "delete from shop_ggpic where ggpicposi='Q' "
response.redirect "guanggao.asp?action=uppic"
end select
%>
<table width="90%" border="0" height=450 cellpadding="0" cellspacing="0">
<tr><td bgcolor="#ece9d8"><br>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr><td>
<table width=308 border="0" cellpadding="0" cellspacing="0">
<tr valign=bottom><% select case action
case "top"%>
<td background=images/get_img.gif width=77 height=26><P style='PADDING-LEFT: 7px'><div align="center"><font color=#ffffff>首顶广告</font></div></td>
<td background=images/lose_img.gif width=77 height=26><P style='PADDING-LEFT: 7px'><div align="center"><a href="guanggao.asp?action=mid"><font color=#000000>首中广告</font></a></div></td>
<td background=images/lose_img.gif width=77 height=26><P style='PADDING-LEFT: 7px'><div align="center"><a href="guanggao.asp?action=other"><font color=#000000>首底广告</font></a></div></td>
<td background=images/lose_img.gif width=77 height=26><P style='PADDING-LEFT: 7px'><div align="center"><a href="guanggao.asp?action=uppic"><font color=#000000>上传图片</font></a></div></td>
<%case "mid"%>
<td background=images/lose_img.gif width=77 height=26><P style='PADDING-LEFT: 7px'><div align="center"><a href="guanggao.asp?action=top"><font color=#000000>首顶广告</font></a></div></td>
<td background=images/get_img.gif width=77 height=26><P style='PADDING-LEFT: 7px'><div align="center"><font color=#ffffff>首中广告</font></div></td>
<td background=images/lose_img.gif width=77 height=26><P style='PADDING-LEFT: 7px'><div align="center"><a href="guanggao.asp?action=other"><font color=#000000>首底广告</font></a></div></td>
<td background=images/lose_img.gif width=77 height=26><P style='PADDING-LEFT: 7px'><div align="center"><a href="guanggao.asp?action=uppic"><font color=#000000>上传图片</font></a></div></td>
<%case "other"%>
<td background=images/lose_img.gif width=77 height=26><P style='PADDING-LEFT: 7px'><div align="center"><a href="guanggao.asp?action=top"><font color=#000000>首顶广告</font></a></div></td>
<td background=images/lose_img.gif width=77 height=26><P style='PADDING-LEFT: 7px'><div align="center"><a href="guanggao.asp?action=mid"><font color=#000000>首中广告</font></div></td>
<td background=images/get_img.gif width=77 height=26><P style='PADDING-LEFT: 7px'><div align="center"><font color=#ffffff>首底广告</font></div></td>
<td background=images/lose_img.gif width=77 height=26><P style='PADDING-LEFT: 7px'><div align="center"><a href="guanggao.asp?action=uppic"><font color=#000000>上传图片</font></a></div></td>
<%case "uppic"%>
<td background=images/lose_img.gif width=77 height=26><P style='PADDING-LEFT: 7px'><div align="center"><a href="guanggao.asp?action=top"><font color=#000000>首顶广告</font></a></div></td>
<td background=images/lose_img.gif width=77 height=26><P style='PADDING-LEFT: 7px'><div align="center"><a href="guanggao.asp?action=mid"><font color=#000000>首中广告</font></div></td>
<td background=images/lose_img.gif width=77 height=26><P style='PADDING-LEFT: 7px'><div align="center"><a href="guanggao.asp?action=other"><font color=#000000>首底广告</font></div></td>
<td background=images/get_img.gif width=77 height=26><P style='PADDING-LEFT: 7px'><div align="center"><font color=#ffffff>上传图片</font></a></div></td>
<%end select%>
</tr>
</table>
<%
set rs=server.CreateObject("adodb.recordset")
select case action
case "top"
rs.open "select top 4 * from shop_ggpic where ggpicposi='A' order by picaddate desc",conn,1,1%>
<table width="100%" border="1" align=center cellspacing="0" cellpadding="0" bordercolordark="#ffffff" bordercolorlight="#666666">
<tr><td>
<table width="100%" border="1" align=center cellspacing="0" cellpadding="0">
<tr><td>
<table width="100%" border="0" align=center cellspacing="0" cellpadding="3" bgcolor="#ffffff">
<tr>
<td width="13%" bgcolor="#ece9d8" align=center><b>图片ID</b></td>
<td width="13%" bgcolor="#ece9d8" align=center><b>广告位置</b></td>
<td width="28%" bgcolor="#ece9d8" align=center><b>图片名称</b></td>
<td width="33%" bgcolor="#ece9d8" align=center><b>广告预览</b></td>
<td width="13%" bgcolor="#ece9d8" align=center><b>广告大小</b></td>
</tr>
<%
do while not rs.eof
%>
<form name="form1" method="post" action="guanggao.asp?action=save_a&gid=<%=rs("ggpicid")%>"">
<tr>
<td bgcolor="#ffffff" align=center><%=trim(rs("ggpicid"))%></td>
<td bgcolor="#ffffff" align=center>首页<%=trim(rs("ggpicposi"))%></td>
<td bgcolor="#ffffff" align=center><%=trim(rs("ggpicpath"))%></td>
<td bgcolor="#ffffff" align=center><a href=<%=trim(rs("ggpicurl"))%>><img src=../<%=trim(rs("ggpicpath"))%> width=75 height=30 border=0></a></td>
<td bgcolor="#ffffff" align=center>150*140</td>
</tr>
<tr height=35>
<td colspan="5" bgcolor="#ece9d8" align=center>路径
<input name="ggpicpath" type="text" id="ggpicpath" size="28" value=<%=trim(rs("ggpicpath"))%>>
<img src="images/fangxiang.gif" border=0>链接
<input name="ggpicurl" type="text" id="ggpicurl" size="32" value=<%=trim(rs("ggpicurl"))%>>
<input name="Submit_A" type="submit" value="修改"></td>
</tr>
</form>
<%
rs.movenext
loop
%>
</table>
<br>
</tr>
</table>
</tr>
</table>
<%
case "mid"
rs.open "select top 6 * from shop_ggpic where ggpicposi='B' order by picaddate desc",conn,1,1%>
<table width="100%" border="1" align=center cellspacing="0" cellpadding="0" bordercolordark="#ffffff" bordercolorlight="#666666">
<tr><td>
<table width="100%" border="1" align=center cellspacing="0" cellpadding="0">
<tr><td>
<table width="100%" border="0" align=center cellspacing="0" cellpadding="3" bgcolor="#ffffff">
<tr>
<td width="13%" bgcolor="#ece9d8" align=center><b>图片ID</b></td>
<td width="13%" bgcolor="#ece9d8" align=center><b>广告位置</b></td>
<td width="28%" bgcolor="#ece9d8" align=center><b>图片名称</b></td>
<td width="33%" bgcolor="#ece9d8" align=center><b>广告预览</b></td>
<td width="13%" bgcolor="#ece9d8" align=center><b>广告大小</b></td>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -