cls_refresh.asp

asp源码 图片ASP整站

			Case "picnews"
				if UBound(m_Prar_Cont_Array) = 10 then ReDim Preserve m_Prar_Cont_Array(11) : m_Prar_Cont_Array(11) = "0"
				if UBound(m_Prar_Cont_Array) = 13 then : Select_Function = PicNews(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11),m_Prar_Cont_Array(12),m_Prar_Cont_Array(13)) : else : Select_Function = "" : Exit Function : end if
			Case "filternews"
				if UBound(m_Prar_Cont_Array) = 9 then ReDim Preserve m_Prar_Cont_Array(10) : m_Prar_Cont_Array(10) = "0"
				if UBound(m_Prar_Cont_Array) = 10 then : Select_Function = FilterNews(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10)) : else : Select_Function = "" : Exit Function : end if
			Case "flashfilter"
				if UBound(m_Prar_Cont_Array) = 7 then ReDim Preserve m_Prar_Cont_Array(8) : m_Prar_Cont_Array(8) = "0"
				if UBound(m_Prar_Cont_Array) = 8 then : Select_Function = FlashFilter(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8)) : else : Select_Function = "" : Exit Function : end if
			Case "sitemap" : if UBound(m_Prar_Cont_Array) = 4 then : Select_Function = SiteMap(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4)) : else : Select_Function = "" : Exit Function : end if
			Case "pagetitle" : if UBound(m_Prar_Cont_Array) = 1 then : Select_Function = PageTitle(m_Prar_Cont_Array(1)) : else : Select_Function = "" : Exit Function : end if
			Case "copyrightstr" : Select_Function = CopyRightStr
			Case "focuspic" : If UBound(m_Prar_Cont_Array) = 13 then : Select_Function = FocusPic(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11),m_Prar_Cont_Array(12),m_Prar_Cont_Array(13)) : Else : Select_Function = "" : Exit Function : End If
			Case "recpic" : If UBound(m_Prar_Cont_Array) = 13 then : Select_Function = RecPic(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11),m_Prar_Cont_Array(12),m_Prar_Cont_Array(13)) : Else : Select_Function = "" : Exit Function : End If
			Case "classicalnews" : If UBound(m_Prar_Cont_Array) = 13 then : Select_Function = ClassicalNews(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11),m_Prar_Cont_Array(12),m_Prar_Cont_Array(13)) : Else : Select_Function = "" : Exit Function : End If
			Case "classicalpic" : If UBound(m_Prar_Cont_Array) = 13 then : Select_Function = ClassicalPic(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11),m_Prar_Cont_Array(12),m_Prar_Cont_Array(13)) : Else : Select_Function = "" : Exit Function : End If
			Case "lastclasspic" : If UBound(m_Prar_Cont_Array) = 10 then : Select_Function = LastClassPic(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10)) : Else : Select_Function = Array("") : Exit Function : End If
			Case "classdownload"
				if UBound(m_Prar_Cont_Array) = 16 then ReDim Preserve m_Prar_Cont_Array(17) : m_Prar_Cont_Array(17) = "0"
				If UBound(m_Prar_Cont_Array) = 17 then : Select_Function = ClassDownLoad(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11),m_Prar_Cont_Array(12),m_Prar_Cont_Array(13),m_Prar_Cont_Array(14),m_Prar_Cont_Array(15),m_Prar_Cont_Array(16),m_Prar_Cont_Array(17)) : Else : Select_Function = "" : Exit Function : End If
			Case "downloadlist" : If UBound(m_Prar_Cont_Array) = 12 then : Select_Function = DownLoadList(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11),m_Prar_Cont_Array(12)) : Else : Select_Function = Array("") : Exit Function : End If
			Case "lastdownlist"
				if UBound(m_Prar_Cont_Array) = 11 then ReDim Preserve m_Prar_Cont_Array(12) : m_Prar_Cont_Array(12) = "0"
				If UBound(m_Prar_Cont_Array) = 12 then : Select_Function = LastDownList(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11),m_Prar_Cont_Array(12)) : Else : Select_Function = "" : Exit Function : End If
			Case "recdownlist"
				if UBound(m_Prar_Cont_Array) = 11 then ReDim Preserve m_Prar_Cont_Array(12) : m_Prar_Cont_Array(12) = "0"
				If UBound(m_Prar_Cont_Array) = 12 then : Select_Function = RecDownList(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11),m_Prar_Cont_Array(12)) : Else : Select_Function = "" : Exit Function : End If
			Case "hotdownlist"
				if UBound(m_Prar_Cont_Array) = 11 then ReDim Preserve m_Prar_Cont_Array(12) : m_Prar_Cont_Array(12) = "0"
				If UBound(m_Prar_Cont_Array) = 12 then : Select_Function = HotDownList(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11),m_Prar_Cont_Array(12)) : Else : Select_Function = "" : Exit Function : End If
			Case "todaynews" : If UBound(m_Prar_Cont_Array) = 11 then : Select_Function = TodayNews(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11)) : Else : Select_Function = "" : Exit Function : End If
			Case "speciallastnewslist" : If UBound(m_Prar_Cont_Array) = 13 then : Select_Function = SpecialLastNewsList(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11),m_Prar_Cont_Array(12),m_Prar_Cont_Array(13)) : Else : Select_Function = Array("") : Exit Function : End If
			Case "download_pic" : If UBound(m_Prar_Cont_Array) = 2 then : Select_Function = DownLoad_Pic(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2)) : Else : Select_Function = "" : Exit Function : End If
			'============================================
			'添加商品大图和小图可自定义大小的功能，2006-3-22
			Case "mall_products_picture" : If UBound(m_Prar_Cont_Array) = 2 then : Select_Function = Mall_Products_Picture(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2)) : Else : Select_Function = "" : Exit Function : End If
			Case "mall_products_spicture" : If UBound(m_Prar_Cont_Array) = 2 then : Select_Function = Mall_Products_sPicture(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2)) : Else : Select_Function = "" : Exit Function : End If
			'=============================================
			Case "lablefile" : If UBound(m_Prar_Cont_Array) = 12 then : Select_Function = LableFile(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11),m_Prar_Cont_Array(12)) : Else : Select_Function = "" : Exit Function : End If
			Case "mall_class"
				if UBound(m_Prar_Cont_Array) = 16 then ReDim Preserve m_Prar_Cont_Array(17) : m_Prar_Cont_Array(17) = "0"
				if UBound(m_Prar_Cont_Array) = 17 then : Select_Function = Mall_Class(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11),m_Prar_Cont_Array(12),m_Prar_Cont_Array(13),m_Prar_Cont_Array(14),m_Prar_Cont_Array(15),m_Prar_Cont_Array(16),m_Prar_Cont_Array(17)) : else : Select_Function = "" : Exit Function : end if
			Case "mall_lastclass" : if UBound(m_Prar_Cont_Array) = 13 then : Select_Function = Mall_LastClass(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11),m_Prar_Cont_Array(12),m_Prar_Cont_Array(13)) : else : Select_Function = "" : Exit Function : end if
			Case "mall_specialclass" : if UBound(m_Prar_Cont_Array) = 16 then : Select_Function = Mall_SpecialClass(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11),m_Prar_Cont_Array(12),m_Prar_Cont_Array(13),m_Prar_Cont_Array(14),m_Prar_Cont_Array(15),m_Prar_Cont_Array(16)) : else : Select_Function = "" : Exit Function : end if
			Case "mall_lastspecialclass" : if UBound(m_Prar_Cont_Array) = 13 then : Select_Function = Mall_LastSpecialClass(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11),m_Prar_Cont_Array(12),m_Prar_Cont_Array(13)) : else : Select_Function = "" : Exit Function : end if
			Case "mall_lastproducts"
				if UBound(m_Prar_Cont_Array) = 14 then ReDim Preserve m_Prar_Cont_Array(15) : m_Prar_Cont_Array(15) = "0"
				if UBound(m_Prar_Cont_Array) = 15 then : Select_Function = Mall_LastProducts(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11),m_Prar_Cont_Array(12),m_Prar_Cont_Array(13),m_Prar_Cont_Array(14),m_Prar_Cont_Array(15)) : else : Select_Function = "" : Exit Function : end if
			Case "mall_stylespecial" : if UBound(m_Prar_Cont_Array) = 15 then : Select_Function = Mall_StyleSpecial(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11),m_Prar_Cont_Array(12),m_Prar_Cont_Array(13),m_Prar_Cont_Array(14),m_Prar_Cont_Array(15)) : else : Select_Function = "" : Exit Function : end if
			Case "mall_recproducts"
				if UBound(m_Prar_Cont_Array) = 14 then ReDim Preserve m_Prar_Cont_Array(15) : m_Prar_Cont_Array(15) = "0"
				if UBound(m_Prar_Cont_Array) = 15 then : Select_Function = Mall_RecProducts(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11),m_Prar_Cont_Array(12),m_Prar_Cont_Array(13),m_Prar_Cont_Array(14),m_Prar_Cont_Array(15)) : else : Select_Function = "" : Exit Function : end if
			Case "mall_srecproducts"
				if UBound(m_Prar_Cont_Array) = 16 then ReDim Preserve m_Prar_Cont_Array(17) : m_Prar_Cont_Array(17) = "0"
				if UBound(m_Prar_Cont_Array) = 17 then : Select_Function = Mall_sRecProducts(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11),m_Prar_Cont_Array(12),m_Prar_Cont_Array(13),m_Prar_Cont_Array(14),m_Prar_Cont_Array(15),m_Prar_Cont_Array(16),m_Prar_Cont_Array(17)) : else : Select_Function = "" : Exit Function : end if
			Case "mall_spriceproducts"
				if UBound(m_Prar_Cont_Array) = 16 then ReDim Preserve m_Prar_Cont_Array(17) : m_Prar_Cont_Array(17) = "0"
				if UBound(m_Prar_Cont_Array) = 17 then : Select_Function = Mall_sPriceProducts(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11),m_Prar_Cont_Array(12),m_Prar_Cont_Array(13),m_Prar_Cont_Array(14),m_Prar_Cont_Array(15),m_Prar_Cont_Array(16),m_Prar_Cont_Array(17)) : else : Select_Function = "" : Exit Function : end if
			Case "mall_topproducts"
				if UBound(m_Prar_Cont_Array) = 14 then ReDim Preserve m_Prar_Cont_Array(15) : m_Prar_Cont_Array(15) = "0"
				if UBound(m_Prar_Cont_Array) = 15 then : Select_Function = Mall_TopProducts(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11),m_Prar_Cont_Array(12),m_Prar_Cont_Array(13),m_Prar_Cont_Array(14),m_Prar_Cont_Array(15)) : else : Select_Function = "" : Exit Function : end if
			Case "mall_help" : if UBound(m_Prar_Cont_Array) = 9 then : Select_Function = Mall_Help(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9)) : else : Select_Function = "" : Exit Function : end if
			'====================2006-06-14====================================================================
   Case "marqueepic" : If UBound(m_Prar_Cont_Array) = 12 then : Select_Function = marqueepic(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11),m_Prar_Cont_Array(12)) : Else : Select_Function = "" : Exit Function : End If
'=========================================end================================================================
			Case "mall_paystyle" : Select_Function = Mall_PayStyle
			'==============2006-06-07=======================================================================
   Case "spicnews" : if UBound(m_Prar_Cont_Array) = 16 then : Select_Function = SpicNews(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4),m_Prar_Cont_Array(5),m_Prar_Cont_Array(6),m_Prar_Cont_Array(7),m_Prar_Cont_Array(8),m_Prar_Cont_Array(9),m_Prar_Cont_Array(10),m_Prar_Cont_Array(11),m_Prar_Cont_Array(12),m_Prar_Cont_Array(13),m_Prar_Cont_Array(14),m_Prar_Cont_Array(15),m_Prar_Cont_Array(16)) : else : Select_Function = "" : Exit Function : end if
'================================================================================================ 
			Case "unrulenews" 
				if UBound(m_Prar_Cont_Array) = 3 then ReDim Preserve m_Prar_Cont_Array(4) : m_Prar_Cont_Array(4) = "0"
				if UBound(m_Prar_Cont_Array) = 4 then : Select_Function = Get_No_Rule_NewsList_Content(m_Prar_Cont_Array(1),m_Prar_Cont_Array(2),m_Prar_Cont_Array(3),m_Prar_Cont_Array(4)) : else : Select_Function = "" : Exit Function : end if
			Case "rss" : Select_Function = RSS : Exit Function
			'$$$$补充获得当前栏目名称
Case "getclasscname"
If UBound(m_Prar_Cont_Array)=1 then
Select_Function = GetClassCName()
Else
Select_Function = ""
End If
			Case Else : Select_Function = "" : Exit Function
		End Select
	End Function
	'────────────────────────────────
	Private Function Get_Vision_Str()
		Get_Vision_Str = ""
	End Function
	'────────────────────────────────
	Private Function Para_Value(Para_Name)
		Para_Value = m_ParaConts_Obj.Item(Para_Name)
	End Function
	'────────────────────────────────
	Sub Return_Value()
		Dim f_Items,f_Keys,f_i
		m_More_Pages.RemoveAll
		f_Items = Fun_More_Pages_Obj.Items
		f_Keys = Fun_More_Pages_Obj.Keys
		for f_i = 0 to Fun_More_Pages_Obj.Count - 1
			m_More_Pages.Add f_Keys(f_i),f_Items(f_i)
		Next
		Fun_More_Pages_Obj.RemoveAll
		Set Fun_More_Pages_Obj = Nothing
	End Sub
	'────────────────────────────────
	Private Function AddInCludeFileForPopNews()
		Dim f_HTML_SavePath,f_Loc,f_Array,f_Str,f_i
		f_HTML_SavePath = m_HTML_SavePath
		f_Str = ""
		if Get_RootDir <> "" then
			if InStr(f_HTML_SavePath,Get_RootDir) = 1 then
				f_HTML_SavePath = Right(f_HTML_SavePath,Len(f_HTML_SavePath) - Len(Get_RootDir))
			end if
		end if
		if Mid(f_HTML_SavePath,1,1) = "/" then f_HTML_SavePath = Right(f_HTML_SavePath,Len(f_HTML_SavePath) - 1)
		f_Array = Split(f_HTML_SavePath,"/")
		for f_i = LBound(f_Array) to UBound(f_Array)
			f_Str = f_Str & "../"
		Next
		AddInCludeFileForPopNews = AddInCludeFileForPopNews & "<!--#include file=""" & f_Str & "Inc/JudgeRead.asp"" -->" & Chr(13) & Chr(10)
	End Function
	'────────────────────────────────
	Private Function Get_No_Rule_NewsList_Content(f_EName,f_News_Num,f_Inclue_Child_Class_TF,f_OpenType)
		Dim f_Order_Type,f_Order_Field
		Dim f_Sql,f_All_Child_ClassID,f_ClassID,f_RS
		Dim f_Old_ID,f_New_ID
		f_OpenType = GetOpenTypeStr(f_OpenType)
		if f_News_Num = "" then f_News_Num = "10"
		f_Sql = "Select "
		f_Sql = f_Sql & "Top " & f_News_Num & " NewsIndexTitle,UnregulatedMain,MainUnregNewsID from FS_UnRGLNews,FS_News where 1=1 "
		if f_EName <> "" then
			f_ClassID = Get_ClassID_From_ClassEName(f_EName)
			if f_ClassID <> "" then
				if f_Inclue_Child_Class_TF = "1" then
					f_All_Child_ClassID = Get_All_Child_Class_Str(f_ClassID)
					if f_All_Child_ClassID <> "" then
						f_All_Child_ClassID = "'" & Replace(f_All_Child_ClassID,",","','") & "'"
						f_All_Child_ClassID = "'" & f_ClassID & "'" & "," & f_All_Child_ClassID
					else
						f_All_Child_ClassID = "'" & f_ClassID & "'"
					end if
				else
					f_All_Child_ClassID = "'" & f_ClassID & "'"
				end if
				f_Sql = f_Sql & " And FS_News.ClassID in (" & f_All_Child_ClassID & ")"
			end if
		end if
		f_Sql = f_Sql & " And FS_News.NewsID = FS_UnRGLNews.UnregulatedMain Order By FS_UnRGLNews.AddDate desc"
		Set f_RS = Server.CreateObject(G_FS_RS)
		f_RS.Open f_Sql,Conn,1,1
		if Not f_RS.Eof then
			Get_No_Rule_NewsList_Content = "<div align=""left"">&nbsp;"
			f_Old_ID = f_RS("UnregulatedMain")
			f_New_ID = f_RS("UnregulatedMain")
			do while Not f_RS.Eof
				f_New_ID = f_RS("UnregulatedMain")
				if f_Old_ID = f_New_ID then
					Get_No_Rule_NewsList_Content = Get_No_Rule_NewsList_Content & "<a "&f_OpenType&" href=""" & GetOneNewsLinkURL(f_RS("MainUnregNewsID")) & """>" & f_RS("NewsIndexTitle") & "</a>&nbsp;"
				else
					Get_No_Rule_NewsList_Content = Get_No_Rule_NewsList_Content & "</div><div align=""left"">&nbsp;"
					Get_No_Rule_NewsList_Content = Get_No_Rule_NewsList_Content & "<a "&f_OpenType&" href=""" & GetOneNewsLinkURL(f_RS("MainUnregNewsID")) & """>" & f_RS("NewsIndexTitle") & "</a>&nbsp;"
					f_Old_ID = f_New_ID
				end if
				f_RS.MoveNext
			Loop
			Get_No_Rule_NewsList_Content = Get_No_Rule_NewsList_Content & "</div>"
		else
			Get_No_Rule_NewsList_Content = ""
		end if
		Set f_RS = Nothing
	End Function
End Class
%>