admin_ad.asp
来自「安全性好,适用于制作论坛和进行资源下载的个人和大型网站使用!」· ASP 代码 · 共 383 行 · 第 1/2 页
ASP
383 行
<!--#include file="mdb.asp"-->
<%Admin="ad"%>
<!--#include file="check.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/format.asp"-->
<% Set rs = Server.CreateObject("ADODB.Recordset") %>
<%
'****************************************************
' Hxcms Ver7.5 Power by Hx66.net
' Web: http://www.Hx66.net,http://www.Hx66.net/home
' Copyright (C) 2006 Hx66.net All Rights Reserved.
'****************************************************
if session("adminlogin")<>sessionvar then
Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.top.location.href='admin.asp';</script>")
response.end
end if%>
<html>
<title>Hxcms网站广告管理</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="inc/admin.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function hx66_AdCheck(){
if (document.Advertise.AD_Title.value==""){
alert("广告标题不能为空！");
return false;
}
return true;
}
//-->
</script>
</head>
<body>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<tr>
<td colspan="2" class=Hxcmsss>网站广告管理</font></td>
</tr>
<tr>
<td height="20" align="center" class=Hxcmsqs><a href="Admin_AD.asp?action=Add">添加广告</a>
| <a href="Admin_AD.asp">管理广告</a></td>
</tr>
</table>
<%
if request("action")="Add" then
%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<form action="Admin_AD.asp?Action=Save" method="post" name="Advertise" id="Advertise">
<tr>
<td height="24" colspan=2 align=center bgcolor="#F6F6F6">添 加 广 告</td>
</tr>
<tr class=Hxcmsqs>
<td width="19%" height="24" align="center">广告位置:</td>
<td width="81%"> <input name="AD_Title" type="text" id="AD_Title" size="50"> </td>
</tr>
<tr class=Hxcmsds>
<td height="24" align="center">广告图片:</td>
<td><input name="AD_Pic" type="text" id="AD_Pic" size="50"></td>
</tr>
<tr class=Hxcmsds>
<td height="24" align="center">广告宽度:</td>
<td><input name="AD_width" type="text" id="AD_width" size="10"></td>
</tr>
<tr class=Hxcmsds>
<td height="24" align="center">广告高度:</td>
<td><input name="AD_height" type="text" id="AD_height" size="10"></td>
</tr>
<tr class=Hxcmsds>
<td height="24" align="center">广告链接:</td>
<td><input name="AD_Http" type="text" id="AD_Http" size="50"></td>
</tr>
<tr class=Hxcmsds>
<td height="24" align="center">提示文字:</td>
<td><input name="AD_Alt" type="text" id="AD_Alt" size="50"></td>
</tr>
<tr class=Hxcmsds>
<td height="23"> <div align="center">是否FLASH:</div></td>
<td height="23"><input name="ad_flash" type="checkbox" id="ad_flash" style="border:0px" value="True">
<font color="#808080">图片是否FLASH。选中为是，广告链接和新窗打开不用填。</font></td>
</tr>
<tr class=Hxcmsds>
<td height="23"><div align="center">新窗打开:</div></td>
<td height="23"><input name="blank" type="checkbox" id="blank" style="border:0px" value="True">
<font color="#808080">链接是否在新窗口打开，选中为是。</font></td>
</tr>
<tr class=Hxcmsds>
<td>
<div align="center">广告时间:</div></td>
<td><input name="AD_StopTime" type="text" id="AD_StopTime" size="5" value="30"> 天</td>
</tr>
<tr class=Hxcmsds>
<td height="93">
<div align="center">广告说明:</div></td>
<td> <textarea name="AD_Note" cols="50" rows="5" id="AD_Note"></textarea>
</td>
</tr>
<tr class=Hxcmsqs>
<td height="24" colspan=2 align=center> <input type="submit" name="Add" value="添加" onClick="return hx66_AdCheck">
<input type="reset" name="Reset" value="清除"></td>
</tr>
</table>
</form>
<%
end if
if request("action")="Edit" then
AD_ID=request.querystring("AD_ID")
If AD_ID ="" Then response.redirect"Admin_AD.asp" : End If
rs.Open "Select * From Advertise where AD_ID="&AD_ID, conn,3,3
%>
<table align="center" width="98%" align="center" border="1" cellspacing="0" cellpadding="4" class=Hxcmsbk style="border-collapse: collapse">
<form action="Admin_AD.asp?Action=Modify" method="POST" name="Advertise" id="Advertise">
<tr bgcolor="#F6F6F6">
<td height="24" colspan=2 align=center>修 改 广 告</td>
</tr>
<tr class=Hxcmsds>
<td width="114" height="23"> <div align="center">广告位置:</div></td>
<td width="365" height="23"> <input name="AD_Title" type="text" id="AD_Title" value="<%=rs("AD_Title")%>" size="50">
<input name=AD_ID type=hidden id="AD_ID" value="<%=rs("AD_ID")%>">
</td>
</tr>
<tr class=Hxcmsds>
<td height="24" align="center">广告图片:</td>
<td><input name="AD_Pic" type="text" id="AD_Pic" value="<%=rs("AD_Pic")%>" size="50"></td>
</tr>
<tr class=Hxcmsds>
<td height="24" align="center">广告链接:</td>
<td><input name="AD_Http" type="text" id="AD_Http" value="<%=rs("AD_Http")%>" size="50"></td>
</tr>
<tr class=Hxcmsds>
<td height="24" align="center">提示文字:</td>
<td><input name="AD_Alt" type="text" id="AD_Alt" value="<%=rs("AD_Alt")%>" size="50"></td>
</tr>
<tr class=Hxcmsds>
<td height="23"> <div align="center">是否FLASH:</div></td>
<td height="23"><input name="ad_flash" type="checkbox" id="ad_flash" style="border:0px" value="True" <% if Rs("ad_flash")=True then%>checked<%end if%>>
<font color="#808080">图片是否FLASH。选中为是，广告链接和新窗打开不用填。</font></td>
</tr>
<tr class=Hxcmsds>
<td height="23"> <div align="center">新窗打开:</div></td>
<td height="23"><input name="blank" type="checkbox" id="blank" style="border:0px" value="True" <% if Rs("blank")=True then%>checked<%end if%>>
<font color="#808080">链接是否在新窗口打开，选中为是。</font></td>
</tr>
<tr class=Hxcmsds>
<td height="24" align="center">广告宽度:</td>
<td><input name="AD_width" type="text" id="AD_width" value="<%=rs("AD_width")%>" size="10"></td>
</tr>
<tr class=Hxcmsds>
<td height="24" align="center">广告高度:</td>
<td><input name="AD_height" type="text" id="AD_height" value="<%=rs("AD_height")%>" size="10"></td>
</tr>
<tr class=Hxcmsds>
<td height="24" align="center">关闭广告:</td>
<td><input name="AD_on" type="checkbox" id="AD_on" value="1" <%if rs("AD_on")=1 then response.write "checked" end if%>> 选中为关闭此广告</td>
</tr>
<tr class=Hxcmsds>
<td height="24" align="center">更新广告:</td>
<td><input name="AD_news" type="checkbox" id="AD_news" value="1" checked> 选中为更新发表时间</td>
</tr>
<tr class=Hxcmsds>
<td>
<div align="center">到期时间:</div></td>
<td><input name="AD_StopTime" type="text" id="AD_StopTime" value="<%=rs("AD_StopTime")%>" size="12"> 格式：2005-12-3</td>
</tr>
<tr class=Hxcmsds>
<td height="81"> <div align="center">广告说明:</div></td>
<td> <textarea name="AD_Note" cols="50" rows="5" id="AD_Note"><%=rs("AD_Note")%></textarea>
</td>
</tr>
<tr class=Hxcmsqs>
<td height="24" colspan=2 align=center> <input type="submit" name="Submit" value="修改" onClick="return hx66_AdCheck">
<input type="reset" name="reset" value="清除"></td>
</tr>
</table>
</form>
<% end if %>
<%
if request("action") = "" then
If Request.QueryString("CurPage") = "" or Request.QueryString("CurPage") = 0 then
CurPage = 1
Else
CurPage = CINT(Request.QueryString("CurPage"))
End If
rs.Open "Select * From Advertise Order By AD_ID DESC", conn, 1,1
if rs.eof and rs.bof then
Response.Write("<p align='center'>暂时没有任何记录！</p>")
else
RS.PageSize=20 '设置每页记录数
Dim TotalPages
TotalPages = RS.PageCount
If CurPage>RS.Pagecount Then
CurPage=RS.Pagecount
end if
⌨️ 快捷键说明
复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?