⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 admin_ads.asp

📁 浪人文章系统
💻 ASP
📖 第 1 页 / 共 2 页
字号:
🔍
12 
<%OPTION EXPLICIT%>
<!--#include file="Include/Config.asp"-->
<!--#include file="Include/SQLAdmin.asp"-->
<!--#include file="Include/Conn.asp"-->
<!--#include file="Include/IPLockAdmin.asp"-->
<%dim Admin_Purview:Admin_Purview="1"%>

<html>
<head>
<title>网站广告管理</title>
<meta http-equiv="Content-Type" content="text/html;charset=gb2312">
<meta http-equiv="Content-Language" Content="zh-CN">
<meta name="Keywords" Content="">
<meta name="Description" Content="">
<link type="text/css" rel="stylesheet" href="Include/Style.css">
<Script Language="JavaScript" src="Include/Function.js"></Script>
<Script Language="JavaScript" src="Include/PopText.js"></Script>
<Script Language="JavaScript">
<!--
function Ad_Type_Select() {
 if (document.Admin_Ads.Ad_Type.value=="1") {
	JS_M_Ad_Type.innerHTML="<font color=#0000FF>所有页面顶部，两个广告位置</font>"
	document.Admin_Ads.Ad_Picture.value="Images/Ads1-1.jpg"
	document.Admin_Ads.Ad_PictureWidth.value="468"
	document.Admin_Ads.Ad_PictureHeight.value="60"
	JS_M_Ad_PWH.innerHTML="<font color=#0000FF>两种规格:468*60 和 130*60</font>"
	document.Admin_Ads.Ad_Note.value="顶部广告"
	}
 if (document.Admin_Ads.Ad_Type.value=="2") {
	JS_M_Ad_Type.innerHTML="<font color=#0000FF>导航栏下的横幅广告，一个或多个</font>"
	document.Admin_Ads.Ad_Picture.value="Images/Ads2.jpg"
	document.Admin_Ads.Ad_PictureWidth.value="780"
	document.Admin_Ads.Ad_PictureHeight.value="60"
	JS_M_Ad_PWH.innerHTML="<font color=#0000FF>宽≤780，高不限</font>"
	document.Admin_Ads.Ad_Note.value="导航栏下的横幅广告"
	}
 if (document.Admin_Ads.Ad_Type.value=="3") {
	JS_M_Ad_Type.innerHTML="<font color=#0000FF>页面漂浮广告，一个位置</font>"
	document.Admin_Ads.Ad_Picture.value="Images/Ads3.jpg"
	document.Admin_Ads.Ad_PictureWidth.value="100"
	document.Admin_Ads.Ad_PictureHeight.value="100"
	JS_M_Ad_PWH.innerHTML="<font color=#0000FF>宽高≤100，太大影响页面</font>"
	document.Admin_Ads.Ad_Note.value="页面漂浮广告"
	}
 if (document.Admin_Ads.Ad_Type.value=="4") {
	JS_M_Ad_Type.innerHTML="<font color=#0000FF>页面左右两边对联广告</font>"
	document.Admin_Ads.Ad_Picture.value="Images/Ads4.jpg"
	document.Admin_Ads.Ad_PictureWidth.value="100"
	document.Admin_Ads.Ad_PictureHeight.value="300"
	JS_M_Ad_PWH.innerHTML="<font color=#0000FF>宽≤100</font>"
	document.Admin_Ads.Ad_Note.value="对联广告"
	}
 if (document.Admin_Ads.Ad_Type.value=="5") {
	JS_M_Ad_Type.innerHTML="<font color=#0000FF>文章内容右上角广告</font>"
	document.Admin_Ads.Ad_Picture.value="Images/Ads5.jpg"
	document.Admin_Ads.Ad_PictureWidth.value="250"
	document.Admin_Ads.Ad_PictureHeight.value="250"
	JS_M_Ad_PWH.innerHTML="<font color=#0000FF>宽≤250，一个或多个，总高≤250</font>"
	document.Admin_Ads.Ad_Note.value="文章内容右上角广告"
	}
 if (document.Admin_Ads.Ad_Type.value=="6") {
	JS_M_Ad_Type.innerHTML="<font color=#0000FF>文章内容底部广告</font>"
	document.Admin_Ads.Ad_Picture.value="Images/Ads6.jpg"
	document.Admin_Ads.Ad_PictureWidth.value="530"
	document.Admin_Ads.Ad_PictureHeight.value="60"
	JS_M_Ad_PWH.innerHTML="<font color=#0000FF>宽≤530，高不限，一个或多个</font>"
	document.Admin_Ads.Ad_Note.value="文章内容底部广告"
	}
 if (document.Admin_Ads.Ad_Type.value=="7") {
	JS_M_Ad_Type.innerHTML="<font color=#0000FF>文章搜索表单下面的广告</font>"
	document.Admin_Ads.Ad_Picture.value="Images/Ads7.jpg"
	document.Admin_Ads.Ad_PictureWidth.value="180"
	document.Admin_Ads.Ad_PictureHeight.value="60"
	JS_M_Ad_PWH.innerHTML="<font color=#0000FF>宽≤180，高不限，一个或多个</font>"
	document.Admin_Ads.Ad_Note.value="搜索表单下的广告"
	}
 if (document.Admin_Ads.Ad_Type.value=="8") {
	JS_M_Ad_Type.innerHTML="<font color=#0000FF>页面底部横幅广告，一个或多个</font>"
	document.Admin_Ads.Ad_Picture.value="Images/Ads8.jpg"
	document.Admin_Ads.Ad_PictureWidth.value="780"
	document.Admin_Ads.Ad_PictureHeight.value="60"
	JS_M_Ad_PWH.innerHTML="<font color=#0000FF>宽≤780，高不限</font>"
	document.Admin_Ads.Ad_Note.value="页面底部横幅广告"
	}
}
//-->
</Script>

<Script Language="JavaScript">
<!--
function Admin_Ads_Check() {
 if (document.Admin_Ads.Ad_Name.value=="") {
	JS_M_Ad_Name.innerHTML="<font color=#FF0000>请填写广告名称</font>"
	document.Admin_Ads.Ad_Name.focus();
	return (false);
	}
 if (document.Admin_Ads.Ad_Type.value=="") {
	JS_M_Ad_Type.innerHTML="<font color=#FF0000>请选择广告投放位置</font>"
	document.Admin_Ads.Ad_Type.focus();
	return (false);
	}
 if (document.Admin_Ads.Ad_Picture.value=="") {
	JS_M_Ad_Picture.innerHTML="<font color=#FF0000>请填写广告图片的地址</font>"
	document.Admin_Ads.Ad_Picture.focus();
	return (false);
	}
 if (document.Admin_Ads.Ad_PictureWidth.value=="") {
	JS_M_Ad_PWH.innerHTML="<font color=#FF0000>请填写广告图片的宽度</font>"
	document.Admin_Ads.Ad_PictureWidth.focus();
	return (false);
	}
 if (document.Admin_Ads.Ad_PictureHeight.value=="") {
	JS_M_Ad_PWH.innerHTML="<font color=#FF0000>请填写广告图片的高度</font>"
	document.Admin_Ads.Ad_PictureHeight.focus();
	return (false);
	}
 if (document.Admin_Ads.Ad_Href.value=="") {
	JS_M_Ad_Href.innerHTML="<font color=#FF0000>请填写广告指向的网址</font>"
	document.Admin_Ads.Ad_Href.focus();
	return (false);
	}
 if (document.Admin_Ads.Ad_Order.value=="") {
	JS_M_Ad_Order.innerHTML="<font color=#FF0000>请填写广告排序代码</font>"
	document.Admin_Ads.Ad_Order.focus();
	return (false);
	}
	return true;
}
//-->
</Script>

</head>

<body bgcolor="#FFFFFF" topmargin="10" leftmargin="10">

<!--#include file="Include/Session.asp"-->

<%
dim GuSystemError,GuSystemCode,GuSystemMessage,GuSystemURL
dim Ad_Name,Ad_Picture,Ad_PictureWidth,Ad_PictureHeight,Ad_Title,Ad_Href,Ad_Type,Ad_Order,Ad_Note,Ad_Username,Ad_IP
dim isAdsModify

if Trim(Request.Form("GuComm"))="AdSa" or Trim(Request.Form("GuComm"))="MoSa" then

	if Trim(Request.Form("Ad_Name"))="" then
		GuSystemError=true
		GuSystemCode=3
		GuSystemMessage="没有填写广告名称"
		call GuMessage()

	elseif Trim(Request.Form("Ad_Type"))="" then
  		GuSystemError=true
		GuSystemCode=3
		GuSystemMessage="没有选择广告投放的位置"
		call GuMessage()

	elseif Trim(Request.Form("Ad_Picture"))="" then
  		GuSystemError=true
		GuSystemCode=3
		GuSystemMessage="没有填写广告图片的地址"
		call GuMessage()

	elseif Trim(Request.Form("Ad_PictureWidth"))="" or Trim(Request.Form("Ad_PictureHeight"))="" then
  		GuSystemError=true
		GuSystemCode=3
		GuSystemMessage="没有填写广告图片的宽或高"
		call GuMessage()

	elseif Trim(Request.Form("Ad_Href"))="" then
  		GuSystemError=true
		GuSystemCode=3
		GuSystemMessage="没有填写广告指向的网址"
		call GuMessage()

	elseif Trim(Request.Form("Ad_Order"))="" then
  		GuSystemError=true
		GuSystemCode=3
		GuSystemMessage="没有填写广告排列的代码"
		call GuMessage()

	else
		Ad_Name=Trim(Request.Form("Ad_Name"))
		Ad_Picture=Trim(Request.Form("Ad_Picture"))
		Ad_PictureWidth=Trim(Request.Form("Ad_PictureWidth"))
		Ad_PictureHeight=Trim(Request.Form("Ad_PictureHeight"))
		Ad_Title=Trim(Request.Form("Ad_Title"))
		Ad_Href=Trim(Request.Form("Ad_Href"))
		Ad_Type=Trim(Request.Form("Ad_Type"))
		Ad_Order=Trim(Request.Form("Ad_Order"))
		Ad_Note=Trim(Request.Form("Ad_Note"))
		Ad_Username=GuAdminUsername
		Ad_IP=GuUserIP

		if Request.Form("GuComm")="AdSa" then
			Call AdsAddSave()
		else
			Call AdsModifySave()
		end if
	end if
	
elseif Trim(Request.Form("GuComm"))="De" then

	Call AdsDelete()

elseif Trim(Request.QueryString("GuComm"))="Mo" then

	isAdsModify=True
	Call Admin_Ads(isAdsModify)

else
	isAdsModify=False
	Call Admin_Ads(isAdsModify)
	
end if


Sub AdsAddSave()

	dim rsAd1
	set rsAd1=Server.CreateObject("Adodb.RecordSet")
	rsAd1.open "select * from "&GuTablePrefix&"_Ads where Ad_Name='"&Trim(Request.Form("Ad_Name"))&"' and Ad_Type='"&Trim(Request.Form("Ad_Type"))&"'",GuConn,1,1
	if not(rsAd1.bof and rsAd1.eof) then
		GuSystemError=true
		GuSystemCode=3
		GuSystemMessage="同一广告位置已有相同的广告名称存在"
	else
		dim rsAdA
		set rsAdA=Server.CreateObject("Adodb.RecordSet")
		rsAdA.open "select * from "&GuTablePrefix&"_Ads",GuConn,1,3
		GuSQL="select * from "&GuTablePrefix&"_Ads where (Ad_ID is null)"
		rsAdA.addnew
12

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -