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

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

数据库编程

开发平台：

ASP/ASPX

MF_LoadLabel.asp：源码内容
  1. <!--#include file="NS_Public.asp" -->
  2. <!--#include file="MS_Public.asp" -->
  3. <!--#include file="DS_Public.asp" -->
  4. <!--#include file="ME_Public.asp" -->
  5. <!--#include file="MF_Public.asp" -->
  6. <!--#include file="SD_Public.asp" -->
  7. <!--#include file="HS_Public.asp" -->
  8. <!--#include file="AP_Public.asp" -->
  9. <!--#include file="Other_Public.asp" -->
  10. <%
  11. Function Replace_All_Flag(f_File_Cont,f_NewsID,sysFlag,PageType)
  12. if Request.Cookies("FoosunMFCookies")("FoosunMFDomain")="" or Request.Cookies("FoosunMFCookies")=Empty then
  13. MFConfig_Cookies:NSConfig_Cookies:DSConfig_Cookies
  14. end If
  15. If (request.Cookies("FoosunMSCookies")("FoosunMSDomain")="" Or Request.Cookies("FoosunMSCookies")=Empty) And IsExist_SubSys("MS") Then
  16. MSConfig_Cookies
  17. End If
  18. 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
  19. 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
  20. 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
  21. 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
  22. f_More_Pages_Flag_TF = False
  23. f_REG_Head_Str = "{FS400_"
  24. f_REG_Tailor_Str = "}"
  25. Set f_MORE_PAGES_DICT_OBJ = Server.CreateObject(G_FS_DICT)
  26. Set f_LABLE_DICT_OBJ = Server.CreateObject(G_FS_DICT)
  27. Set f_REG_EX = New RegExp
  28. f_REG_EX.Pattern = f_REG_Head_Str & ".*?" & f_REG_Tailor_Str
  29. f_REG_EX.IgnoreCase = True
  30. f_REG_EX.Global = True
  31. Set f_REG_MATCHS = f_REG_EX.Execute(f_File_Cont)
  32. f_Raw_Data = f_File_Cont
  33. For Each f_REG_MATCH in f_REG_MATCHS
  34. f_Match_Str = f_REG_MATCH.Value
  35. f_Lable = f_Match_Str
  36. f_Match_Str = Replace(f_Match_Str,Chr(13) & Chr(10),"")
  37. Set f_REG_PLACE_OBJ = New RegExp
  38. f_REG_PLACE_OBJ.IgnoreCase = True
  39. f_REG_PLACE_OBJ.Global = True
  40. f_Match_Str=Get_Label_Content(f_Match_Str)
  41. '{FS:Ad=AdLIST┆广告ID$100┆SpanId$Ad_HTML_ID}
  42. f_REG_PLACE_OBJ.Pattern = "{FS:.*}"
  43. Set f_TEST_LABLE_CONT_MATCHS = f_REG_PLACE_OBJ.Execute(f_Match_Str)
  44. if (f_TEST_LABLE_CONT_MATCHS.Count>0) then
  45. for Each f_TEST_LABLE_CONT_MATCH in f_TEST_LABLE_CONT_MATCHS
  46. f_Lable_Para_Value = f_TEST_LABLE_CONT_MATCH.Value
  47. f_Sys_ID = Mid(f_Lable_Para_Value,5,2)
  48. f_Lable_Para_Value = Mid(f_Lable_Para_Value,8,Len(f_Lable_Para_Value) - 8)
  49. Str_MFFlag=False
  50. if IsExist_SubSys(f_Sys_ID) then
  51. Select Case f_Sys_ID
  52. Case "NS"
  53. Set f_RERESH_OBJ = New cls_NS
  54. Case "MS"
  55. Set f_RERESH_OBJ = New cls_MS
  56. Case "DS"
  57. Set f_RERESH_OBJ = New cls_DS
  58. Case "ME"
  59. Set f_RERESH_OBJ = New cls_ME
  60. Case "MF"
  61. Set f_RERESH_OBJ = New cls_MF
  62. Str_MFFlag=True
  63. Case "SD"
  64. Set f_RERESH_OBJ = New cls_SD
  65. Case "HS"
  66. Set f_RERESH_OBJ = New cls_HS
  67. Case "AP"
  68. Set f_RERESH_OBJ = New cls_AP
  69. Case Else
  70. Set f_RERESH_OBJ = New cls_Other
  71. End Select
  72. If Str_MFFlag Then
  73. f_Lable_Cont = f_RERESH_OBJ.get_LableChar(f_Lable_Para_Value,f_NewsID,sysFlag&"_"&PageType)
  74. Else
  75. f_Lable_Cont = f_RERESH_OBJ.get_LableChar(f_Lable_Para_Value,f_NewsID)
  76. End If
  78. f_Match_Str = Replace(f_Match_Str,f_TEST_LABLE_CONT_MATCH.Value,f_Lable_Cont)
  79. End If
  80. Set f_RERESH_OBJ = Nothing
  81. Next
  82. End If
  83. If Not f_LABLE_DICT_OBJ.Exists(f_Lable) Then
  84. f_LABLE_DICT_OBJ.Add f_Lable,f_Match_Str
  85. End If
  86. Set f_REG_PLACE_OBJ = Nothing
  87. Next
  88. f_MORE_PAGES_DICT_OBJ.Add "-3",""
  89. f_DICT_ITEMS_OBJ = f_LABLE_DICT_OBJ.Items
  90. f_DICT_KEYS_OBJ = f_LABLE_DICT_OBJ.Keys
  91. for f_i = 0 to f_LABLE_DICT_OBJ.Count - 1
  92. if Not f_More_Pages_Flag_TF then
  93. f_Replace_Flag_TF = False
  94. Set f_REG_PLACE_OBJ = New RegExp
  95. f_REG_PLACE_OBJ.Pattern = "{foosun_page_news}.*{/foosun_page_news}"
  96. f_REG_PLACE_OBJ.IgnoreCase = True
  97. f_REG_PLACE_OBJ.Global = True
  98. Set f_DICT_MATCHS = f_REG_PLACE_OBJ.Execute(f_DICT_ITEMS_OBJ(f_i))
  99. If (f_DICT_MATCHS.Count>=1) And (f_More_Pages_Flag_TF=False) Then
  100. f_More_Pages_Flag_TF = True
  101. 'response.write f_DICT_ITEMS_OBJ(f_i)&"---"&f_DICT_MATCHS(0).Value&"<BR>"
  102. f_ARRAY_OBJ = Split(f_DICT_ITEMS_OBJ(f_i),f_DICT_MATCHS(0).Value)
  103. f_MORE_PAGES_DICT_OBJ.Add "-2",f_DICT_KEYS_OBJ(f_i)
  104. f_MORE_PAGES_DICT_OBJ.Add "-1",f_DICT_MATCHS(0).Value
  105. For f_j = LBound(f_ARRAY_OBJ) To UBound(f_ARRAY_OBJ)
  106. If Len(f_ARRAY_OBJ(f_j)) > 1 Then
  107. If Not f_MORE_PAGES_DICT_OBJ.Exists(f_j) Then
  108. f_MORE_PAGES_DICT_OBJ.Add f_j,f_ARRAY_OBJ(f_j)
  109. 'response.write f_j&"---"&f_ARRAY_OBJ(f_j)&"<BR>"
  110. End If
  111. End If
  112. Next
  113. f_Replace_Flag_TF = True
  114. End If
  115. f_REG_PLACE_OBJ.Pattern = "[fs:page]"
  116. Set f_DICT_MATCHS = f_REG_PLACE_OBJ.Execute(f_DICT_ITEMS_OBJ(f_i))
  117. Set f_NEWS_CONT_REG_OBJ = New RegExp
  118. f_NEWS_CONT_REG_OBJ.IgnoreCase = True
  119. f_NEWS_CONT_REG_OBJ.Global = True
  120. f_NEWS_CONT_REG_OBJ.Pattern = "[FS:CONTENT_START][^]*[FS:CONTENT_END]"
  121. Set f_NEWS_CONT_MATCHS = f_NEWS_CONT_REG_OBJ.Execute(f_DICT_ITEMS_OBJ(f_i))
  122. If (f_DICT_MATCHS.Count>=1) And (f_More_Pages_Flag_TF=False) And (f_NEWS_CONT_MATCHS.Count=1) Then
  123. f_More_Pages_Flag_TF = True
  124. f_MORE_PAGES_DICT_OBJ.Add "-2",f_DICT_KEYS_OBJ(f_i)
  125. f_MORE_PAGES_DICT_OBJ.Add "-1","newsmorepage"
  126. f_Lable_News_Cont = f_NEWS_CONT_MATCHS(0).Value
  127. Set f_NEWS_CONT_REPLACE_FLAG_OBJ = New RegExp
  128. f_NEWS_CONT_REPLACE_FLAG_OBJ.IgnoreCase = True
  129. f_NEWS_CONT_REPLACE_FLAG_OBJ.Global = True
  130. f_NEWS_CONT_REPLACE_FLAG_OBJ.Pattern = "[FS:CONTENT_START]"
  131. f_Lable_News_Cont = f_NEWS_CONT_REPLACE_FLAG_OBJ.Replace(f_Lable_News_Cont,"")
  132. f_NEWS_CONT_REPLACE_FLAG_OBJ.Pattern = "[FS:CONTENT_END]"
  133. f_Lable_News_Cont = f_NEWS_CONT_REPLACE_FLAG_OBJ.Replace(f_Lable_News_Cont,"")
  134. Set f_NEWS_CONT_REPLACE_FLAG_OBJ = Nothing
  135. f_ARRAY_OBJ = Split(f_Lable_News_Cont,f_DICT_MATCHS(0).Value)
  136. for f_j = LBound(f_ARRAY_OBJ) To UBound(f_ARRAY_OBJ)
  137. if Len(f_ARRAY_OBJ(f_j)) > 1 then
  138. f_Lable_One_Page_News_Cont = f_DICT_ITEMS_OBJ(f_i)
  139. f_Lable_One_Page_News_Cont = Replace(f_Lable_One_Page_News_Cont,f_NEWS_CONT_MATCHS(0).Value,f_ARRAY_OBJ(f_j))
  140. If Not f_MORE_PAGES_DICT_OBJ.Exists(f_j) Then
  141. f_MORE_PAGES_DICT_OBJ.Add f_j,f_Lable_One_Page_News_Cont
  142. End If
  143. End If
  145. Next
  146. f_Replace_Flag_TF = True
  147. End If
  148. Set f_NEWS_CONT_REG_OBJ = Nothing
  149. Set f_REG_PLACE_OBJ = Nothing
  150. If Not f_Replace_Flag_TF Then
  151. f_Raw_Data = Replace(f_Raw_Data,f_DICT_KEYS_OBJ(f_i),f_DICT_ITEMS_OBJ(f_i))
  152. End If
  153. Else
  154. f_Raw_Data = Replace(f_Raw_Data,f_DICT_KEYS_OBJ(f_i),f_DICT_ITEMS_OBJ(f_i))
  155. End If
  156. Next
  157. f_MORE_PAGES_DICT_OBJ.Item("-3") = f_Raw_Data
  158. f_LABLE_DICT_OBJ.RemoveAll
  159. Set f_LABLE_DICT_OBJ = Nothing
  160. Set Replace_All_Flag = f_MORE_PAGES_DICT_OBJ
  161. Set f_MORE_PAGES_DICT_OBJ = Nothing
  162. End Function
  163. Function Get_Templet_Content(Str_Templet_File_Path)
  164. Dim f_Phy_Templet,f_FSO_OBJ,f_FILE_OBJ,f_FILE_STREAM_OBJ
  165. If Str_Templet_File_Path<>"" Then
  166. f_Phy_Templet = Server.MapPath(Str_Templet_File_Path)
  167. Set f_FSO_OBJ = Server.CreateObject(G_FS_FSO)
  168. ' Response.Write(f_Phy_Templet)
  169. ' Response.End()
  170. if f_FSO_OBJ.FileExists(f_Phy_Templet) = False then
  171. Get_Templet_Content = "模板不存在，请添加模板后再生成！"
  172. else
  173. Set f_FILE_OBJ = f_FSO_OBJ.GetFile(f_Phy_Templet)
  174. Set f_FILE_STREAM_OBJ = f_FILE_OBJ.OpenAsTextStream(1)
  175. if Not f_FILE_STREAM_OBJ.AtEndOfStream then
  176. Get_Templet_Content = f_FILE_STREAM_OBJ.ReadAll
  177. else
  178. Get_Templet_Content = "模板内容为空"
  179. end if
  180. end if
  181. 'Get_Templet_Content = Get_Templet_Content & Get_JS_CopyRight("NewsID")
  182. Set f_FILE_STREAM_OBJ = Nothing
  183. Set f_FILE_OBJ = Nothing
  184. Set f_FSO_OBJ = Nothing
  185. Else
  186. Get_Templet_Content="模板不存在，请添加模板后再生成！"
  187. End If
  188. End Function
  190. Function Get_Dynamic_Refresh_Content(Str_Templet,Str_GoID,sysFlag,Page,PageType)
  191. Dim f_PAGES_DICT_OBJ,f_Temf_File_Content,f_MORE_PAGES_DICT_ITEMS_OBJ,f_MORE_PAGES_DICT_KEYS_OBJ,f_More_Page_Link_Str
  192. Dim f_i,int_count,f_PLACE_OBJ,f_Temp_More_Page_Link_Str,f_More_Page_Array,f_File_Content,Str_Page_Style
  193. Dim patrn(1),strng
  194. patrn(0)="</head>"
  195. patrn(1)="<body"
  196. strng=Get_JS_CopyRight("NewsId")
  197. If VarType(Page)<>2 Then
  198. Page=1
  199. ElseIf Page<1 Then
  200. Page=1
  201. End If
  202. Set f_PAGES_DICT_OBJ = Replace_All_Flag(Get_Templet_Content(Str_Templet),Str_GoID,sysFlag,PageType)
  203. f_File_Content = f_PAGES_DICT_OBJ.Item("-3")
  204. f_MORE_PAGES_DICT_ITEMS_OBJ = f_PAGES_DICT_OBJ.Items
  205. f_MORE_PAGES_DICT_KEYS_OBJ = f_PAGES_DICT_OBJ.Keys
  206. Rem 建立正则对象
  207. Set f_PLACE_OBJ = New RegExp
  208. Rem ============
  209. if f_PAGES_DICT_OBJ.Count > 3 then
  210. int_count=1
  211. for f_i = 3 to f_PAGES_DICT_OBJ.Count - 1
  212. f_More_Page_Link_Str = f_PAGES_DICT_OBJ.Item("-1")
  213. If Page>f_PAGES_DICT_OBJ.Count - 3 Then
  214. Page=f_PAGES_DICT_OBJ.Count - 3
  215. End If
  216. If f_More_Page_Link_Str = "newsmorepage" Then
  217. f_More_Page_Link_Str = Get_More_Page_Link_Str("","","",f_PAGES_DICT_OBJ.Count - 3,Page)
  218. Else
  219. f_PLACE_OBJ.Pattern = "{Foosun_Page_news}"
  220. f_PLACE_OBJ.IgnoreCase = True
  221. f_PLACE_OBJ.Global = True
  222. f_Temp_More_Page_Link_Str = f_PLACE_OBJ.Replace(f_More_Page_Link_Str,"")
  223. f_PLACE_OBJ.Pattern = "{/Foosun_Page_news}"
  224. f_Temp_More_Page_Link_Str = f_PLACE_OBJ.Replace(f_Temp_More_Page_Link_Str,"")
  226. f_More_Page_Array = Split(f_Temp_More_Page_Link_Str,",")
  227. Str_Page_Style=Split(f_More_Page_Array(1),"|")
  228. if UBound(f_More_Page_Array) < 1 then
  229. f_More_Page_Link_Str = ""
  230. else
  231. 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,Page)
  232. end if
  233. end If
  234. If Page>0 And int_count=Page Then
  235. f_Temf_File_Content = Replace(f_File_Content,f_PAGES_DICT_OBJ.Item("-2"),f_MORE_PAGES_DICT_ITEMS_OBJ(f_i) & "<br>" & f_More_Page_Link_Str)
  236. Exit For
  237. ElseIf int_count=1 Then
  238. f_Temf_File_Content = Replace(f_File_Content,f_PAGES_DICT_OBJ.Item("-2"),f_MORE_PAGES_DICT_ITEMS_OBJ(f_i) & "<br>" & f_More_Page_Link_Str)
  239. Exit For
  240. End If
  241. int_count=int_count+1
  242. Next
  243. Else
  244. f_Temf_File_Content = f_File_Content
  245. End If
  246. Rem 加入版权信息和关键JS文件（正则搜索）
  247. f_PLACE_OBJ.Pattern = patrn(0)
  248. f_PLACE_OBJ.IgnoreCase = True
  249. f_PLACE_OBJ.Global = False
  250. f_PLACE_OBJ.Multiline = True
  251. If f_PLACE_OBJ.Test(f_Temf_File_Content) Then
  252. f_Temf_File_Content=f_PLACE_OBJ.Replace(f_Temf_File_Content,patrn(0)&vbNewLine&strng)
  253. Else
  254. f_PLACE_OBJ.Pattern = patrn(1)
  255. If f_PLACE_OBJ.Test(f_Temf_File_Content) Then
  256. f_Temf_File_Content=f_PLACE_OBJ.Replace(f_Temf_File_Content,patrn(1)&vbNewLine&strng)
  257. Else
  258. f_Temf_File_Content=strng&vbNewLine&f_Temf_File_Content
  259. End If
  260. End If
  261. Rem ===================================
  262. Set f_PLACE_OBJ = Nothing
  263. Get_Dynamic_Refresh_Content=f_Temf_File_Content
  264. f_PAGES_DICT_OBJ.RemoveAll
  265. Set f_PAGES_DICT_OBJ = Nothing
  266. End Function
  268. 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)
  269. Dim f_i,Str_Link,LinkUrl,Str_Style
  270. Dim str_nonLinkColor,str_toF,str_toP10,str_toP1,str_toN1,str_toN10,str_toL,StartPage,EndPage,I
  271. If f_More_Page_Index>f_Page_Count Then
  272. f_More_Page_Index=f_Page_Count
  273. End If
  274. If f_More_Page_Link_Type="" Then
  275. f_More_Page_Link_Type=0
  276. End If
  277. Str_Link=""
  278. LinkUrl = ThisPageUrl("page","submit")
  279. Str_Style=""
  280. If f_More_Page_Link_Color<>"" Then
  281. Str_Style=Str_Style&" style=""color: #"&f_More_Page_Link_Color&";"""
  282. End If
  283. If f_More_Page_Css<>"" Then
  284. Str_Style=Str_Style&" class="""&f_More_Page_Css&""""
  285. End If
  287. If f_Page_Count>1 Then
  288. Select Case f_More_Page_Link_Type
  289. Case 1
  290. If f_More_Page_Index=1 Then
  291. Str_Link=Str_Link&"上一页"
  292. Str_Link=Str_Link&"&nbsp;<a href="""&LinkUrl&f_More_Page_Index+1&""""&Str_Style&">下一页</a>"
  293. ElseIf (f_More_Page_Index+1)>f_Page_Count Then
  294. Str_Link=Str_Link&"<a href="""&LinkUrl&f_More_Page_Index-1&""""&Str_Style&">上一页</a>"
  295. Str_Link=Str_Link&"&nbsp;下一页"
  296. Else
  297. Str_Link=Str_Link&"<a href="""&LinkUrl&f_More_Page_Index-1&""""&Str_Style&">上一页</a>"
  298. Str_Link=Str_Link&"&nbsp;<a href="""&LinkUrl&f_More_Page_Index+1&""""&Str_Style&">下一页</a>"
  299. End If
  300. Case 2
  301. Str_Link="共"&f_Page_Count&"页，"
  302. For f_i=1 To f_Page_Count
  303. If f_i= f_More_Page_Index Then
  304. Str_Link=Str_Link&",第"&f_i&"页"
  305. Else
  306. Str_Link=Str_Link&",<a href="""&LinkUrl&f_i&""""&Str_Style&">第"&f_i&"页</a>"
  307. End If
  308. Next
  309. Case 3
  310. Str_Link="共"&f_Page_Count&"页。"
  311. For f_i=1 To f_Page_Count
  312. If f_i= f_More_Page_Index Then
  313. Str_Link=Str_Link&"&nbsp;"&f_i&""
  314. Else
  315. Str_Link=Str_Link&"&nbsp;<a href="""&LinkUrl&f_i&""""&Str_Style&">"&f_i&"</a>"
  316. End If
  317. Next
  318. Case Else
  319. str_nonLinkColor="#999999" '非热链接颜色
  320. str_toF="<font face=""webdings"">9</font>"   '首页
  321. str_toP10="<font face=""webdings"">7</font>" '上十
  322. str_toP1="<font face=""webdings"">3</font>" '上一
  323. str_toN1="<font face=""webdings"">4</font>" '下一
  324. str_toN10="<font face=""webdings"">8</font>" '下十
  325. str_toL="<font face=""webdings"">:</font>" '尾页
  327. Str_Link=""
  329. if f_More_Page_Index=1 then
  330. Str_Link=Str_Link& "<font color="&str_nonLinkColor&" title=""首页"">"&str_toF&"</font> " &vbNewLine
  331. Else
  332. Str_Link=Str_Link& "<a href="""&LinkUrl&"1"""&Str_Style&" title=""首页"">"&str_toF&"</a> " &vbNewLine
  333. End If
  334. if f_More_Page_Index<11 then
  335. StartPage = 1
  336. else
  337. If f_More_Page_Index>(fix(f_More_Page_Index / 10) * 10) Then
  338. StartPage = (fix(f_More_Page_Index / 10) * 10)+1
  339. Else
  340. StartPage = ((fix(f_More_Page_Index / 10)-1) * 10)+1
  341. End If
  342. end if
  343. EndPage=StartPage+9
  344. If EndPage>f_Page_Count Then
  345. EndPage=f_Page_Count
  346. End If
  348. If StartPage>10 Then
  349. Str_Link=Str_Link& "<a href="""&LinkUrl&f_More_Page_Index-10&""""&Str_Style&" title=""上10页"">"&str_toP10&"</a> "  &vbNewLine
  350. Else
  351. Str_Link=Str_Link& "<font color="&str_nonLinkColor&" title=""上10页"">"&str_toP10&"</font> "  &vbNewLine
  352. End If
  354. If f_More_Page_Index > 1 Then
  355. Str_Link=Str_Link& "<a href="""&LinkUrl&f_More_Page_Index-1&""""&Str_Style&" title=""上一页"">"&str_toP1&"</a> "  &vbNewLine
  356. Else
  357. Str_Link=Str_Link& "<font color="&str_nonLinkColor&" title=""上一页"">"&str_toP1&"</font> "  &vbNewLine
  358. End If
  360. For I=StartPage To EndPage
  361. If I=f_More_Page_Index Then
  362. Str_Link=Str_Link& "<b>"&I&"</b>"  &vbNewLine
  363. Else
  364. Str_Link=Str_Link& "<a href="""&LinkUrl&I&""""&Str_Style&">" &I& "</a>"  &vbNewLine
  365. End If
  366. Next
  367. If f_More_Page_Index < f_Page_Count Then
  368. Str_Link=Str_Link& " <a href="""&LinkUrl&f_More_Page_Index+1&""""&Str_Style&" title=""下一页"">"&str_toN1&"</a> "  &vbNewLine
  369. Else
  370. Str_Link=Str_Link& "<font color="&str_nonLinkColor&" title=""下一页"">"&str_toN1&"</font> "  &vbNewLine
  371. End If
  373. If EndPage<f_Page_Count Then
  374. If (f_More_Page_Index+10)>f_Page_Count Then
  375. Str_Link=Str_Link& " <a href="""&LinkUrl&f_Page_Count&""""&Str_Style&"  title=""下10页"">"&str_toN10&"</a> "  &vbNewLine
  376. Else
  377. Str_Link=Str_Link& " <a href="""&LinkUrl&f_More_Page_Index+10&""""&Str_Style&" title=""下10页"">"&str_toN10&"</a> "  &vbNewLine
  378. End If
  379. Else
  380. Str_Link=Str_Link& " <font color="&str_nonLinkColor&"  title=""下10页"">"&str_toN10&"</font> "  &vbNewLine
  381. End If
  383. if f_More_Page_Index<f_Page_Count Then
  384. Str_Link=Str_Link& "<a href="""&LinkUrl&f_Page_Count&""""&Str_Style&" title=""尾页"">"&str_toL&"</a>"  &vbNewLine
  385. Else
  386. Str_Link=Str_Link& "<font color="&str_nonLinkColor&" title=""尾页"">"&str_toL&"</font>"  &vbNewLine
  387. End If
  388. End Select
  389. End If
  390. Get_More_Page_Link_Str=Str_Link
  391. End Function
  393. '*********************************************************
  394. ' 目的：分页的页面参数保持
  395. '          提交查询的一致性
  396. ' 输入：moveParam：分页参数
  397. '         removeList：要移除的参数
  398. ' 返回：分页Url
  399. '*********************************************************
  400. Function ThisPageUrl(moveParam,removeList)
  401. dim strName
  402. dim KeepUrl,KeepForm,KeepMove
  403. removeList=removeList&","&moveParam
  404. KeepForm=""
  405. For Each strName in Request.Form
  406. '判断form参数中的submit、空值
  407. if not InstrRev(removeList,strName, -1, 1)>0 and Request.Form(strName)<>"" then
  408. KeepForm=KeepForm&"&"&strName&"="&Server.URLencode(Request.Form(strName))
  409. end if
  410. removeList=removeList&","&strName
  411. Next
  413. KeepUrl=""
  414. For Each strName In Request.QueryString
  415. If not (InstrRev(removeList,strName, -1, 1)>0) Then
  416. KeepUrl = KeepUrl & "&" & strName & "=" & Server.URLencode(Request.QueryString(strName))
  417. End If
  418. Next
  420. KeepMove=KeepForm&KeepUrl
  422. If (KeepMove <> "") Then
  423.   KeepMove = Right(KeepMove, Len(KeepMove) - 1)
  424.   KeepMove = Server.HTMLEncode(KeepMove) & "&"
  425. End If
  427. ThisPageUrl = Request.ServerVariables("URL") & "?" & KeepMove & moveParam & "="
  428. End Function
  429. Function Get_JS_CopyRight(f_type)
  430. Get_JS_CopyRight = "<script language=""JavaScript"" src=""http://" & Get_MF_Domain & "/FS_Inc/Prototype.js""></script>" & vbNewLine
  431. Get_JS_CopyRight = Get_JS_CopyRight & "<!--Created Page at " & Now() & ",by Foosun.Cn,Foosun Content Management Systeme 4.0.0(FoosunCMS)--> "
  432. End Function
  433. %>