开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Windows编程 > 数据库编程 > 查看源码
Public_Function.asp
资源名称：eat.rar　[点击查看]
上传用户：jisenq
上传日期：2014-06-29
资源大小：7216k
文件大小：26k
源码类别：

数据库编程

开发平台：

ASP/ASPX

Public_Function.asp：源码内容
  1. <%
  2. Function Refresh(f_Type,f_ID)
  3. Dim f_Array,f_Sql_Head,f_Sql
  4. f_Array = Split(f_Type,"_")
  5. if UBound(f_Array) = 1 then
  6. f_Sql_Head = Get_Search_Sql_Head(f_Array(0),f_Array(1))
  7. if InStr(1,f_Array(1),"special",1) = 0 then
  8. f_Sql = f_Sql_Head & " And A.ID=" & f_ID
  9. else
  10. f_Sql = f_Sql_Head & " And A.specialID=" & f_ID
  11. end if
  12. Refresh = Refresh_One_Record(f_Sql,false)
  13. else
  14. Refresh = False
  15. end if
  16. End Function
  18. Function Get_Search_Sql_Head(f_Sys_ID,f_Refresh_Type)
  19. Select Case f_Sys_ID
  20. Case "NS"
  21. If f_Refresh_Type = "news" then
  22. Get_Search_Sql_Head = "Select Top 1 0 as RefreshFileSaveType,'NS_news' as PageType,A.ID as OnlyID,A.isPop as RefreshisPop,A.NewsID as RefreshID,A.Templet as RefreshTemplet,A.SaveNewsPath as RefreshSavePath,A.FileName as RefreshFileName,A.FileExtName as RefreshFileExtName,B.SavePath as SaveClassPath,B.ClassEName,B.ClassName as ClassCName from FS_NS_News as A,FS_NS_NewsClass as B where A.ClassID=B.ClassID and A.isURL=0 and A.isdraft=0 and A.isRecyle=0 and A.isLock=0"
  23. ElseIf f_Refresh_Type = "class" then
  24. Get_Search_Sql_Head = "Select Top 1 A.FileSaveType as RefreshFileSaveType,'NS_class' as PageType,A.ID as OnlyID,0 as RefreshisPop,Templet as RefreshTemplet,ClassID as RefreshID,SavePath as SaveClassPath,'' as RefreshSavePath,ClassEName,'index' as RefreshFileName,FileExtName as RefreshFileExtName from FS_NS_NewsClass as A where 1=1"
  25. ElseIf f_Refresh_Type = "special" then
  26. Get_Search_Sql_Head = "Select Top 1 3 as RefreshFileSaveType,'NS_special' as PageType,A.specialID as OnlyID,0 as RefreshisPop,Templet as RefreshTemplet,specialID as RefreshID,Savepath as SaveClassPath,'' as RefreshSavePath,SpecialEName as ClassEName,'index' as RefreshFileName,ExtName as RefreshFileExtName from FS_NS_Special as A where 1=1"
  27. else
  28. Get_Search_Sql_Head = ""
  29. end if
  30. Case "MS"
  31. If f_Refresh_Type = "product" then
  32. Get_Search_Sql_Head = "Select Top 1 0 as RefreshFileSaveType,'MS_news' as PageType,A.ID as OnlyID,0 as RefreshisPop,A.ID as RefreshID,A.TempletFile as RefreshTemplet,A.SavePath as RefreshSavePath,A.FileName as RefreshFileName,A.FileExtName as RefreshFileExtName,B.SavePath as SaveClassPath,B.ClassEName,B.ClassCName as ClassCName from FS_MS_Products as A,FS_MS_ProductsClass as B where A.ClassID=B.ClassID "
  33. ElseIf f_Refresh_Type = "class" then
  34. Get_Search_Sql_Head = "Select Top 1 A.FileSaveType as RefreshFileSaveType,'MS_class' as PageType,A.ID as OnlyID,0 as RefreshisPop,ID as RefreshID,ProductsTemplet as RefreshTemplet,'' as RefreshSavePath,'index' as RefreshFileName,FileExtName as RefreshFileExtName,SavePath as SaveClassPath,ClassEName,ClassCName from FS_MS_ProductsClass as A where 1=1 "
  35. ElseIf f_Refresh_Type = "special" then
  36. Get_Search_Sql_Head = "Select Top 1 3 as RefreshFileSaveType,'MS_special' as PageType,A.specialID as OnlyID,0 as RefreshisPop,specialID as RefreshID,SpecialTemplet as RefreshTemplet,'' as RefreshSavePath,'index' as RefreshFileName,FileExtName as RefreshFileExtName,Savepath as SaveClassPath,SpecialEName as ClassEName,SpecialCName as ClassCName from FS_MS_Special as A where 1=1 "
  37. else
  38. Get_Search_Sql_Head = ""
  39. End if
  40. Case "DS"
  41. If f_Refresh_Type = "download" Then
  42. Get_Search_Sql_Head = "Select Top 1 0 as RefreshFileSaveType,'DS_news' as PageType,A.ID as OnlyID,0 as RefreshisPop,A.DownLoadID as RefreshID,A.NewsTemplet as RefreshTemplet,A.SavePath as RefreshSavePath,A.FileName as RefreshFileName,A.FileExtName as RefreshFileExtName,B.SavePath as SaveClassPath,B.ClassEName,B.ClassName as ClassCName from FS_DS_List as A,FS_DS_Class as B where A.ClassID=B.ClassID "
  43. ElseIf f_Refresh_Type = "class" Then
  44. Get_Search_Sql_Head = "Select Top 1 A.FileSaveType as RefreshFileSaveType,'DS_class' as PageType,A.ID as OnlyID,0 as RefreshisPop,ClassID as RefreshID,Templet as RefreshTemplet,'' as RefreshSavePath,'index' as RefreshFileName,FileExtName as RefreshFileExtName,SavePath as SaveClassPath,ClassEName,ClassName as ClassCName from FS_DS_Class as A where 1=1 "
  45. Else
  46. Get_Search_Sql_Head = ""
  47. End If
  48. Case Else
  49. Get_Search_Sql_Head = ""
  50. End Select
  51. End Function
  53. Function Refresh_One_Record(f_Refresh_Sql,IsCookies)
  54. Dim f_RS,f_SYS_ROOT_DIR,f_Templet,f_Phy_Templet,f_File_Content,f_HTML_Save_Phy_Path_Str,f_Check_Phy_Path_Str,f_HTML_Save_Path_Str
  55. Dim f_PAGES_DICT_OBJ,f_MORE_PAGES_DICT_ITEMS_OBJ,f_MORE_PAGES_DICT_KEYS_OBJ,f_FSO_OBJ,f_FILE_OBJ,f_FILE_STREAM_OBJ
  56. Dim f_HTML_File_Save_Path_Str,f_HTML_File_Save_Phy_Path_Str,f_i,f_More_Page_Link_Str,f_More_Page_Array,f_Temf_File_Content
  57. Dim f_PLACE_OBJ,f_Temp_More_Page_Link_Str,Str_Page_Style,Str_File_Name
  58. Dim patrn(1),strng
  59. patrn(0)="</head>"
  60. patrn(1)="<body"
  61. strng=Get_JS_CopyRight("NewsId")
  62. if G_VIRTUAL_ROOT_DIR = "" then
  63. f_SYS_ROOT_DIR = ""
  64. else
  65. f_SYS_ROOT_DIR = "/" & G_VIRTUAL_ROOT_DIR
  66. end if
  67. Set f_RS = Conn.Execute(f_Refresh_Sql)
  68. if Not f_RS.Eof then
  69. If IsCookies Then
  70. Response.Cookies("COOKIES_REFRESH_FirstID") = f_RS("OnlyID")
  71. End If
  72. f_Templet = f_SYS_ROOT_DIR & f_RS("RefreshTemplet")
  73. f_Phy_Templet = Server.MapPath(f_Templet)
  74. Set f_FSO_OBJ = Server.CreateObject(G_FS_FSO)
  75. if f_FSO_OBJ.FileExists(f_Phy_Templet) = False then
  76. f_File_Content = "模板不存在，请添加模板后再生成！"
  77. else
  78. Set f_FILE_OBJ = f_FSO_OBJ.GetFile(f_Phy_Templet)
  79. Set f_FILE_STREAM_OBJ = f_FILE_OBJ.OpenAsTextStream(1)
  80. if Not f_FILE_STREAM_OBJ.AtEndOfStream then
  81. f_File_Content = f_FILE_STREAM_OBJ.ReadAll
  82. if f_RS("RefreshisPop") = 1 then f_File_Content = "<span id=""NS_" & f_RS("RefreshID") & """></span>" & vbNewLine & f_File_Content
  83. else
  84. f_File_Content = "模板内容为空"
  85. end if
  86. end if
  87. Set f_FILE_STREAM_OBJ = Nothing
  88. Set f_FILE_OBJ = Nothing
  89. Set f_FSO_OBJ = Nothing
  91. Set f_PAGES_DICT_OBJ = Replace_All_Flag(f_File_Content,f_RS("RefreshID"),f_RS("PageType"))
  92. f_File_Content = f_PAGES_DICT_OBJ.Item("-3")
  94. if f_RS("RefreshFileSaveType") = 2 Or f_RS("RefreshFileSaveType") = 3 then
  95. f_HTML_Save_Path_Str = f_SYS_ROOT_DIR & f_RS("SaveClassPath")
  96. else
  97. f_HTML_Save_Path_Str = f_SYS_ROOT_DIR & f_RS("SaveClassPath") & "/" & f_RS("ClassEName") & f_RS("RefreshSavePath")
  98. end If
  99. f_HTML_Save_Phy_Path_Str = Server.MapPath(f_HTML_Save_Path_Str)
  100. f_Check_Phy_Path_Str = Server.MapPath(f_SYS_ROOT_DIR & f_RS("SaveClassPath"))
  101. CreatePath f_Check_Phy_Path_Str,Server.MapPath("/")
  102. CreatePath f_HTML_Save_Phy_Path_Str,f_Check_Phy_Path_Str
  104. f_MORE_PAGES_DICT_ITEMS_OBJ = f_PAGES_DICT_OBJ.Items
  105. f_MORE_PAGES_DICT_KEYS_OBJ = f_PAGES_DICT_OBJ.Keys
  106. Rem 建立正则对象
  107. Set f_PLACE_OBJ = New RegExp
  108. Rem ============
  109. If f_PAGES_DICT_OBJ.Count <= 3 Then
  110. If f_RS("RefreshFileSaveType") = 1 OR f_RS("RefreshFileSaveType") = 2 Then
  111. f_HTML_File_Save_Path_Str = f_HTML_Save_Path_Str & "/" & f_RS("ClassEName") & "." & f_RS("RefreshFileExtName")
  112. ElseIf f_RS("RefreshFileSaveType") = 3 Then
  113. f_HTML_File_Save_Path_Str = f_HTML_Save_Path_Str & "/Special_" & f_RS("ClassEName") & "." & f_RS("RefreshFileExtName")
  114. Else
  115. f_HTML_File_Save_Path_Str = f_HTML_Save_Path_Str & "/" & f_RS("RefreshFileName") & "." & f_RS("RefreshFileExtName")
  116. End If
  117. f_HTML_File_Save_Path_Str=replace(replace(f_HTML_File_Save_Path_Str,"//","/"),"\","")
  118. f_HTML_File_Save_Phy_Path_Str = Server.MapPath(f_HTML_File_Save_Path_Str)
  119. Rem 加入版权信息和关键JS文件（正则搜索）
  120. f_PLACE_OBJ.Pattern = patrn(0)
  121. f_PLACE_OBJ.IgnoreCase = True
  122. f_PLACE_OBJ.Global = False
  123. f_PLACE_OBJ.Multiline = True
  124. If f_PLACE_OBJ.Test(f_File_Content) Then
  125. f_File_Content=f_PLACE_OBJ.Replace(f_File_Content,patrn(0)&vbNewLine&strng)
  126. Else
  127. f_PLACE_OBJ.Pattern = patrn(1)
  128. If f_PLACE_OBJ.Test(f_File_Content) Then
  129. f_File_Content=f_PLACE_OBJ.Replace(f_File_Content,patrn(1)&vbNewLine&strng)
  130. Else
  131. f_File_Content=strng&vbNewLine&f_File_Content
  132. End If
  133. End If
  134. Rem ===================================
  135. AllSaveFile f_File_Content,f_HTML_File_Save_Path_Str
  136. Else
  137. For f_i = 3 To f_PAGES_DICT_OBJ.Count - 1
  138. f_More_Page_Link_Str = f_PAGES_DICT_OBJ.Item("-1")
  140. If f_RS("RefreshFileSaveType") = 1 OR f_RS("RefreshFileSaveType") = 2 Then
  141. Str_File_Name = "/" & f_RS("ClassEName")
  142. ElseIf f_RS("RefreshFileSaveType") = 3 Then
  143. Str_File_Name = "/Special_" & f_RS("ClassEName")
  144. Else
  145. Str_File_Name = "/" & f_RS("RefreshFileName")
  146. End If
  147. If f_More_Page_Link_Str = "newsmorepage" Then
  148. f_More_Page_Link_Str = Get_More_Page_Link_Str("","","",f_PAGES_DICT_OBJ.Count - 3,f_i - 2,Str_File_Name,f_RS("RefreshFileExtName"))
  149. Else
  150. f_PLACE_OBJ.Pattern = "{Foosun_Page_news}"
  151. f_PLACE_OBJ.IgnoreCase = True
  152. f_PLACE_OBJ.Global = True
  153. f_Temp_More_Page_Link_Str = f_PLACE_OBJ.Replace(f_More_Page_Link_Str,"")
  154. f_PLACE_OBJ.Pattern = "{/Foosun_Page_news}"
  155. f_Temp_More_Page_Link_Str = f_PLACE_OBJ.Replace(f_Temp_More_Page_Link_Str,"")
  157. f_More_Page_Array = Split(f_Temp_More_Page_Link_Str,",")
  158. Str_Page_Style=Split(f_More_Page_Array(1),"|")
  159. If UBound(f_More_Page_Array) < 1 Then
  160. f_More_Page_Link_Str = ""
  161. Else
  162. f_More_Page_Link_Str = Get_More_Page_Link_Str(Trim(f_More_Page_Array(0)),Trim(Str_Page_Style(0)),Trim(Str_Page_Style(1)),f_PAGES_DICT_OBJ.Count - 3,f_i - 2,Str_File_Name,f_RS("RefreshFileExtName"))
  163. End If
  164. End If
  165. f_Temf_File_Content = f_File_Content
  166. f_Temf_File_Content = Replace(f_Temf_File_Content,f_PAGES_DICT_OBJ.Item("-2"),f_MORE_PAGES_DICT_ITEMS_OBJ(f_i) & f_More_Page_Link_Str)
  167. If f_i > 3 Then
  168. Str_File_Name = Str_File_Name & "_" & (f_i - 2)
  169. End If
  170. f_HTML_File_Save_Path_Str = f_HTML_Save_Path_Str & Str_File_Name & "." & f_RS("RefreshFileExtName")
  171. f_HTML_File_Save_Phy_Path_Str = Server.MapPath(f_HTML_File_Save_Path_Str)
  172. Rem 加入版权信息和关键JS文件（正则搜索）
  173. f_PLACE_OBJ.Pattern = patrn(0)
  174. f_PLACE_OBJ.IgnoreCase = True
  175. f_PLACE_OBJ.Global = False
  176. f_PLACE_OBJ.Multiline = True
  177. If f_PLACE_OBJ.Test(f_Temf_File_Content) Then
  178. f_Temf_File_Content=f_PLACE_OBJ.Replace(f_Temf_File_Content,patrn(0)&vbNewLine&strng)
  179. Else
  180. f_PLACE_OBJ.Pattern = patrn(1)
  181. If f_PLACE_OBJ.Test(f_Temf_File_Content) Then
  182. f_Temf_File_Content=f_PLACE_OBJ.Replace(f_Temf_File_Content,patrn(1)&vbNewLine&strng)
  183. Else
  184. f_Temf_File_Content=strng&vbNewLine&f_Temf_File_Content
  185. End If
  186. End If
  187. Rem ===================================
  188. AllSaveFile f_Temf_File_Content,f_HTML_File_Save_Path_Str
  189. Next
  190. end If
  191. Set f_PLACE_OBJ = Nothing
  192. f_PAGES_DICT_OBJ.RemoveAll
  193. Set f_PAGES_DICT_OBJ = Nothing
  194. Refresh_One_Record = True
  195. else
  196. Refresh_One_Record = False
  197. end if
  198. f_RS.Close
  199. Set f_RS = Nothing
  200. End Function
  202. Function Replace_All_Flag(f_File_Cont,f_NewsID,PageType)
  203. Dim f_REG_EX,f_REG_MATCH,f_REG_MATCHS,f_REG_PLACE_OBJ,f_TEST_LABLE_CONT_MATCHS,f_TEST_LABLE_CONT_MATCH,f_MORE_PAGES_DICT_OBJ
  204. Dim f_REG_Head_Str,f_REG_Tailor_Str,f_Match_Str,f_Lable_Cont,f_RERESH_OBJ,f_Sys_ID,f_Lable_Para_Value,f_Raw_Data
  205. Dim f_LABLE_DICT_OBJ,f_Lable,f_DICT_ITEMS_OBJ,f_DICT_KEYS_OBJ,f_i,f_j,f_ARRAY_OBJ,f_More_Pages_Flag_TF,f_NEWS_CONT_REPLACE_FLAG_OBJ
  206. Dim f_DICT_MATCHS,f_Replace_Flag_TF,f_NEWS_CONT_REG_OBJ,f_NEWS_CONT_MATCHS,f_Lable_News_Cont,f_Lable_One_Page_News_Cont,Str_MFFlag
  207. f_More_Pages_Flag_TF = False
  208. f_REG_Head_Str = "{FS400_"
  209. f_REG_Tailor_Str = "}"
  210. Set f_MORE_PAGES_DICT_OBJ = Server.CreateObject(G_FS_DICT)
  211. Set f_LABLE_DICT_OBJ = Server.CreateObject(G_FS_DICT)
  212. Set f_REG_EX = New RegExp
  213. f_REG_EX.Pattern = f_REG_Head_Str & ".*?" & f_REG_Tailor_Str
  214. f_REG_EX.IgnoreCase = True
  215. f_REG_EX.Global = True
  216. Set f_REG_MATCHS = f_REG_EX.Execute(f_File_Cont)
  217. f_Raw_Data = f_File_Cont
  218. For Each f_REG_MATCH in f_REG_MATCHS
  219. f_Match_Str = f_REG_MATCH.Value
  220. f_Lable = f_Match_Str
  221. f_Match_Str = Replace(f_Match_Str,Chr(13) & Chr(10),"")
  222. Set f_REG_PLACE_OBJ = New RegExp
  223. f_REG_PLACE_OBJ.IgnoreCase = True
  224. f_REG_PLACE_OBJ.Global = True
  225. f_Match_Str=Get_Label_Content(f_Match_Str)
  226. f_REG_PLACE_OBJ.Pattern = "{FS:.*}"
  227. Set f_TEST_LABLE_CONT_MATCHS = f_REG_PLACE_OBJ.Execute(f_Match_Str)
  228. if (f_TEST_LABLE_CONT_MATCHS.Count>0) then
  229. for Each f_TEST_LABLE_CONT_MATCH in f_TEST_LABLE_CONT_MATCHS
  230. f_Lable_Para_Value = f_TEST_LABLE_CONT_MATCH.Value
  231. f_Sys_ID = Mid(f_Lable_Para_Value,5,2)
  232. f_Lable_Para_Value = Mid(f_Lable_Para_Value,8,Len(f_Lable_Para_Value) - 8)
  233. Str_MFFlag=False
  234. if Request.Cookies("FoosunSUBCookie")("FoosunSUB" & f_Sys_ID) = "1" then
  235. Select Case f_Sys_ID
  236. Case "NS"
  237. Set f_RERESH_OBJ = New cls_NS
  238. Case "MS"
  239. Set f_RERESH_OBJ = New cls_MS
  240. Case "DS"
  241. Set f_RERESH_OBJ = New cls_DS
  242. Case "ME"
  243. Set f_RERESH_OBJ = New cls_ME
  244. Case "MF"
  245. Set f_RERESH_OBJ = New cls_MF
  246. Str_MFFlag=True
  247. Case "SD"
  248. Set f_RERESH_OBJ = New cls_SD
  249. Case "HS"
  250. Set f_RERESH_OBJ = New cls_HS
  251. Case "AP"
  252. Set f_RERESH_OBJ = New cls_AP
  253. Case Else
  254. Set f_RERESH_OBJ = New cls_Other
  255. End Select
  256. If Str_MFFlag Then
  257. f_Lable_Cont = f_RERESH_OBJ.get_LableChar(f_Lable_Para_Value,f_NewsID,PageType)
  258. Else
  259. f_Lable_Cont = f_RERESH_OBJ.get_LableChar(f_Lable_Para_Value,f_NewsID)
  260. End If
  261. f_Match_Str = Replace(f_Match_Str,f_TEST_LABLE_CONT_MATCH.Value,"{|}"&f_Lable_Cont&"{|}")
  262. End If
  263. Set f_RERESH_OBJ = Nothing
  264. Next
  265. End If
  266. If Not f_LABLE_DICT_OBJ.Exists(f_Lable) Then
  267. f_LABLE_DICT_OBJ.Add f_Lable,f_Match_Str
  268. End If
  269. Set f_REG_PLACE_OBJ = Nothing
  270. Next
  271. f_MORE_PAGES_DICT_OBJ.Add "-3",""
  272. f_DICT_ITEMS_OBJ = f_LABLE_DICT_OBJ.Items
  273. f_DICT_KEYS_OBJ = f_LABLE_DICT_OBJ.Keys
  274. Dim Str_Other,PageNum_Flag
  275. For f_i = 0 To f_LABLE_DICT_OBJ.Count - 1
  276. if Not f_More_Pages_Flag_TF then
  277. f_Replace_Flag_TF = False
  278. Set f_REG_PLACE_OBJ = New RegExp
  279. f_REG_PLACE_OBJ.Pattern = "{foosun_page_news}.*{/foosun_page_news}"
  280. f_REG_PLACE_OBJ.IgnoreCase = True
  281. f_REG_PLACE_OBJ.Global = True
  283. Set f_DICT_MATCHS = f_REG_PLACE_OBJ.Execute(f_DICT_ITEMS_OBJ(f_i))
  285. if (f_DICT_MATCHS.Count>=1) And (f_More_Pages_Flag_TF=False) Then
  286. f_More_Pages_Flag_TF = True
  287. Str_Other=Split(f_DICT_ITEMS_OBJ(f_i),"{|}")
  288. f_ARRAY_OBJ = Split(Str_Other(1),f_DICT_MATCHS(0).Value)
  289. f_MORE_PAGES_DICT_OBJ.Add "-2",f_DICT_KEYS_OBJ(f_i)
  290. f_MORE_PAGES_DICT_OBJ.Add "-1",f_DICT_MATCHS(0).Value
  291. PageNum_Flag=False
  292. for f_j = LBound(f_ARRAY_OBJ) To UBound(f_ARRAY_OBJ)
  293. If Len(f_ARRAY_OBJ(f_j)) > 1 then
  294. If Not f_MORE_PAGES_DICT_OBJ.Exists(f_j) Then
  295. f_MORE_PAGES_DICT_OBJ.Add f_j,f_ARRAY_OBJ(f_j)
  296. PageNum_Flag=True
  297. End If 
  298. end if
  299. Next
  300. If PageNum_Flag Then
  301. f_Raw_Data = Replace(f_Raw_Data,f_DICT_KEYS_OBJ(f_i),Str_Other(0)&f_DICT_KEYS_OBJ(f_i)&Str_Other(2))
  302. End If 
  303. Set Str_Other=Nothing 
  304. f_Replace_Flag_TF = True
  305. Else
  306. f_DICT_ITEMS_OBJ(f_i)=Replace(f_DICT_ITEMS_OBJ(f_i),"{|}","")
  307. End If
  308. f_REG_PLACE_OBJ.Pattern = "[fs:page]"
  309. Set f_DICT_MATCHS = f_REG_PLACE_OBJ.Execute(f_DICT_ITEMS_OBJ(f_i))
  310. Set f_NEWS_CONT_REG_OBJ = New RegExp
  311. f_NEWS_CONT_REG_OBJ.IgnoreCase = True
  312. f_NEWS_CONT_REG_OBJ.Global = True
  313. f_NEWS_CONT_REG_OBJ.Pattern = "[FS:CONTENT_START][^]*[FS:CONTENT_END]"
  314. Set f_NEWS_CONT_MATCHS = f_NEWS_CONT_REG_OBJ.Execute(f_DICT_ITEMS_OBJ(f_i))
  315. if (f_DICT_MATCHS.Count>=1) And (f_More_Pages_Flag_TF=False) And (f_NEWS_CONT_MATCHS.Count=1) then
  316. f_More_Pages_Flag_TF = True
  317. f_MORE_PAGES_DICT_OBJ.Add "-2",f_DICT_KEYS_OBJ(f_i)
  318. f_MORE_PAGES_DICT_OBJ.Add "-1","newsmorepage"
  319. f_Lable_News_Cont = f_NEWS_CONT_MATCHS(0).Value
  320. Set f_NEWS_CONT_REPLACE_FLAG_OBJ = New RegExp
  321. f_NEWS_CONT_REPLACE_FLAG_OBJ.IgnoreCase = True
  322. f_NEWS_CONT_REPLACE_FLAG_OBJ.Global = True
  323. f_NEWS_CONT_REPLACE_FLAG_OBJ.Pattern = "[FS:CONTENT_START]"
  324. f_Lable_News_Cont = f_NEWS_CONT_REPLACE_FLAG_OBJ.Replace(f_Lable_News_Cont,"")
  325. f_NEWS_CONT_REPLACE_FLAG_OBJ.Pattern = "[FS:CONTENT_END]"
  326. f_Lable_News_Cont = f_NEWS_CONT_REPLACE_FLAG_OBJ.Replace(f_Lable_News_Cont,"")
  327. Set f_NEWS_CONT_REPLACE_FLAG_OBJ = Nothing
  328. f_ARRAY_OBJ = Split(f_Lable_News_Cont,f_DICT_MATCHS(0).Value)
  329. PageNum_Flag=False
  330. Str_Other=Split(f_DICT_ITEMS_OBJ(f_i),f_NEWS_CONT_MATCHS(0).Value)
  331. for f_j = LBound(f_ARRAY_OBJ) To UBound(f_ARRAY_OBJ)
  332. if Len(f_ARRAY_OBJ(f_j)) > 1 then
  333. 'f_Lable_One_Page_News_Cont = f_DICT_ITEMS_OBJ(f_i)
  334. 'f_Lable_One_Page_News_Cont = Replace(f_Lable_One_Page_News_Cont,f_NEWS_CONT_MATCHS(0).Value,f_ARRAY_OBJ(f_j))
  335. if Not f_MORE_PAGES_DICT_OBJ.Exists(f_j) Then
  336. 'f_MORE_PAGES_DICT_OBJ.Add f_j,f_Lable_One_Page_News_Cont
  337. f_MORE_PAGES_DICT_OBJ.Add f_j,f_ARRAY_OBJ(f_j)
  338. End If 
  339. PageNum_Flag=True
  340. end if
  341. Next
  342. If PageNum_Flag Then
  343. f_Raw_Data = Replace(f_Raw_Data,f_DICT_KEYS_OBJ(f_i),Str_Other(0)&f_DICT_KEYS_OBJ(f_i)&Str_Other(1))
  344. End If 
  345. Set Str_Other=Nothing 
  346. f_Replace_Flag_TF = True
  347. end if
  348. Set f_NEWS_CONT_REG_OBJ = Nothing
  349. Set f_REG_PLACE_OBJ = Nothing
  350. if Not f_Replace_Flag_TF Then
  351. f_DICT_ITEMS_OBJ(f_i)=Replace(f_DICT_ITEMS_OBJ(f_i),"{|}","")
  352. f_Raw_Data = Replace(f_Raw_Data,f_DICT_KEYS_OBJ(f_i),f_DICT_ITEMS_OBJ(f_i))
  353. End If
  354. Else
  355. f_DICT_ITEMS_OBJ(f_i)=Replace(f_DICT_ITEMS_OBJ(f_i),"{|}","")
  356. f_Raw_Data = Replace(f_Raw_Data,f_DICT_KEYS_OBJ(f_i),f_DICT_ITEMS_OBJ(f_i))
  357. End If
  358. Next
  359. f_MORE_PAGES_DICT_OBJ.Item("-3") = Replace(f_Raw_Data,"{|}","")
  360. f_LABLE_DICT_OBJ.RemoveAll
  361. Set f_LABLE_DICT_OBJ = Nothing
  362. ''Dic_Test(f_DICT_ITEMS_OBJ)
  363. Set Replace_All_Flag = f_MORE_PAGES_DICT_OBJ
  364. Set f_MORE_PAGES_DICT_OBJ = Nothing
  365. End Function
  367. Function Get_More_Page_Link_Str(f_More_Page_Link_Type,f_More_Page_Link_Color,f_More_Page_Css,f_Page_Count,f_More_Page_Index,f_File_Name,f_File_Ext_Name)
  368. Dim f_i,Str_Link,LinkUrl,Str_Style,Str_LinkUrl_Page
  369. Dim str_nonLinkColor,str_toF,str_toP10,str_toP1,str_toN1,str_toN10,str_toL,StartPage,EndPage,I
  370. If f_More_Page_Index>f_Page_Count Then
  371. f_More_Page_Index=f_Page_Count
  372. End If
  373. LinkUrl = "."&f_File_Name
  374. Str_Link=""
  375. If f_More_Page_Link_Type="" Then
  376. f_More_Page_Link_Type=0
  377. End If
  378. If f_More_Page_Link_Color<>"" Then
  379. Str_Style=Str_Style&" style=""color: #"&f_More_Page_Link_Color&";"""
  380. End If
  381. If f_More_Page_Css<>"" Then
  382. Str_Style=Str_Style&" class="""&f_More_Page_Css&""""
  383. End If
  384. If f_Page_Count>1 Then
  385. Select Case f_More_Page_Link_Type
  386. Case 1
  387. If f_More_Page_Index=1 Then
  388. Str_Link=Str_Link&"上一页"
  389. Str_Link=Str_Link&"&nbsp;<a href="""&LinkUrl&"_"&f_More_Page_Index+1&"."&f_File_Ext_Name&""""&Str_Style&">下一页</a>"
  390. ElseIf (f_More_Page_Index+1)>f_Page_Count Then
  391. If f_More_Page_Index-1<2 Then
  392. Str_Link=Str_Link&"<a href="""&LinkUrl&"."&f_File_Ext_Name&""""&Str_Style&">上一页</a>"
  393. Else
  394. Str_Link=Str_Link&"<a href="""&LinkUrl&"_"&f_More_Page_Index-1&"."&f_File_Ext_Name&""""&Str_Style&">上一页</a>"
  395. End If
  396. Str_Link=Str_Link&"&nbsp;下一页"
  397. Else
  398. If f_More_Page_Index-1<2 Then
  399. Str_Link=Str_Link&"<a href="""&LinkUrl&"."&f_File_Ext_Name&""""&Str_Style&">上一页</a>"
  400. Else
  401. Str_Link=Str_Link&"<a href="""&LinkUrl&"_"&f_More_Page_Index-1&"."&f_File_Ext_Name&""""&Str_Style&">上一页</a>"
  402. End If
  403. Str_Link=Str_Link&"&nbsp;<a href="""&LinkUrl&"_"&f_More_Page_Index+1&"."&f_File_Ext_Name&""""&Str_Style&">下一页</a>"
  404. End If
  405. Case 2
  406. Str_Link="共"&f_Page_Count&"页&nbsp;"
  407. For f_i=1 To f_Page_Count
  408. If f_i>1 Then
  409. Str_LinkUrl_Page=LinkUrl&"_"&f_i
  410. Else
  411. Str_LinkUrl_Page=LinkUrl
  412. End If
  413. If f_i= f_More_Page_Index Then
  414. Str_Link=Str_Link&"&nbsp;第"&f_i&"页"
  415. Else
  416. Str_Link=Str_Link&"&nbsp;<a href="""&Str_LinkUrl_Page&"."&f_File_Ext_Name&""""&Str_Style&">第"&f_i&"页</a>"
  417. End If
  418. Next
  419. Case 3
  420. Str_Link="共"&f_Page_Count&"页&nbsp;"
  421. For f_i=1 To f_Page_Count
  422. If f_i>1 Then
  423. Str_LinkUrl_Page=LinkUrl&"_"&f_i
  424. Else
  425. Str_LinkUrl_Page=LinkUrl
  426. End If
  427. If f_i= f_More_Page_Index Then
  428. Str_Link=Str_Link&"&nbsp;"&f_i&""
  429. Else
  430. Str_Link=Str_Link&"&nbsp;<a href="""&Str_LinkUrl_Page&"."&f_File_Ext_Name&""""&Str_Style&">"&f_i&"</a>"
  431. End If
  432. Next
  433. Case Else
  434. str_nonLinkColor="#999999" '非热链接颜色
  435. str_toF="<font face=""webdings"">9</font>"   '第一页
  436. str_toP10="<font face=""webdings"">7</font>" '上十
  437. str_toP1="<font face=""webdings"">3</font>" '上一
  438. str_toN1="<font face=""webdings"">4</font>" '下一
  439. str_toN10="<font face=""webdings"">8</font>" '下十
  440. str_toL="<font face=""webdings"">:</font>" '尾页
  442. Str_Link=""
  444. if f_More_Page_Index=1 then
  445. Str_Link=Str_Link& "<font color="&str_nonLinkColor&" title=""第一页"">"&str_toF&"</font> " &vbNewLine
  446. Else
  447. Str_Link=Str_Link& "<a href="""&LinkUrl&"."&f_File_Ext_Name&""""&Str_Style&" title=""第一页"">"&str_toF&"</a> " &vbNewLine
  448. End If
  449. if f_More_Page_Index<11 then
  450. StartPage = 1
  451. else
  452. If f_More_Page_Index>(fix(f_More_Page_Index / 10) * 10) Then
  453. StartPage = (fix(f_More_Page_Index / 10) * 10)+1
  454. Else
  455. StartPage = ((fix(f_More_Page_Index / 10)-1) * 10)+1
  456. End If
  457. end if
  458. EndPage=StartPage+9
  459. If EndPage>f_Page_Count Then
  460. EndPage=f_Page_Count
  461. End If
  463. If StartPage>10 Then
  464. If (f_More_Page_Index - 10)<2 Then
  465. Str_Link=Str_Link& "<a href="""&LinkUrl&"."&f_File_Ext_Name&""""&Str_Style&" title=""上十页"">"&str_toP10&"</a> "  &vbNewLine
  466. Else
  467. Str_Link=Str_Link& "<a href="""&LinkUrl&"_"&f_More_Page_Index - 10&"."&f_File_Ext_Name&""""&Str_Style&" title=""上十页"">"&str_toP10&"</a> "  &vbNewLine
  468. End If
  469. Else
  470. Str_Link=Str_Link& "<font color="&str_nonLinkColor&" title=""上十页"">"&str_toP10&"</font> "  &vbNewLine
  471. End If
  473. If f_More_Page_Index > 1 Then
  474. If f_More_Page_Index=2 Then
  475. Str_Link=Str_Link& "<a href="""&LinkUrl&"."&f_File_Ext_Name&""""&Str_Style&" title=""上一页"">"&str_toP1&"</a> "  &vbNewLine
  476. Else
  477. Str_Link=Str_Link& "<a href="""&LinkUrl&"_"&f_More_Page_Index - 1&"."&f_File_Ext_Name&""""&Str_Style&" title=""上一页"">"&str_toP1&"</a> "  &vbNewLine
  478. End If
  479. Else
  480. Str_Link=Str_Link& "<font color="&str_nonLinkColor&" title=""上一页"">"&str_toP1&"</font> "  &vbNewLine
  481. End If
  483. For I=StartPage To EndPage
  484. If I=f_More_Page_Index Then
  485. Str_Link=Str_Link& "<b>"&I&"</b>"  &vbNewLine
  486. Else
  487. If I=1 Then
  488. Str_Link=Str_Link& "<a href="""&LinkUrl&"."&f_File_Ext_Name&""""&Str_Style&">" &I& "</a>"  &vbNewLine
  489. Else
  490. Str_Link=Str_Link& "<a href="""&LinkUrl&"_"&I&"."&f_File_Ext_Name&""""&Str_Style&">" &I& "</a>"  &vbNewLine
  491. End If
  492. End If
  493. Next
  494. If f_More_Page_Index < f_Page_Count Then
  495. Str_Link=Str_Link& " <a href="""&LinkUrl&"_"&f_More_Page_Index + 1&"."&f_File_Ext_Name&""""&Str_Style&" title=""下一页"">"&str_toN1&"</a> "  &vbNewLine
  496. Else
  497. Str_Link=Str_Link& "<font color="&str_nonLinkColor&" title=""下一页"">"&str_toN1&"</font> "  &vbNewLine
  498. End If
  500. If EndPage<f_Page_Count Then
  501. If (f_More_Page_Index+10)>f_Page_Count Then
  502. Str_Link=Str_Link& " <a href="""&LinkUrl&"_"&f_Page_Count&"."&f_File_Ext_Name&""""&Str_Style&"  title=""下十页"">"&str_toN10&"</a> "  &vbNewLine
  503. Else
  504. Str_Link=Str_Link& " <a href="""&LinkUrl&"_"&f_More_Page_Index+10&"."&f_File_Ext_Name&""""&Str_Style&"  title=""下十页"">"&str_toN10&"</a> "  &vbNewLine
  505. End If
  506. Else
  507. Str_Link=Str_Link& " <font color="&str_nonLinkColor&"  title=""下十页"">"&str_toN10&"</font> "  &vbNewLine
  508. End If
  510. if f_More_Page_Index<f_Page_Count Then
  511. Str_Link=Str_Link& "<a href="""&LinkUrl&"_"&f_Page_Count&"."&f_File_Ext_Name&""""&Str_Style&" title=""尾页"">"&str_toL&"</a>"  &vbNewLine
  512. Else
  513. Str_Link=Str_Link& "<font color="&str_nonLinkColor&" title=""尾页"">"&str_toL&"</font>"  &vbNewLine
  514. End If
  515. End Select
  516. End If
  517. Get_More_Page_Link_Str="<div>"&Str_Link&"</div>"
  518. End Function
  520. Function Dic_Test(Dic_Obj)
  521. Dim f_Items,f_Keys,f_i
  522. f_Items = Dic_Obj.Items
  523. f_Keys = Dic_Obj.Keys
  524. for f_i = 0 to Dic_Obj.Count - 1
  525. Response.Write(f_Keys(f_i) & "---" & f_Items(f_i) & "<br>")
  526. Next
  527. Response.End
  528. End Function
  530. Sub CreatePath(f_Save_Path_Str,f_Check_Str)
  531. Dim m_FSO_OBJ,f_Str,f_Create_Path,f_Standard_Str,f_Array,f_i,f_Check_Loc
  532. Set m_FSO_OBJ = Server.CreateObject(G_FS_FSO)
  533. If f_Save_Path_Str<>f_Check_Str Then
  534. f_Check_Loc = InStr(1,f_Save_Path_Str,f_Check_Str,1)
  535. If f_Check_Loc <> 0 Then
  536. f_Check_Loc = f_Check_Loc + Len(f_Check_Str)
  537. f_Standard_Str = Right(f_Save_Path_Str,Len(f_Save_Path_Str) - f_Check_Loc)
  538. f_Create_Path = f_Check_Str
  539. f_Array = Split(f_Standard_Str,"")
  540. for f_i = LBound(f_Array) to UBound(f_Array)
  541. if f_Array(f_i) <> "" then
  542. f_Create_Path = f_Create_Path & "" & f_Array(f_i)
  543. if Not m_FSO_OBJ.FolderExists(f_Create_Path) then
  544. m_FSO_OBJ.CreateFolder(f_Create_Path)
  545. end if
  546. end if
  547. Next
  548. End If
  549. End If
  550. Set m_FSO_OBJ = Nothing
  551. End Sub
  553. Sub AllSaveFile(f_File_Content,f_HTML_File_Save_Path_Str)
  554. Select Case Request.Cookies("FoosunMFCookies")("FoosunMFWriteType")
  555. Case "0"
  556. FSOSaveFile f_File_Content,f_HTML_File_Save_Path_Str
  557. Case "1"
  558. SaveFile f_File_Content,f_HTML_File_Save_Path_Str
  559. Case Else
  560. FSOSaveFile f_File_Content,f_HTML_File_Save_Path_Str
  561. End Select
  562. End Sub
  564. Sub SaveFile(f_Content,f_LocalFileName)
  565. Dim f_ADODB_STREAM_OBJ
  566. Set f_ADODB_STREAM_OBJ = Server.CreateObject(G_FS_STREAM)
  567. With f_ADODB_STREAM_OBJ
  568. .Type = 2
  569. .Open
  570. .Charset = "GB2312"
  571. .WriteText f_Content 'Replace(f_Content,WebDomain,"")
  572. .SaveToFile Server.MapPath(f_LocalFileName),2
  573. .Cancel()
  574. .Close()
  575. End With
  576. Set f_ADODB_STREAM_OBJ = Nothing
  577. End Sub
  579. Sub FSOSaveFile(f_Content,f_LocalFileName)
  580. Dim f_FILE_OBJ,f_FILE_PIONTER_OBJ
  581. Set f_FILE_OBJ = Server.CreateObject(G_FS_FSO)
  582. Set f_FILE_PIONTER_OBJ = f_FILE_OBJ.CreateTextFile(Server.MapPath(f_LocalFileName),True)
  583. f_FILE_PIONTER_OBJ.Write f_Content 'Replace(f_Content,Webdomain,"")
  584. f_FILE_PIONTER_OBJ.Close
  585. Set f_FILE_PIONTER_OBJ = Nothing
  586. Set f_FILE_OBJ = Nothing
  587. End Sub
  589. Function Get_JS_CopyRight(f_type)
  590. Get_JS_CopyRight = "<script language=""JavaScript"" src=""http://" & Request.Cookies("FoosunMFCookies")("FoosunMFDomain") & "/FS_Inc/Prototype.js""></script>" & vbNewLine
  591. Get_JS_CopyRight = Get_JS_CopyRight & "<!--Created Page at " & Now() & ",by Foosun.Cn,Foosun Content Management Systeme 4.0.0(FoosunCMS)-->"
  592. End Function
  593. %>