📄 admin_ggg.asp
字号:
<!--#include file="../Comm/subconn.asp"-->
<%
username=request("username")
id=request("id")
action=request("action")
dim cls
if session("admin")="" then
Response.Redirect("admin.asp")
else
if session("flag")<>"0" then
cls = Instr(session("flag"), "adv")
if cls <= 0 then
%>
<script language="javascript">
if (confirm("您的操作权限不够,系统拒绝你的访问,请点确定返回,或者点取消退出重新登录"))
location.href="admin.asp";
else
location.href="quit.asp";
</script>
<%
end if
end if
end if
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href="admin.css" type="text/css">
<title>管理界面</title>
<style type="text/css"><!--
a:link {color: #FFFFFF;text-decoration: none;}
a:visited {color: #FFFFFF;text-decoration: none;}
a:hover {color: #FFFF99;text-decoration: underline;}
.b{color:#cccc99;font-size:10pt;border:dotted 1px}
--></style>
<SCRIPT LANGUAGE="JavaScript">
<!--
function CheckAll(form) {
for (var i=0;i<form.elements.length;i++) {
var e = form.elements[i];
if (e.name != 'chkall') e.checked = form.chkall.checked;
}
}
//-->
</SCRIPT>
</head>
<body topmargin="20" bgcolor="#336699" text=#ffffff>
<table border="0" cellpadding="2" cellspacing="5" style="border-collapse: collapse" bordercolor="#222222" width="772" height="150" bgcolor="#336699" align="center">
<tr><td width=125 valign="top">
<!--#include file="admin_left.asp"-->
</td><td valign="top" width=647>
<table border="1" cellpadding="2" cellspacing="4" style="border-collapse: collapse" bordercolor="#222222" width="100%">
<tr>
<td width="100%">当前位置:<a href="admin.asp">网站管理中心</a>--广告设置</td>
</tr>
<tr>
<td width="100%" align=right>
</td></tr>
<tr>
<td width="100%">
<%if action="" then
Set rs = conn.Execute("select * from ggg")
%>
<table width="580" border="1" style="border-collapse: collapse; border-style: dotted; border-width: 1px" bordercolor="#333333" cellspacing="2" cellpadding="2" align="center">
<form action=admin_ggg.asp method=post>
<tr><td colspan=2 width="568" ><font color=yellow>滚动字幕</font></td></tr>
<tr><td width=138 align=right>滚动字幕一</td><td width="422"> <input type=text value="<%=rs("zimu")%>" name=zimu size=50></td></tr>
<tr><td width=138 align=right>滚幕一链接</td><td width="422"> <input type=text value="<%=rs("zimulink")%>" name=zimulink size=50></td></tr>
<tr><td width=138 align=right>滚动字幕二</td><td width="422"> <input type=text value="<%=rs("zimu2")%>" name=zimu2 size=50></td></tr>
<tr><td width=138 align=right>字幕二链接</td><td width="422"> <input type=text value="<%=rs("zimu2link")%>" name=zimu2link size=50></td></tr>
<tr><td width=568 align=right colspan="2">
<p align="left"><font color=yellow>滚动图片</font></td></tr>
<tr><td width=138 align=right>图片一文件名</td><td width="422"> <input type=text value="<%=rs("pic1")%>" name=pic1 size=50></td></tr>
<tr><td width=138 align=right>链接</td><td width="422"> <input type=text value="<%=rs("pic1_lnk")%>" name=pic1_lnk size=50></td></tr>
<tr><td width=138 align=right>说明</td><td width="422"> <input type=text value="<%=rs("tit1")%>" name=tit1 size=50></td></tr>
<tr><td width=138 align=right>图片二文件名</td><td width="422"> <input type=text value="<%=rs("pic2")%>" name=pic2 size=50></td></tr>
<tr><td width=138 align=right>链接</td><td width="422"> <input type=text value="<%=rs("pic2_lnk")%>" name=pic2_lnk size=50></td></tr>
<tr><td width=138 align=right>说明</td><td width="422"> <input type=text value="<%=rs("tit2")%>" name=tit2 size=50></td></tr>
<tr><td width=138 align=right>图片三文件名</td><td width="422"><input type=text value="<%=rs("pic3")%>" name=pic3 size=50></td></tr>
<tr>
<td width=138 align=right>链接</td><td width="422"> <input type=text value="<%=rs("pic3_lnk")%>" name=pic3_lnk size=50></td>
</tr>
<tr><td width=138 align=right>说明</td><td width="422"> <input type=text value="<%=rs("tit3")%>" name=tit3 size=50></td></tr>
<tr><td width=138 align=right>图片四文件名</td><td width="422"> <input type=text value="<%=rs("pic4")%>" name=pic4 size=50></td></tr>
<tr><td width=138 align=right>链接</td><td width="422"> <input type=text value="<%=rs("pic4_lnk")%>" name=pic4_lnk size=50></td></tr>
<tr><td width=138 align=right>说明</td><td width="422"> <input type=text value="<%=rs("tit4")%>" name=tit4 size=50></td></tr>
<tr><td colspan=2 width="568" ><font color=yellow>横幅广告</font></td></tr>
<tr>
<td width=138 align=right>页顶横幅文件名</td><td width="422"> <input type=text value="<%=rs("hfpic")%>" name=hfpic size=50></td>
</tr>
<tr>
<td width=138 align=right>链接</td><td width="422"> <input type=text value="<%=rs("hfurl")%>" name=hfurl size=50></td>
</tr>
<tr>
<td width=138 align=right>说明</td><td width="422"> <input type=text value="<%=rs("hftit")%>" name=hftit size=50></td>
</tr>
<tr>
<td width=138 align=right>页中横幅文件名</td><td width="422"> <input type=text value="<%=rs("hf2pic")%>" name=hf2pic size=50></td>
</tr>
<tr>
<td width=138 align=right>链接</td><td width="422"> <input type=text value="<%=rs("hf2url")%>" name=hf2url size=50></td>
</tr>
<tr>
<td width=138 align=right>说明</td><td width="422"> <input type=text value="<%=rs("hf2tit")%>" name=hf2tit size=50></td>
</tr>
<tr>
<td width=560 align=right colspan="2">
<p align="left"><font color="yellow">飘浮广告</font></td>
</tr>
<tr>
<td width=138 align=right>是否启动飘浮广告</td><td width="422"> 否
<%
if rs("piaofu")=0 then
%>
<input type="radio" value="0" checked name="piaofu"> 是<input type="radio" value="1" name="piaofu"></td>
<%
else
%>
<input type="radio" value="0" name="piaofu"> 是<input type="radio" value="1" checked name="piaofu">
<%
end if
%>
</tr>
<tr>
<td width=138 align=right>图片文件名</td><td width="422"> <input type=text value="<%=rs("piaofupic")%>" name=piaofupic size=50></td>
</tr>
<tr>
<td width=138 align=right>链接</td><td width="422"> <input type=text value="<%=rs("piaofuurl")%>" name=piaofuurl size=50></td>
</tr>
<tr>
<td width=138 align=right>说明</td><td width="422"> <input type=text value="<%=rs("piaofutit")%>" name=piaofutit size=50></td>
</tr>
<tr><td colspan=2 width="568" ><INPUT name=action TYPE="submit" value="更新"></td></tr>
</form></table>
<%
rs.close
conn.close
set rs=nothing
set conn=nothing
end if%>
<%
if action="更新" then
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from ggg"
rs.open sql,conn,1,3
rs("zimu")=request.form("zimu")
rs("zimulink")=request.form("zimulink")
rs("zimu2")=request.form("zimu2")
rs("zimu2link")=request.form("zimu2link")
rs("pic1")=request.form("pic1")
rs("pic1_lnk")=request.form("pic1_lnk")
rs("tit1")=request.form("tit1")
rs("pic2")=request.form("pic2")
rs("pic2_lnk")=request.form("pic2_lnk")
rs("tit2")=request.form("tit2")
rs("pic3")=request.form("pic3")
rs("pic3_lnk")=request.form("pic3_lnk")
rs("tit3")=request.form("tit3")
rs("pic4")=request.form("pic4")
rs("pic4_lnk")=request.form("pic4_lnk")
rs("tit4")=request.form("tit4")
rs("hfpic")=request.form("hfpic")
rs("hfurl")=request.form("hfurl")
rs("hftit")=request.form("hftit")
rs("hf2pic")=request.form("hf2pic")
rs("hf2url")=request.form("hf2url")
rs("hf2tit")=request.form("hf2tit")
rs("piaofu")=request.form("piaofu")
rs("piaofupic")=request.form("piaofupic")
rs("piaofuurl")=request.form("piaofuurl")
rs("piaofutit")=request.form("piaofutit")
rs.update
url="admin_ggg.asp"
rs.close
set rs=nothing
response.write "<script language='javascript'>"
response.write "alert('广告信息更新成功！');"
response.write "location.href='"&url&"';"
response.write "</script>"
end if%>
</td></tr>
</table>
</td></tr>
</table>
</body></html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -