📄 ads_add.asp

📁 后台目录:qwbAdmin/Login.asp 登陆用户名:admin 登陆密码:admin
💻 ASP
📖 第 1 页 / 共 3 页
字号:
12 3 下一页
<!--#include file="../../FS_Inc/Const.asp" -->
<!--#include file="../../FS_Inc/Function.asp"-->
<!--#include file="../../FS_InterFace/MF_Function.asp" -->
<!--#include file="../../FS_InterFace/NS_Function.asp" -->
<!--#include file="../../FS_Inc/md5.asp" -->
<!--#include file="Cls_Ads.asp"-->
<%'Copyright (c) 2006 Foosun Inc. Code by 邓西
response.buffer=true	
Response.CacheControl = "no-cache"
Dim Conn,User_Conn
MF_Default_Conn
MF_Session_TF 
if not MF_Check_Pop_TF("AS_site") then Err_Show
if not MF_Check_Pop_TF("AS001") then Err_Show
Dim int_RPP,int_Start,int_showNumberLink_,str_nonLinkColor_,toF_,toP10_,toP1_,toN1_,toN10_,toL_,showMorePageGo_Type_
Dim Page,cPageNo,str_CurrPath,sRootDir,str_AdOpType,str_ShowType,str_AdsType
str_AdOpType=Request.QueryString("OpType")
Dim o_Ad_Rs,strShowErr,o_Crs,strLock,lng_TempAdID,lng_TempLoopAdID,G_Ads_FILES_DIR

Dim Str_SysDir
Str_SysDir=""
if G_VIRTUAL_ROOT_DIR<>"" then
	Str_SysDir="/"&G_VIRTUAL_ROOT_DIR&"/Ads"
Else
	Str_SysDir="/Ads"
end if
if G_VIRTUAL_ROOT_DIR<>"" then sRootDir="/"+G_VIRTUAL_ROOT_DIR else sRootDir=""
If Session("Admin_Is_Super") = 1 then
	str_CurrPath = sRootDir &"/"&G_UP_FILES_DIR
Else
	If Session("Admin_FilesTF") = 0 Then
		str_CurrPath = Replace(sRootDir &"/"&G_UP_FILES_DIR&"/adminfiles/"&UCase(md5(Session("Admin_Name"),16)),"//","/")
	Else
		str_CurrPath = sRootDir &"/"&G_UP_FILES_DIR
	End If	
End if

If str_AdOpType="Add" Then
	str_AdOpType="Add"
	str_ShowType="<a href=""javascript:if (Ad_Flag()==true){Ad_Save();}"">保存</a>"
Else
	str_AdOpType="Update"
	str_ShowType="<a href=""javascript:if (Ad_Flag()==true){Ad_Update();}"">修改</a>"
	Dim AdId
	AdId=Request.QueryString("ID")

	If AdId="" or IsNull(AdId) Then
		If IsNumeric(AdId)=False Then
			strShowErr = "<li>参数错误!</li>"
			Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
			Response.end
		End If
	Else
		AdId=Clng(AdId)
		Set o_Ad_Rs=Conn.execute("Select * from FS_AD_Info Where AdID="&AdID&"")
		If Not o_Ad_Rs.Eof Then
			Dim temp_Adname,temp_adType,temp_adloopadname,temp_adloop,temp_adloopfollow,temp_adloopspeed,temp_adloopic,temp_adloopRpic,temp_picH,temp_picW,temp_adlink,temp_adcaptiontxt,temp_loopfactor,temp_loopenddate,temp_maxclicknum,temp_maxshownum,temp_adremarks,Temp_AdID,temp_Txtcontentstr,temp_Txt_Rs,temp_Txt_i,temp_AdTxtColNum
			Temp_AdID=o_Ad_Rs("AdID")
			temp_Adname=o_Ad_Rs("AdName")
			temp_adType=o_Ad_Rs("AdType")
			temp_adloop=o_Ad_Rs("AdLoop")
			temp_adloopadname=o_Ad_Rs("AdLoopAdID")
			temp_adloopfollow=o_Ad_Rs("AdLoopFollow")
			temp_adloopspeed=o_Ad_Rs("AdLoopSpeed")
			temp_adloopic=o_Ad_Rs("AdPicPath")
			temp_adloopRpic=o_Ad_Rs("AdRightPicPath")
			temp_picH=o_Ad_Rs("AdPicHeight")
			temp_picW=o_Ad_Rs("AdPicWidth")
			temp_adlink=o_Ad_Rs("AdLinkAdress")
			temp_adcaptiontxt=o_Ad_Rs("AdCaptionTxt")
			temp_loopfactor=o_Ad_Rs("AdLoopFactor")
			temp_loopenddate=o_Ad_Rs("AdEndDate")
			temp_maxclicknum=o_Ad_Rs("AdMaxClickNum")
			temp_maxshownum=o_Ad_Rs("AdMaxShowNum")
			temp_adremarks=o_Ad_Rs("AdRemarks")
			temp_AdTxtColNum=o_Ad_Rs("AdTxtColNum")
		Else
			strShowErr = "<li>参数错误!</li>"
			Response.Redirect("lib/Error.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=")
			Response.end		
		End If
		Set o_Ad_Rs=Nothing
	End If
End If

Dim str_AdName,str_AdType,str_AdLoopAdName,str_AdLoopFollow,str_AdLoopSpeed,str_AdLoopPicAdress,str_AdLoopRPicAdress,str_AdPicHeight,str_AdPicWidth,str_AdLinkUrl,str_AdCaptionTxt,str_LoopFactor,str_LoopEndDate,str_AdClickNum,str_AdShowNum,str_AdRemarks,str_IsLoopvalue,str_AdClassID,int_Txt_i,int_AdTxtColNum
	
str_AdName=Request.Form("AdName")
str_AdType=Clng(Request.Form("AdType"))
str_IsLoopvalue=Request.Form("IsLoopvalue")
str_AdLoopAdName=Request.Form("LoopAdName")
str_AdLoopFollow=Clng(Request.Form("LoopFollow"))
str_AdLoopSpeed=Request.Form("LoopSpeed")
str_AdLoopPicAdress=Request.Form("LoopPicAdress")
str_AdLoopRPicAdress=Request.Form("LoopRPicAdress")
str_AdPicHeight=Request.Form("AdPicHeight")
str_AdPicWidth=Request.Form("AdPicWidth")
str_AdLinkUrl=Request.Form("AdLinkUrl")
str_AdCaptionTxt=Request.Form("AdCaptionTxt")
str_LoopFactor=Clng(Request.Form("LoopFactor"))
str_LoopEndDate=Request.Form("LoopEndDate")
str_AdClickNum=Request.Form("AdMaxClickNum")
str_AdShowNum=Request.Form("AdMaxShowNum")
str_AdRemarks=Request.Form("AdRemarks")
str_AdClassID=Request.Form("AdClassID")
int_AdTxtColNum=Request.Form("AdTxtColNum")
If str_AdClickNum = "" Or Not IsNumeric(str_AdClickNum) Then str_AdClickNum = 0
If str_AdShowNum = "" Or Not IsNumeric(str_AdShowNum) Then str_AdShowNum = 0
If int_AdTxtColNum="" or IsNull(int_AdTxtColNum) Then
	int_AdTxtColNum=0
Else
	int_AdTxtColNum=Cint(int_AdTxtColNum)
End If
Dim SubUp,UpRs,ID
SubUp=Request.QueryString("Submit")

If SubUp="SubUp" Then
	ID=Request.QueryString("ID")
	Set UpRs=CreateObject(G_FS_RS)
	UpRs.open "Select * from FS_AD_Info Where AdID="&Clng(ID)&"",Conn,3,3
		'Set o_Crs=Conn.execute("Select Lock From FS_AD_Class Where AdClassID="&str_AdClassID&"")
		'If Not o_Crs.Eof Then
			'strLock=o_Crs("Lock")
		'Else
			'strLock=0
		'End If

		UpRs("AdName")=str_AdName
		UpRs("AdType")=Clng(str_AdType)
		UpRs("AdLoop")=Clng(str_IsLoopvalue)
		UpRs("AdLoopAdID")=Clng(str_AdLoopAdName)
		UpRs("AdLoopFollow")=Clng(str_AdLoopFollow)
		UpRs("AdLoopSpeed")=Clng(str_AdLoopSpeed)
		UpRs("AdPicPath")=str_AdLoopPicAdress
		UpRs("AdRightPicPath")=str_AdLoopRPicAdress
		UpRs("AdPicHeight")=Clng(str_AdPicHeight)
		UpRs("AdPicWidth")=Clng(str_AdPicWidth)
		UpRs("AdLinkAdress")=str_AdLinkUrl
		UpRs("AdCaptionTxt")=str_AdCaptionTxt
		UpRs("AdLoopFactor")=Clng(str_LoopFactor)
		UpRs("AdEndDate")=str_LoopEndDate
		UpRs("AdMaxClickNum")=Clng(str_AdClickNum)
		UpRs("AdMaxShowNum")=Clng(str_AdShowNum)
		UpRs("AdRemarks")=str_AdRemarks
		UpRs("AdClassID")=str_AdClassID
		UpRs("AdTxtColNum")=int_AdTxtColNum
		'If strLock=0 Then
			'UpRs("AdLock")=0
		'Else
			'UpRs("AdLock")=1
		'End If
	UpRs.Update
	UpRs.Close
	Set UpRs=Nothing
	
	Conn.execute("delete  From FS_AD_TxtInfo Where AdID="&Clng(ID)&"")
	For int_Txt_i=1 to Request.Form("AdTxtContent").Count
		Conn.execute("insert into FS_AD_TxtInfo(AdID,AdTxtContent,Css,LinkUrl) values("&Clng(ID)&",'"&Request.Form("AdTxtContent")(int_Txt_i)&"','"&Request.Form("AdTxtCss")(int_Txt_i)&"','"&Request.Form("AdTxtLink")(int_Txt_i)&"')")
	Next
	
	Set o_Ad_Rs=Conn.execute("Select AdLoopAdID From FS_AD_Info Where AdID="&ID&"")
		If Not o_Ad_Rs.Eof Then 
			lng_TempLoopAdID=o_Ad_Rs("AdLoopAdID")
		Else
			lng_TempLoopAdID=0
		End If
	Set o_Ad_Rs=Nothing

	Select Case Clng(str_AdType)
		Case 0 call ShowAds(ID)
		Case 1 call NewWindow(ID)
		Case 2 call OpenWindow(ID)
		Case 3 call FilterAway(ID)
		Case 4 call DialogBox(ID)
		Case 5 call ClarityBox(ID)
		Case 6 call DriftBox(ID)
		Case 7 call LeftBottom(ID)
		Case 8 call RightBottom(ID)
		Case 9 call Couplet(ID)
		Case 10 call Cycle(ID,lng_TempLoopAdID)
		Case 11 call AdTxt(ID)
	End Select
	strShowErr = "<li>修改成功!</li>"
	Response.Redirect("lib/Success.asp?ErrCodes="&Server.URLEncode(strShowErr)&"&ErrorUrl=../Ads_Manage.asp&Page="&Request.QueryString("OpPage")&"")
	Response.end

End If

if G_VIRTUAL_ROOT_DIR<>"" then sRootDir="/"+G_VIRTUAL_ROOT_DIR else sRootDir=""
If Session("Admin_Is_Super") = 1 then
	str_CurrPath = sRootDir &"/"&G_UP_FILES_DIR
Else
	If Session("Admin_FilesTF") = 0 Then
		str_CurrPath = Replace(sRootDir &"/"&G_UP_FILES_DIR&"/adminfiles/"&UCase(md5(Session("Admin_Name"),16)),"//","/")
	Else
		str_CurrPath = sRootDir &"/"&G_UP_FILES_DIR
	End If	
End if

str_AdsType=Request.Form("Type")
If str_AdsType<>"" Then	
	Set o_Ad_Rs= CreateObject(G_FS_RS)
	o_Ad_Rs.open"select * from FS_AD_Info where 1=0",Conn,3,3
	If str_AdsType="Add" Then
		Set o_Crs=Conn.execute("Select Lock From FS_AD_Class Where AdClassID="&str_AdClassID&"")
		If Not o_Crs.Eof Then
			strLock=o_Crs("Lock")
		Else
			strLock=0
		End If
		Set o_Crs=Nothing

		o_Ad_Rs.addnew
		o_Ad_Rs("AdName")=str_AdName
		o_Ad_Rs("AdType")=Clng(str_AdType)
		o_Ad_Rs("AdLoop")=Clng(str_IsLoopvalue)
		o_Ad_Rs("AdLoopAdID")=Clng(str_AdLoopAdName)
		o_Ad_Rs("AdLoopFollow")=Clng(str_AdLoopFollow)
		o_Ad_Rs("AdLoopSpeed")=Clng(str_AdLoopSpeed)
		o_Ad_Rs("AdPicPath")=str_AdLoopPicAdress
		o_Ad_Rs("AdRightPicPath")=str_AdLoopRPicAdress
		If str_AdPicHeight="" or IsNull(str_AdPicHeight) Then
			o_Ad_Rs("AdPicHeight")=0
		Else
			o_Ad_Rs("AdPicHeight")=str_AdPicHeight
		End If
		If str_AdPicWidth="" Or IsNull(str_AdPicWidth) Then
			o_Ad_Rs("AdPicWidth")=0
		Else
			o_Ad_Rs("AdPicWidth")=str_AdPicWidth
		End If
		'if left(Cstr(str_AdLinkUrl),len("Http://"))=0 then str_AdLinkUrl = "Http://"&str_AdLinkUrl
		o_Ad_Rs("AdLinkAdress")=str_AdLinkUrl
		o_Ad_Rs("AdCaptionTxt")=str_AdCaptionTxt
		o_Ad_Rs("AdLoopFactor")=Clng(str_LoopFactor)
		o_Ad_Rs("AdEndDate")=str_LoopEndDate
		o_Ad_Rs("AdMaxClickNum")=Clng(str_AdClickNum)
		o_Ad_Rs("AdMaxShowNum")=Clng(str_AdShowNum)
		o_Ad_Rs("AdRemarks")=str_AdRemarks
		o_Ad_Rs("AdAddDate")=Now()
		o_Ad_Rs("AdClickNum")=0
		o_Ad_Rs("AdClassID")=str_AdClassID
		If strLock=0 Then
			o_Ad_Rs("AdLock")=0
		Else
			o_Ad_Rs("AdLock")=1
		End If
		o_Ad_Rs("AdTxtColNum")=int_AdTxtColNum
		o_Ad_Rs.Update
		o_Ad_Rs.Close
		Set o_Ad_Rs=Nothing
		
		Set o_Ad_Rs=Conn.execute("Select Top 1 AdID,AdLoopAdID From FS_AD_Info Order By AdID Desc")
			lng_TempAdID=o_Ad_Rs("AdID")
			lng_TempLoopAdID=o_Ad_Rs("AdLoopAdID")
		Set o_Ad_Rs=Nothing
		
		For int_Txt_i=1 to Request.Form("AdTxtContent").Count
			Conn.execute("insert into FS_AD_TxtInfo(AdID,AdTxtContent,Css,LinkUrl) values("&lng_TempAdID&",'"&Request.Form("AdTxtContent")(int_Txt_i)&"','"&Request.Form("AdTxtCss")(int_Txt_i)&"','"&Request.Form("AdTxtLink")(int_Txt_i)&"')")			
		Next
12 3 下一页
⌨️ 快捷键说明

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