cls_refresh.asp

asp源码 图片ASP整站

				if Not m_Lables.Exists(f_Key) then m_Lables.Add f_Key,f_Value
			Next
			Set f_RegEx = Nothing
			Set f_Matches = Nothing
		end if
	End Sub
	'────────────────────────────────
	Sub ReplaceAllLable()
		Dim f_Obj,f_Sql
		f_Sql = "Select LableName,LableContent from FS_Lable"
		Set f_Obj = Conn.Execute(f_Sql)
		do while Not f_Obj.Eof
			m_TempletContent = Replace(m_TempletContent,f_Obj("LableName"),f_Obj("LableContent"))
			f_Obj.MoveNext
		Loop
		Set f_Obj = Nothing
		If Instr(m_TempletContent,"{%=PrePageNews()%}") <> 0 And m_Refresh_Type = "News" then m_TempletContent = Replace(m_TempletContent,"{%=PrePageNews()%}",Get_Forward_And_Backward_News_Str(m_Refresh_ID,m_Parent_ID,True))
		If Instr(m_TempletContent,"{%=NextPageNews()%}") <> 0 And m_Refresh_Type = "News" then m_TempletContent = Replace(m_TempletContent,"{%=NextPageNews()%}",Get_Forward_And_Backward_News_Str(m_Refresh_ID,m_Parent_ID,False))
	End Sub
	'────────────────────────────────
	Private Sub Analyze_Lable(f_Lable_Cont)
		Dim i
		m_Label_Para_Name_Array = Array(_
		Array("freelable","FreeLableID","QueryNum","ColSpan","RowSpan","ColNum","RowNum"),_
		Array("spicnews","SpecialListStr","NewsNumberStr","ShowTitleStr","OpenModeStr","TitleNumberStr","RowNumStr","PicWidthStr","PicHeightStr","CssFileStr","RowSpaceStr","PicModeStr","TitleModeStr","IsBkStr","BkColorStr","BgColorStr","BgImgStr"),_
		Array("selfclass","ClassEName","NewsListNumberStr","TitleNumberStr","CompatPicStr","NaviPicStr","DateRuleStr","DateRightStr","RowHeightStr","RowNumberStr","ShowClassCNNameStr","MoreLinkTypeStr","MoreLinkContentStr","CSSStyleStr","OpenTypeStr","DateCSSStyleStr","TxtNaviStr","IsIncludeChildTF"),_
		Array("childclasslist","ClassNumberStr","NewsNumberStr","CompatPicStr","NaviPicStr","ClassRowHeightStr","NewsRowHeightStr","ClassRowNumberStr","NewsRowNumberStr","DateRuleStr","DateRightStr","TitleNumberStr","MoreLinkTypeStr","MoreLinkContentStr","ClassBGPicStr","CSSStyleStr","OpenTypeStr","DateCSSStyleStr","TxtNaviStr"),_
		Array("specialnewslist","SpecialID","NewsNumberStr","TitleNumberStr","CompatPicStr","NaviPicStr","DateRuleStr","DateRightStr","RowHeightStr","RowNumberStr","MoreLinkTypeStr","MoreLinkContentStr","CSSStyleStr","OpenTypeStr","DateCSSStyleStr","TxtNaviStr"),_
		Array("specialnavi","PicTF","SpecialClassID","PicHeight","PicWidth","Dhang","SpecialCss","SpecialMore"),_
		Array("location","NaviType","CompatStr","OpenTypeStr","CSSStyleStr"),_
		Array("locationnavi","NaviType","RowNumber","NaviPicStr","CompatPicStr","OpenTypeStr","CSSStyleStr","TxtNaviStr"),_
		Array("classnavi","NaviPicStr","CompatPicStr","RowNumberStr","OpenTypeStr","CSSStyleStr","TxtNaviStr"),_
		Array("hotnews","ClassEName","SoonClassStr","NewNumberStr","TitleNumberStr","RowNumberStr","NaviPicStr","CompatPicStr","OpenTypeStr","CSSStyleStr","RowHeightStr","TxtNaviStr","HotDays"),_
		Array("lastnews","ClassEName","SoonClassStr","NewNumberStr","TitleNumberStr","RowNumberStr","NaviPicStr","CompatPicStr","OpenTypeStr","CSSStyleStr","RowHeightStr","TxtNaviStr"),_
		Array("recnews","ClassEName","SoonClassStr","NewNumberStr","TitleNumberStr","RowNumberStr","NaviPicStr","CompatPicStr","OpenTypeStr","CSSStyleStr","RowHeightStr","TxtNaviStr","nei_xStr","nei_zSt","nei_yStr","shijianStr"),_
		Array("marqueenews","MarqueeNumberStr","TitleNumberStr","RowNumberStr","MarqueeWidthStr","MarqueeHeightStr","MarqueeSpeedStr","MarqueeTypeStr","DateRuleStr","OpenTypeStr","CSSStyleStr","ClassEName","IsIncludeChildTF"),_
		Array("classnewslist","ClassListStr","NewsNumberStr","RowNumberStr","NaviPicStr","BGPicStr","RowHeightStr","CssFileStr","OpenModeStr","DetachPageStr","TitleNumberStr","DateRuleStr","DateRightStr","DateCSSStyleStr","TxtNaviStr","NewsListStyleSt","PicWidthStr","PicHeightStr","ContentStr","FgNumStr","FgImagStr"),_
		Array("search"),_
		Array("advancedsearch"),_
		Array("uselogin"),_
		Array("infostat","ClassListStr","ShowModeStr","CssFileStr"),_
		Array("downinfostat","ClassListStr","ShowModeStr","CssFileStr"),_
		Array("friendlink","LinkTypeStr","TitleNumberStr","PicWidthStr","PicHeightStr","LinkNumberStr","RowNumberStr","RowHeightStr","NewWindowTF"),_
		Array("navireadnews","ClassListStr","SoonClassStr","PicWidthStr","PicHeightStr","NaviPicStr","BGPicStr","TitleNumberStr","CSSStyleStr","NewsNumberStr","RowNumberStr","OpenTypeStr","RowHeightStr","TxtNaviStr"),_
		Array("relatenews","NewsNumberStr","TitleNumberStr","RowNumberStr","NaviPicStr","CompatPicStr","CSSStyleStr","TxtNaviStr"),_
		Array("relatespecialnews","NewsNumberStr","TitleNumberStr","RowNumberStr","NaviPicStr","CompatPicStr","CSSStyleStr","TxtNaviStr"),_
		Array("picnews","ClassListStr","NewsNumberStr","ShowTitleStr","OpenModeStr","TitleNumberStr","RowNumStr","PicWidthStr","PicHeightStr","CssFileStr","RowSpaceStr","IsIncludeChildTF","PicBorderStr","PicBorderColor"),_
		Array("filternews","ClassListStr","NewsNumberStr","TitleNumberStr","CssFileStr","PicWidthStr","PicHeightStr","OpenModeStr","ShowTitleStr","RowSpaceStr","IsIncludeChildTF"),_
		Array("flashfilter","ClassListStr","NewsNumberStr","TitleNumberStr","PicWidthStr","PicHeightStr","BGcolor","txtheight","IsIncludeChildTF"),_
		Array("sitemap","ClassListStr","ShowModeStr","OpenModeStr","CssFileStr"),_
		Array("pagetitle","PageTitleBegin"),_
		Array("copyrightstr"),_
		Array("focuspic","ClassListStr","NewsNumberStr","HaveChildStr","ShowTitleStr","TitleNumberStr","OpenModeStr","RowNumStr","PicWidthStr","PicHeightStr","CssFileStr","RowSpaceStr","PicBorderStr","PicBorderColor"),_
		Array("recpic","ClassListStr","NewsNumberStr","HaveChildStr","ShowTitleStr","TitleNumberStr","OpenModeStr","RowNumStr","PicWidthStr","PicHeightStr","CssFileStr","RowSpaceStr","PicBorderStr","PicBorderColor"),_
		Array("classicalnews","ClassListStr","NewsNumberStr","HaveChildStr","ShowTitleStr","TitleNumberStr","OpenModeStr","RowNumStr","PicWidthStr","PicHeightStr","CssFileStr","RowSpaceStr","PicBorderStr","PicBorderColor"),_
		Array("classicalpic","ClassListStr","NewsNumberStr","HaveChildStr","ShowTitleStr","TitleNumberStr","OpenModeStr","RowNumStr","PicWidthStr","PicHeightStr","CssFileStr","RowSpaceStr","PicBorderStr","PicBorderColor"),_
		Array("lastclasspic","CutPageStr","NewsNumberStr","ShowTitleStr","TitleNumberStr","OpenModeStr","RowNumStr","PicWidthStr","PicHeightStr","CssFileStr","RowSpaceStr"),_
		Array("classdownload","ClassListStr","NewsListNumberStr","TitleNumberStr","CompatPicStr","NaviPicStr","DateRuleStr","DateRightStr","RowHeightStr","RowNumberStr","ShowClassCNNameStr","MoreLinkTypeStr","MoreLinkContentStr","CSSStyleStr","OpenTypeStr","DownListStyleStr","TxtNaviStr","IsIncludeChildTF"),_
		Array("downloadlist","ClassListStr","NewsNumberStr","RowNumberStr","NaviPicStr","BGPicStr","RowHeightStr","CssFileStr","OpenModeStr","DetachPageStr","TitleNumberStr","DownListStyleStr","TxtNaviStr"),_
		Array("lastdownlist","ClassListStr","NewNumberStr","TitleNumberStr","RowNumberStr","NaviPicStr","CompatPicStr","OpenTypeStr","CSSStyleStr","RowHeightStr","DownListStyleStr","TxtNaviStr","IsIncludeChildTF"),_
		Array("recdownlist","ClassListStr","NewNumberStr","TitleNumberStr","RowNumberStr","NaviPicStr","CompatPicStr","OpenTypeStr","CSSStyleStr","RowHeightStr","DownListStyleStr","TxtNaviStr","IsIncludeChildTF"),_
		Array("hotdownlist","ClassListStr","NewNumberStr","TitleNumberStr","RowNumberStr","NaviPicStr","CompatPicStr","OpenTypeStr","CSSStyleStr","RowHeightStr","DownListStyleStr","TxtNaviStr","IsIncludeChildTF"),_
		Array("todaynews","ClassListStr","NewsNumberStr","HaveChildStr","TitleNumberStr","RowNumberStr","NaviPicStr","CompatPicStr","OpenTypeStr","CSSStyleStr","RowHeightStr","TxtNaviStr"),_
		Array("speciallastnewslist","NewsNumberStr","RowNumberStr","NaviPicStr","BGPicStr","RowHeightStr","CssFileStr","OpenModeStr","DetachPageStr","TitleNumberStr","DateRuleStr","DateRightStr","DateCSSStyleStr","TxtNaviStr"),_
		Array("download_pic","PicWidth","PicHeight"),_
		Array("lablefile","TitleNumberStr","CompatPicStr","NaviPicStr","DateRuleStr","DateRightStr","RowHeightStr","RowNumberStr","ShowClassCNNameStr","CSSStyleStr","OpenTypeStr","DateCSSStyleStr","TxtNaviStr"),_
		Array("UnRuleNews","NewsNumber","ClassEName","IsIncludeChildTF","OpenType"),_
		Array("marqueepic","ClassEName","SoonClassStr","PicNumberStr","LoopSpeedStr","MarqueeWidthStr","MarqueeHeightStr","PicWidthStr","PicHeightStr","PicCssStr","PicFgStr","OpenTypeStr","MarqueeTypeStr"),_
		Array("RSS"),_
		Array("mall_paystyle"))
		f_Lable_Cont = Replace(f_Lable_Cont,Chr(13) & Chr(10),"")
		f_Lable_Cont = Replace(f_Lable_Cont,"{%=","")
		f_Lable_Cont = Replace(f_Lable_Cont,"%}","")
		f_Lable_Cont = Left(f_Lable_Cont,Instr(f_Lable_Cont,"(")-1) & "," & Mid(f_Lable_Cont,InStr(f_Lable_Cont,"(")+1)
		f_Lable_Cont = Left(f_Lable_Cont,InStrRev(f_Lable_Cont,")")-1)
		f_Lable_Cont = Replace(f_Lable_Cont,"""","")
		m_Prar_Cont_Array = Split(f_Lable_Cont,",")
		for i = LBound(m_Label_Para_Name_Array) to UBound(m_Label_Para_Name_Array)
			if m_Label_Para_Name_Array(i)(0) = LCase(m_Prar_Cont_Array(0)) then m_Label_Loc_In_Array = i
		Next
	End Sub
	'────────────────────────────────
	Private Function Lable_Content(p_Key)
		Dim f_Str
		'On Error Resume Next
		Analyze_Lable p_Key
		Lable_Content = Select_Function()
	End Function
	'────────────────────────────────
	Private Sub End_Refresh()
		Dim i,j,f_Key,f_Value,f_Keys,f_Values,f_Dic_Items,f_Pop_Str
		Call CreatePath
		Call DeleteHistory
		m_Content = m_TempletContent
		f_Keys = m_Lables.Keys
		f_Values = m_Lables.Items
		f_Pop_Str = Get_Pop_Str()
		Call Split_News_Cont
		if m_More_Pages.Count <> 0 then
			f_Dic_Items = m_More_Pages.Items
			for j = 0 to m_More_Pages.Count - 1
				m_Content = m_TempletContent
				for i = 0 to m_Lables.Count - 1
					f_Key = f_Keys(i)
					f_Value = f_Values(i)
					if f_Value = "***分页***" then
						m_Content = Replace(m_Content,f_Key,f_Dic_Items(j))
					else
						m_Content = Replace(m_Content,f_Key,f_Value)
					end if
				Next
				if m_Refresh_Type = "News" then Replace_Browser_Cont f_Dic_Items(j)
				if j = 0 then
					SaveFile f_Pop_Str & m_Content,m_SavePath & "\" & m_SaveFileName & "." & m_SaveFile_ExtName
				else
					SaveFile f_Pop_Str & m_Content,m_SavePath & "\" & m_SaveFileName & "_" & j + 1 & "." & m_SaveFile_ExtName
				end if
			Next
		else
			for i = 0 to m_Lables.Count - 1
				f_Key = f_Keys(i)
				f_Value = f_Values(i)
				m_Content = Replace(m_Content,f_Key,f_Value)
			Next
			Replace_Browser_Cont ""
			SaveFile f_Pop_Str & m_Content,m_SavePath & "\" & m_SaveFileName & "." & m_SaveFile_ExtName
		end if
		'Dic_Test m_Lables
	End Sub
	'──────────────────────────────── 
	Private Sub Split_News_Cont()
		Dim f_Sql,f_RS,f_News_Content,f_News_Cont_Array
		Dim CurrPageNum,NewsPageCount,LenPageNum,NewsPageStr,SelectPageStr,i,j
		if m_Refresh_Type = "News" then
			f_Sql = "Select LinkTF,Content,FileName,FileExtName from FS_News where NewsID='" & m_Refresh_ID & "'"
			Set f_RS = Conn.Execute(f_Sql)
			if Not f_RS.Eof then
				f_News_Content = f_RS("Content")
				if IsNull(f_News_Content) then f_News_Content = ""
				if f_RS("LinkTF") = "1" then f_News_Content = ReplaceInnerLink(f_News_Content)
				f_News_Cont_Array = Split(f_News_Content,"[Page]")
				NewsPageCount = UBound(f_News_Cont_Array) + 1
				'列表式分页 by iyuki====================================修改1
SelectPageStr = " <select onchange=if(this.options[this.selectedIndex].value!=''){location=this.options[this.selectedIndex].value;}>"
SelectPageStr = SelectPageStr &"<option value="""" selected>选择页数</option>"
for CurrPageNum = 1 to NewsPageCount 
if CurrPageNum = 1 then 
SelectPageStr = SelectPageStr & "<option value=""" & f_RS("FileName") & "." & f_RS("FileExtName") & """>" & CurrPageNum & "</option>" 
else
SelectPageStr = SelectPageStr & "<option value=""" & f_RS("FileName") & "_" & CStr(CurrPageNum) & "."& f_RS("FileExtName") & """>" & CurrPageNum & "</option>" 
end if
next 
SelectPageStr = SelectPageStr & "</select>"
'列表式分页 by iyuki====================================修改1
				for i = LBound(f_News_Cont_Array) to UBound(f_News_Cont_Array)
					CurrPageNum = i + 1
					LenPageNum=Len(NewsPageCount)
					if NewsPageCount > 1 then
						NewsPageStr = "<div align=""center"" class=""ButtonListLeft"">&nbsp;&nbsp;"
						If NewsPageCount > 10 then NewsPageStr = NewsPageStr & "<br>"
						'列表式分页 by iyuki====================================修改2
if CurrPageNum > 1 then
NewsPageStr = NewsPageStr & "<a href="& f_RS("FileName") & "." & f_RS("FileExtName") &"><font color=""#FF0000"">[首页]</font></a>&nbsp;&nbsp;&nbsp;&nbsp;"
else
NewsPageStr = NewsPageStr & "[首页]&nbsp;&nbsp;&nbsp;&nbsp;"
end if
if CurrPageNum >= 2 then
if CurrPageNum = 2 then
NewsPageStr = NewsPageStr & "<a href="& f_RS("FileName") & "." & f_RS("FileExtName") &">[上一页]</a>&nbsp;&nbsp;&nbsp;&nbsp;"
else
NewsPageStr = NewsPageStr & "<a href="& f_RS("FileName") & "_" & CStr(CurrPageNum - 1) & "." & f_RS("FileExtName") &">[上一页]</a>&nbsp;&nbsp;&nbsp;&nbsp;"
end if
else
NewsPageStr = NewsPageStr & "[上一页]&nbsp;&nbsp;&nbsp;&nbsp;"