cls_ads.asp

后台目录:qwbAdmin/Login.asp 登陆用户名:admin 登陆密码:admin

<%
	Dim MyFile,CrHNJS,TempStateFlag,DnsPath,GetUrl,LDnsPath,AdsJSStr,AdsTempStr,JsFileName,objStream,AdsTempStrRight
	function AdsTempPicStr(Location)
	    dim FunLocation,FunAdsObj
		
		FunLocation = clng(Location)
		Set FunAdsObj = Conn.Execute("select * from FS_AD_Info where AdID="&FunLocation&"")
		if InStr(1,LCase(FunAdsObj("AdPicPath")),".swf",1)<>0 Then
			If InStr(1,LCase(FunAdsObj("AdPicPath")),"http://")<>0 then
				AdsTempStr="<EMBED src="""& FunAdsObj("AdPicPath") &""" quality=high WIDTH="""& FunAdsObj("AdPicWidth") &""" HEIGHT="""& FunAdsObj("AdPicHeight") &""" TYPE=""application/x-shockwave-flash"" PLUGINSPAGE=""http://www.macromedia.com/go/getflashplayer""></EMBED>"
			Else
				AdsTempStr="<EMBED src=""http://"& request.Cookies("FoosunMFCookies")("FoosunMFDomain")& FunAdsObj("AdPicPath") &""" quality=high WIDTH="""& FunAdsObj("AdPicWidth") &""" HEIGHT="""& FunAdsObj("AdPicHeight") &""" TYPE=""application/x-shockwave-flash"" PLUGINSPAGE=""http://www.macromedia.com/go/getflashplayer""></EMBED>"
			End If
		Else
			If InStr(1,LCase(FunAdsObj("AdPicPath")),"http://")<>0 then
				AdsTempStr="<a href=""http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/Ads/AdsClick.asp?Location="& FunLocation &""" target=_blank><img src="""& FunAdsObj("AdPicPath") &""" border=0 width="""& FunAdsObj("AdPicWidth") &""" height="""& FunAdsObj("AdPicHeight") &""" alt="""& FunAdsObj("AdCaptionTxt") &""" align=top></a>"
			Else
				AdsTempStr="<a href=""http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/Ads/AdsClick.asp?Location="& FunLocation &""" target=_blank><img src="""& FunAdsObj("AdPicPath") &""" border=0 width="""& FunAdsObj("AdPicWidth") &""" height="""& FunAdsObj("AdPicHeight") &""" alt="""& FunAdsObj("AdCaptionTxt") &""" align=top></a>"
			End If
		End If
		if InStr(1,LCase(FunAdsObj("AdRightPicPath")),".swf",1)<>0 Then
			If InStr(1,LCase(FunAdsObj("AdRightPicPath")),"http://")<>0 then
				AdsTempStrRight="<EMBED src="""& FunAdsObj("AdRightPicPath") &""" quality=high WIDTH="""& FunAdsObj("AdPicWidth") &""" HEIGHT="""& FunAdsObj("AdPicHeight") &""" TYPE=""application/x-shockwave-flash"" PLUGINSPAGE=""http://www.macromedia.com/go/getflashplayer""></EMBED>"
			Else
				AdsTempStrRight="<EMBED src="""& request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/"& FunAdsObj("AdRightPicPath") &""" quality=high WIDTH="""& FunAdsObj("AdPicWidth") &""" HEIGHT="""& FunAdsObj("AdPicHeight") &""" TYPE=""application/x-shockwave-flash"" PLUGINSPAGE=""http://www.macromedia.com/go/getflashplayer""></EMBED>"
			End If
		Else
			If InStr(1,LCase(FunAdsObj("AdRightPicPath")),"http://")<>0 then
				AdsTempStrRight="<a href=""http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/Ads/AdsClick.asp?Location="& FunLocation &""" target=_blank><img src="""& FunAdsObj("AdRightPicPath") &""" border=0 width="""& FunAdsObj("AdPicWidth") &""" height="""& FunAdsObj("AdPicHeight") &""" alt="""& FunAdsObj("AdCaptionTxt") &""" align=top></a>"
			Else
				AdsTempStrRight="<a href=""http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/Ads/AdsClick.asp?Location="& FunLocation &""" target=_blank><img src=""" & FunAdsObj("AdRightPicPath") &""" border=0 width="""& FunAdsObj("AdPicWidth") &""" height="""& FunAdsObj("AdPicHeight") &""" alt="""& FunAdsObj("AdCaptionTxt") &""" align=top></a>"
			End If
		End If
		FunAdsObj.close
		set FunAdsObj = nothing
	end function
 
        Sub ShowAds(TempLocation)
		    dim ShowAdsStr,ShowAdsLocation,ShowAdsObj
			ShowAdsLocation = clng(TempLocation)
			AdsTempPicStr(ShowAdsLocation)
			ShowAdsStr = AdsTempStr
			Set ShowAdsObj = Conn.Execute("select * from FS_AD_Info where AdID="&ShowAdsLocation&"")
			if CheckAd(ShowAdsObj)=False  then
				AdsJSStr = "document.write('此广告已经暂停或是失效');"
			else
				AdsJSStr = "document.write('"& ShowAdsStr &"');" & vbCrLf & _
				           "document.write('<script src=http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/Ads/show.asp?Location="&ShowAdsLocation&"></script>');"
			end if
			Set MyFile=Server.CreateObject(G_FS_FSO)
			If MyFile.FolderExists(Server.MapPath(Str_SysDir)) = false then
				MyFile.CreateFolder(Server.MapPath(Str_SysDir))
			End If
			 if MyFile.FileExists(Server.MapPath(Str_SysDir)&"/"& ShowAdsLocation &".js") then
				MyFile.DeleteFile(Server.MapPath(Str_SysDir)&"/"& ShowAdsLocation &".js")
			 end if
			set CrHNJS=MyFile.CreateTextFile(Server.MapPath(Str_SysDir)&"/"& ShowAdsLocation &".js")
				CrHNJS.write AdsJSStr
				set MyFile=nothing
			ShowAdsObj.close
			Set ShowAdsObj = Nothing
		 End Sub
		 
		 Sub NewWindow(TempLocation)
		    dim NewWindowObj,NewWindowLocation,dialogConent,dialogConent1 ,sUrl
			NewWindowLocation = clng(TempLocation)
			Set NewWindowObj = Conn.Execute("select * from FS_AD_Info where AdID="&NewWindowLocation&"")
			If CheckAd(NewWindowObj)=True Then
				If Instr(1,LCase(NewWindowObj("AdPicPath")),"http://") <> 0 then
					AdsJSStr = "window.open('http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/Ads/pic.asp?pic="&NewWindowLocation&"','','width="& NewWindowObj("AdPicWidth") &",height="& NewWindowObj("AdPicHeight") &",scrollbars=1');"
				Else
					AdsJSStr = "window.open('http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/Ads/pic.asp?pic="&NewWindowLocation&"','','width="& NewWindowObj("AdPicWidth") &",height="& NewWindowObj("AdPicHeight") &",scrollbars=1');" & vbCrLf & _
					"document.write('<script src=http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/Ads/show.asp?Location="&NewWindowLocation&"></script>');"
				End If
			Else
				AdsJSStr="document.write('此广告已经暂停或是失效');"
			End If
			Set MyFile=Server.CreateObject(G_FS_FSO)
			If MyFile.FolderExists(Server.MapPath(Str_SysDir)) = false then
				MyFile.CreateFolder(Server.MapPath(Str_SysDir))
			End If
			 if MyFile.FileExists(Server.MapPath(Str_SysDir)&"/"& NewWindowLocation &".js") then
				MyFile.DeleteFile(Server.MapPath(Str_SysDir)&"/"& NewWindowLocation &".js")
			 end if
			set CrHNJS=MyFile.CreateTextFile(Server.MapPath(Str_SysDir)&"/"& NewWindowLocation &".js")
				CrHNJS.write AdsJSStr
				set MyFile=Nothing
			NewWindowObj.close
			Set NewWindowObj = Nothing
		 End Sub
		 
		 Sub OpenWindow(TempLocation)
		    dim OpenWindowObj,OpenWindowLocation

			OpenWindowLocation = clng(TempLocation)
			Set OpenWindowObj = Conn.Execute("select * from FS_AD_Info where AdID="&OpenWindowLocation&"")
			If 	CheckAd(OpenWindowObj)=True Then
				AdsJSStr = "window.open('http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/Ads/pic.asp?pic="&OpenWindowLocation&"','_blank');"
			Else
				AdsJSStr="document.write('此广告已经暂停或是失效');"
			End If
			Set MyFile=Server.CreateObject(G_FS_FSO)
			If MyFile.FolderExists(Server.MapPath(Str_SysDir)) = false then
				MyFile.CreateFolder(Server.MapPath(Str_SysDir))
			End If
			 if MyFile.FileExists(Server.MapPath(Str_SysDir)&"/"& OpenWindowLocation &".js") then
				MyFile.DeleteFile(Server.MapPath(Str_SysDir)&"/"& OpenWindowLocation &".js")
			 end if
			set CrHNJS=MyFile.CreateTextFile(Server.MapPath(Str_SysDir)&"/"& OpenWindowLocation &".js")
				CrHNJS.write AdsJSStr
				set MyFile=nothing
			OpenWindowObj.close
			Set OpenWindowObj = Nothing
		 End Sub
		 
		 Sub FilterAway(TempLocation)
		    dim FilterAwayStr,FilterAwayLocation,FilterAwayObj
			FilterAwayLocation = clng(TempLocation)
			AdsTempPicStr(FilterAwayLocation)
			FilterAwayStr = AdsTempStr
			Set FilterAwayObj = Conn.Execute("select * from FS_AD_Info where AdID="&FilterAwayLocation&"")
			if CheckAd(FilterAwayObj)=False then
				AdsJSStr = "document.write('此广告已经暂停或是失效');"
			else
				AdsJSStr = "FilterAwayStr=(document.layers)?true:false;" & vbCrLf & _
						   "if(FilterAwayStr){document.write('<layer id=FilterAwayT onLoad=""moveToAbsolute(layer1.pageX-160,layer1.pageY);clip.height="& FilterAwayObj("AdPicHeight") &";clip.width="& FilterAwayObj("AdPicWidth") &"; visibility=show;""><layer id=FilterAwayF position:absolute; bottom:20; center:1>"& FilterAwayStr &"</layer></layer>');}" & vbCrLf & _
						   "else{document.write('<div style=""position:absolute;bottom:"& cint(FilterAwayObj("AdPicHeight")+20) &"; center:1;""><div id=FilterAwayT style=""position:absolute; width:"& FilterAwayObj("AdPicWidth") &"; height:"& FilterAwayObj("AdPicHeight") &";clip:rect(0,"& FilterAwayObj("AdPicWidth") &","& FilterAwayObj("AdPicHeight") &",0)""><div id=FilterAwayF style=""position:absolute;bottom:20; center:1"">"& FilterAwayStr &"</div></div></div>');} " & vbCrLf & _
						   "document.write('<script language=javascript src=http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/Ads/CreateJs/FilterAway.js></script>');" & vbCrLf & _
				           "document.write('<script src=http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/Ads/show.asp?Location="&FilterAwayLocation&"></script>');"
			end if
			Set MyFile=Server.CreateObject(G_FS_FSO)
			If MyFile.FolderExists(Server.MapPath(Str_SysDir)) = false then
				MyFile.CreateFolder(Server.MapPath(Str_SysDir))
			End If
			 if MyFile.FileExists(Server.MapPath(Str_SysDir)&"/"& FilterAwayLocation &".js") then
				MyFile.DeleteFile(Server.MapPath(Str_SysDir)&"/"& FilterAwayLocation &".js")
			 end if
			set CrHNJS=MyFile.CreateTextFile(Server.MapPath(Str_SysDir)&"/"& FilterAwayLocation &".js")
				CrHNJS.write AdsJSStr
				set MyFile=nothing
			FilterAwayObj.close
			Set FilterAwayObj = Nothing
		 End Sub
		 
		 Sub DialogBox(TempLocation)
		    dim DialogBoxObj,DialogBoxLocation
			DialogBoxLocation = clng(TempLocation)
			Set DialogBoxObj = Conn.Execute("select * from FS_AD_Info where AdID="&DialogBoxLocation&"")
			if CheckAd(DialogBoxObj)=False then
				AdsJSStr = "document.write('此广告已经暂停或是失效');"
			else
				AdsJSStr = "window.showModalDialog('http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/Ads/pic.asp?pic="&DialogBoxLocation&"','','dialogWidth:"& DialogBoxObj("AdPicWidth")+10 &"px;dialogHeight:"& DialogBoxObj("AdPicHeight")+30 &"px;center:0;status:no');"
			end if
			Set MyFile=Server.CreateObject(G_FS_FSO)
			If MyFile.FolderExists(Server.MapPath(Str_SysDir)) = false then
				MyFile.CreateFolder(Server.MapPath(Str_SysDir))
			End If
			 if MyFile.FileExists(Server.MapPath(Str_SysDir)&"/"& DialogBoxLocation &".js") then
				MyFile.DeleteFile(Server.MapPath(Str_SysDir)&"/"& DialogBoxLocation &".js")
			 end if
			set CrHNJS=MyFile.CreateTextFile(Server.MapPath(Str_SysDir)&"/"& DialogBoxLocation &".js")
				CrHNJS.write AdsJSStr
				set MyFile=nothing
		 	DialogBoxObj.Close
			Set DialogBoxObj = Nothing
		 End Sub
		 
		 Sub ClarityBox(TempLocation)
		    dim ClarityBoxObj,ClarityBoxLocation,ClarityBoxStr
			ClarityBoxLocation = clng(TempLocation)
			AdsTempPicStr(ClarityBoxLocation)
			ClarityBoxStr = AdsTempStr
			Set ClarityBoxObj = Conn.Execute("select * from FS_AD_Info where AdID="&ClarityBoxLocation&"")
			if CheckAd(ClarityBoxObj)=False then
				AdsJSStr = "document.write('此广告已经暂停或是失效');"
			else
				AdsJSStr = "document.write('<script language=javascript src=http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/Ads/CreateJs/ClarityBox.js></script>'); " & vbCrLf & _
						   "document.write('<div style=""position:absolute;left:300px;top:150px;width:"& ClarityBoxObj("AdPicWidth") &"; height:"& ClarityBoxObj("AdPicHeight") &";z-index:1;solid;filter:alpha(opacity=90)"" id=ClarityBoxID onmousedown=""ClarityBox(this)"" onmousemove=""ClarityBoxMove(this)"" onMouseOut=""down=false"" onmouseup=""down=false""><table cellpadding=0 border=0 cellspacing=1 width="& ClarityBoxObj("AdPicWidth") &" height="& cint(ClarityBoxObj("AdPicHeight")+20) &" bgcolor=#000000><tr><td height=20 align=right style=""cursor:move;""><a href=# style=""font-size: 9pt; color: white; text-decoration: none"" onClick=ClarityBoxclose(""ClarityBoxID"") >>>关闭>></a></td></tr><tr><td>"&ClarityBoxStr&"</td></tr></table></div>');" & vbCrLf & _
				           "document.write('<script src=http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/Ads/show.asp?Location="&ClarityBoxLocation&"></script>');"
			end if
			Set MyFile=Server.CreateObject(G_FS_FSO)
			If MyFile.FolderExists(Server.MapPath(Str_SysDir)) = false then
				MyFile.CreateFolder(Server.MapPath(Str_SysDir))
			End If
			 if MyFile.FileExists(Server.MapPath(Str_SysDir)&"/"& ClarityBoxLocation &".js") then
				MyFile.DeleteFile(Server.MapPath(Str_SysDir)&"/"& ClarityBoxLocation &".js")
			 end if
			set CrHNJS=MyFile.CreateTextFile(Server.MapPath(Str_SysDir)&"/"& ClarityBoxLocation &".js")
				CrHNJS.write AdsJSStr
				set MyFile=nothing
			ClarityBoxObj.close
			Set ClarityBoxObj = Nothing
		 End Sub
		 
		 Sub RightBottom(TempLocation)
		    dim RightBottomStr,RightBottomLocation,RightBottomObj
			RightBottomLocation = clng(TempLocation)
			AdsTempPicStr(RightBottomLocation)
			RightBottomStr = AdsTempStr
			Set RightBottomObj = Conn.Execute("select * from FS_AD_Info where AdID="&RightBottomLocation&"")
			if CheckAd(RightBottomObj)=False then
				AdsJSStr = "document.write('此广告已经暂停或是失效');"
			else
				AdsJSStr = "if (navigator.appName == 'Netscape')" & vbCrLf & _
						   "{document.write('<layer id=RightBottom top=150 width="& RightBottomObj("AdPicWidth") &" height="& RightBottomObj("AdPicHeight") &">"& RightBottomStr &"</layer>');}" & vbCrLf & _
						   "else{document.write('<div id=RightBottom style=""position: absolute;width:"& RightBottomObj("AdPicWidth") &";height:"& RightBottomObj("AdPicHeight") &";visibility: visible;z-index: 1"">"& RightBottomStr &"</div>');}" & vbCrLf & _
						   "document.write('<script language=javascript src=http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/Ads/CreateJs/RightBottom.js></script>');" & vbCrLf & _
				           "document.write('<script src=http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/Ads/show.asp?Location="&RightBottomLocation&"></script>');"
			end if
			Set MyFile=Server.CreateObject(G_FS_FSO)
			If MyFile.FolderExists(Server.MapPath(Str_SysDir)) = false then
				MyFile.CreateFolder(Server.MapPath(Str_SysDir))
			End If
			 if MyFile.FileExists(Server.MapPath(Str_SysDir)&"/"& RightBottomLocation &".js") then
				MyFile.DeleteFile(Server.MapPath(Str_SysDir)&"/"& RightBottomLocation &".js")
			 end if
			set CrHNJS=MyFile.CreateTextFile(Server.MapPath(Str_SysDir)&"/"& RightBottomLocation &".js")
				CrHNJS.write AdsJSStr
				set MyFile=nothing
			RightBottomObj.close
			Set RightBottomObj = Nothing
		 End Sub
		 
		 Sub DriftBox(TempLocation)
		    dim DriftBoxStr,DriftBoxLocation,DriftBoxObj
			DriftBoxLocation = clng(TempLocation)
			AdsTempPicStr(DriftBoxLocation)
			DriftBoxStr = AdsTempStr
			Set DriftBoxObj = Conn.Execute("select * from FS_AD_Info where AdID="&DriftBoxLocation&"")
			if CheckAd(DriftBoxObj)=False then
				AdsJSStr = "document.write('此广告已经暂停或是失效');"
			else
				AdsJSStr = "DriftBoxStr=(document.layers)?true:false;" & vbCrLf & _
						   "if(DriftBoxStr){document.write('<layer id=DriftBox width="& DriftBoxObj("AdPicWidth") &" height="& DriftBoxObj("AdPicHeight") &" onmouseover=DriftBoxSM(""DriftBox"") onmouseout=movechip(""DriftBox"")>"& DriftBoxStr &"</layer>');}" & vbCrLf & _
						   "else{document.write('<div id=DriftBox style=""position:absolute; width:"& DriftBoxObj("AdPicWidth") &"px; height:"& DriftBoxObj("AdPicHeight") &"px; z-index:9; filter: Alpha(Opacity=90)"" onmouseover=DriftBoxSM(""DriftBox"") onmouseout=movechip(""DriftBox"")>"& DriftBoxStr &"</div>');}" & vbCrLf & _
						   "document.write('<script language=javascript src=http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/Ads/CreateJs/DriftBox.js></script>');" & vbCrLf & _
				           "document.write('<script src=http://"&request.Cookies("FoosunMFCookies")("FoosunMFDomain")&"/Ads/show.asp?Location="&DriftBoxLocation&"></script>');"
			end if
			Set MyFile=Server.CreateObject(G_FS_FSO)
			If MyFile.FolderExists(Server.MapPath(Str_SysDir)) = false then
				MyFile.CreateFolder(Server.MapPath(Str_SysDir))
			End If
			 if MyFile.FileExists(Server.MapPath(Str_SysDir)&"/"& DriftBoxLocation &".js") then
				MyFile.DeleteFile(Server.MapPath(Str_SysDir)&"/"& DriftBoxLocation &".js")
			 end if
			set CrHNJS=MyFile.CreateTextFile(Server.MapPath(Str_SysDir)&"/"& DriftBoxLocation &".js")
				CrHNJS.write AdsJSStr