📄 public_function.asp
字号:
f_DICT_KEYS_OBJ = f_LABLE_DICT_OBJ.Keys
Dim Str_Other,PageNum_Flag
For f_i = 0 To f_LABLE_DICT_OBJ.Count - 1
if Not f_More_Pages_Flag_TF then
f_Replace_Flag_TF = False
Set f_REG_PLACE_OBJ = New RegExp
f_REG_PLACE_OBJ.Pattern = "{foosun_page_news}.*?{/foosun_page_news}"
f_REG_PLACE_OBJ.IgnoreCase = True
f_REG_PLACE_OBJ.Global = True
Set f_DICT_MATCHS = f_REG_PLACE_OBJ.Execute(f_DICT_ITEMS_OBJ(f_i))
if (f_DICT_MATCHS.Count>=1) And (f_More_Pages_Flag_TF=False) Then
f_More_Pages_Flag_TF = True
Str_Other=Split(f_DICT_ITEMS_OBJ(f_i),"{|}")
f_ARRAY_OBJ = Split(Str_Other(1),f_DICT_MATCHS(0).Value)
f_MORE_PAGES_DICT_OBJ.Add "-2",f_DICT_KEYS_OBJ(f_i)
f_MORE_PAGES_DICT_OBJ.Add "-1",f_DICT_MATCHS(0).Value
PageNum_Flag=False
for f_j = LBound(f_ARRAY_OBJ) To UBound(f_ARRAY_OBJ)
If Len(f_ARRAY_OBJ(f_j)) > 1 then
If Not f_MORE_PAGES_DICT_OBJ.Exists(f_j) Then
f_MORE_PAGES_DICT_OBJ.Add f_j,f_ARRAY_OBJ(f_j)
PageNum_Flag=True
End If
end if
Next
If PageNum_Flag Then
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))
End If
Set Str_Other=Nothing
f_Replace_Flag_TF = True
Else
f_DICT_ITEMS_OBJ(f_i)=Replace(f_DICT_ITEMS_OBJ(f_i),"{|}","")
End If
f_REG_PLACE_OBJ.Pattern = "\[fs\:page\]"
Set f_DICT_MATCHS = f_REG_PLACE_OBJ.Execute(f_DICT_ITEMS_OBJ(f_i))
Set f_NEWS_CONT_REG_OBJ = New RegExp
f_NEWS_CONT_REG_OBJ.IgnoreCase = True
f_NEWS_CONT_REG_OBJ.Global = True
f_NEWS_CONT_REG_OBJ.Pattern = "\[FS\:CONTENT_START\][^\0]*\[FS\:CONTENT_END\]"
Set f_NEWS_CONT_MATCHS = f_NEWS_CONT_REG_OBJ.Execute(f_DICT_ITEMS_OBJ(f_i))
if (f_DICT_MATCHS.Count>=1) And (f_More_Pages_Flag_TF=False) And (f_NEWS_CONT_MATCHS.Count=1) then
f_More_Pages_Flag_TF = True
f_MORE_PAGES_DICT_OBJ.Add "-2",f_DICT_KEYS_OBJ(f_i)
f_MORE_PAGES_DICT_OBJ.Add "-1","newsmorepage"
f_Lable_News_Cont = f_NEWS_CONT_MATCHS(0).Value
Set f_NEWS_CONT_REPLACE_FLAG_OBJ = New RegExp
f_NEWS_CONT_REPLACE_FLAG_OBJ.IgnoreCase = True
f_NEWS_CONT_REPLACE_FLAG_OBJ.Global = True
f_NEWS_CONT_REPLACE_FLAG_OBJ.Pattern = "\[FS\:CONTENT_START\]"
f_Lable_News_Cont = f_NEWS_CONT_REPLACE_FLAG_OBJ.Replace(f_Lable_News_Cont,"")
f_NEWS_CONT_REPLACE_FLAG_OBJ.Pattern = "\[FS\:CONTENT_END\]"
f_Lable_News_Cont = f_NEWS_CONT_REPLACE_FLAG_OBJ.Replace(f_Lable_News_Cont,"")
Set f_NEWS_CONT_REPLACE_FLAG_OBJ = Nothing
f_ARRAY_OBJ = Split(f_Lable_News_Cont,f_DICT_MATCHS(0).Value)
PageNum_Flag=False
Str_Other=Split(f_DICT_ITEMS_OBJ(f_i),f_NEWS_CONT_MATCHS(0).Value)
for f_j = LBound(f_ARRAY_OBJ) To UBound(f_ARRAY_OBJ)
if Len(f_ARRAY_OBJ(f_j)) > 1 then
'f_Lable_One_Page_News_Cont = f_DICT_ITEMS_OBJ(f_i)
'f_Lable_One_Page_News_Cont = Replace(f_Lable_One_Page_News_Cont,f_NEWS_CONT_MATCHS(0).Value,f_ARRAY_OBJ(f_j))
if Not f_MORE_PAGES_DICT_OBJ.Exists(f_j) Then
'f_MORE_PAGES_DICT_OBJ.Add f_j,f_Lable_One_Page_News_Cont
f_MORE_PAGES_DICT_OBJ.Add f_j,f_ARRAY_OBJ(f_j)
End If
PageNum_Flag=True
end if
Next
If PageNum_Flag Then
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))
End If
Set Str_Other=Nothing
f_Replace_Flag_TF = True
end if
Set f_NEWS_CONT_REG_OBJ = Nothing
Set f_REG_PLACE_OBJ = Nothing
if Not f_Replace_Flag_TF Then
f_DICT_ITEMS_OBJ(f_i)=Replace(f_DICT_ITEMS_OBJ(f_i),"{|}","")
f_Raw_Data = Replace(f_Raw_Data,f_DICT_KEYS_OBJ(f_i),f_DICT_ITEMS_OBJ(f_i))
End If
Else
f_DICT_ITEMS_OBJ(f_i)=Replace(f_DICT_ITEMS_OBJ(f_i),"{|}","")
f_Raw_Data = Replace(f_Raw_Data,f_DICT_KEYS_OBJ(f_i),f_DICT_ITEMS_OBJ(f_i))
End If
Next
f_MORE_PAGES_DICT_OBJ.Item("-3") = Replace(f_Raw_Data,"{|}","")
f_LABLE_DICT_OBJ.RemoveAll
Set f_LABLE_DICT_OBJ = Nothing
''Dic_Test(f_DICT_ITEMS_OBJ)
Set Replace_All_Flag = f_MORE_PAGES_DICT_OBJ
Set f_MORE_PAGES_DICT_OBJ = Nothing
End Function
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)
Dim f_i,Str_Link,LinkUrl,Str_Style,Str_LinkUrl_Page
Dim str_nonLinkColor,str_toF,str_toP10,str_toP1,str_toN1,str_toN10,str_toL,StartPage,EndPage,I
If f_More_Page_Index>f_Page_Count Then
f_More_Page_Index=f_Page_Count
End If
LinkUrl = "."&f_File_Name
Str_Link=""
If f_More_Page_Link_Type="" Then
f_More_Page_Link_Type=0
End If
If f_More_Page_Link_Color<>"" Then
Str_Style=Str_Style&" style=""color: #"&f_More_Page_Link_Color&";"""
End If
If f_More_Page_Css<>"" Then
Str_Style=Str_Style&" class="""&f_More_Page_Css&""""
End If
If f_Page_Count>1 Then
Select Case f_More_Page_Link_Type
Case 1
If f_More_Page_Index=1 Then
Str_Link=Str_Link&"上一页"
Str_Link=Str_Link&" <a href="""&LinkUrl&"_"&f_More_Page_Index+1&"."&f_File_Ext_Name&""""&Str_Style&">下一页</a>"
ElseIf (f_More_Page_Index+1)>f_Page_Count Then
If f_More_Page_Index-1<2 Then
Str_Link=Str_Link&"<a href="""&LinkUrl&"."&f_File_Ext_Name&""""&Str_Style&">上一页</a>"
Else
Str_Link=Str_Link&"<a href="""&LinkUrl&"_"&f_More_Page_Index-1&"."&f_File_Ext_Name&""""&Str_Style&">上一页</a>"
End If
Str_Link=Str_Link&" 下一页"
Else
If f_More_Page_Index-1<2 Then
Str_Link=Str_Link&"<a href="""&LinkUrl&"."&f_File_Ext_Name&""""&Str_Style&">上一页</a>"
Else
Str_Link=Str_Link&"<a href="""&LinkUrl&"_"&f_More_Page_Index-1&"."&f_File_Ext_Name&""""&Str_Style&">上一页</a>"
End If
Str_Link=Str_Link&" <a href="""&LinkUrl&"_"&f_More_Page_Index+1&"."&f_File_Ext_Name&""""&Str_Style&">下一页</a>"
End If
Case 2
Str_Link="共"&f_Page_Count&"页 "
For f_i=1 To f_Page_Count
If f_i>1 Then
Str_LinkUrl_Page=LinkUrl&"_"&f_i
Else
Str_LinkUrl_Page=LinkUrl
End If
If f_i= f_More_Page_Index Then
Str_Link=Str_Link&" 第"&f_i&"页"
Else
Str_Link=Str_Link&" <a href="""&Str_LinkUrl_Page&"."&f_File_Ext_Name&""""&Str_Style&">第"&f_i&"页</a>"
End If
Next
Case 3
Str_Link="共"&f_Page_Count&"页 "
For f_i=1 To f_Page_Count
If f_i>1 Then
Str_LinkUrl_Page=LinkUrl&"_"&f_i
Else
Str_LinkUrl_Page=LinkUrl
End If
If f_i= f_More_Page_Index Then
Str_Link=Str_Link&" "&f_i&""
Else
Str_Link=Str_Link&" <a href="""&Str_LinkUrl_Page&"."&f_File_Ext_Name&""""&Str_Style&">"&f_i&"</a>"
End If
Next
Case Else
str_nonLinkColor="#999999" '非热链接颜色
str_toF="<font face=""webdings"">9</font>" '第一页
str_toP10="<font face=""webdings"">7</font>" '上十
str_toP1="<font face=""webdings"">3</font>" '上一
str_toN1="<font face=""webdings"">4</font>" '下一
str_toN10="<font face=""webdings"">8</font>" '下十
str_toL="<font face=""webdings"">:</font>" '尾页
Str_Link=""
if f_More_Page_Index=1 then
Str_Link=Str_Link& "<font color="&str_nonLinkColor&" title=""第一页"">"&str_toF&"</font> " &vbNewLine
Else
Str_Link=Str_Link& "<a href="""&LinkUrl&"."&f_File_Ext_Name&""""&Str_Style&" title=""第一页"">"&str_toF&"</a> " &vbNewLine
End If
if f_More_Page_Index<11 then
StartPage = 1
else
If f_More_Page_Index>(fix(f_More_Page_Index / 10) * 10) Then
StartPage = (fix(f_More_Page_Index / 10) * 10)+1
Else
StartPage = ((fix(f_More_Page_Index / 10)-1) * 10)+1
End If
end if
EndPage=StartPage+9
If EndPage>f_Page_Count Then
EndPage=f_Page_Count
End If
If StartPage>10 Then
If (f_More_Page_Index - 10)<2 Then
Str_Link=Str_Link& "<a href="""&LinkUrl&"."&f_File_Ext_Name&""""&Str_Style&" title=""上十页"">"&str_toP10&"</a> " &vbNewLine
Else
Str_Link=Str_Link& "<a href="""&LinkUrl&"_"&f_More_Page_Index - 10&"."&f_File_Ext_Name&""""&Str_Style&" title=""上十页"">"&str_toP10&"</a> " &vbNewLine
End If
Else
Str_Link=Str_Link& "<font color="&str_nonLinkColor&" title=""上十页"">"&str_toP10&"</font> " &vbNewLine
End If
If f_More_Page_Index > 1 Then
If f_More_Page_Index=2 Then
Str_Link=Str_Link& "<a href="""&LinkUrl&"."&f_File_Ext_Name&""""&Str_Style&" title=""上一页"">"&str_toP1&"</a> " &vbNewLine
Else
Str_Link=Str_Link& "<a href="""&LinkUrl&"_"&f_More_Page_Index - 1&"."&f_File_Ext_Name&""""&Str_Style&" title=""上一页"">"&str_toP1&"</a> " &vbNewLine
End If
Else
Str_Link=Str_Link& "<font color="&str_nonLinkColor&" title=""上一页"">"&str_toP1&"</font> " &vbNewLine
End If
For I=StartPage To EndPage
If I=f_More_Page_Index Then
Str_Link=Str_Link& "<b>"&I&"</b>" &vbNewLine
Else
If I=1 Then
Str_Link=Str_Link& "<a href="""&LinkUrl&"."&f_File_Ext_Name&""""&Str_Style&">" &I& "</a>" &vbNewLine
Else
Str_Link=Str_Link& "<a href="""&LinkUrl&"_"&I&"."&f_File_Ext_Name&""""&Str_Style&">" &I& "</a>" &vbNewLine
End If
End If
Next
If f_More_Page_Index < f_Page_Count Then
Str_Link=Str_Link& " <a href="""&LinkUrl&"_"&f_More_Page_Index + 1&"."&f_File_Ext_Name&""""&Str_Style&" title=""下一页"">"&str_toN1&"</a> " &vbNewLine
Else
Str_Link=Str_Link& "<font color="&str_nonLinkColor&" title=""下一页"">"&str_toN1&"</font> " &vbNewLine
End If
If EndPage<f_Page_Count Then
If (f_More_Page_Index+10)>f_Page_Count Then
Str_Link=Str_Link& " <a href="""&LinkUrl&"_"&f_Page_Count&"."&f_File_Ext_Name&""""&Str_Style&" title=""下十页"">"&str_toN10&"</a> " &vbNewLine
Else
Str_Link=Str_Link& " <a href="""&LinkUrl&"_"&f_More_Page_Index+10&"."&f_File_Ext_Name&""""&Str_Style&" title=""下十页"">"&str_toN10&"</a> " &vbNewLine
End If
Else
Str_Link=Str_Link& " <font color="&str_nonLinkColor&" title=""下十页"">"&str_toN10&"</font> " &vbNewLine
End If
if f_More_Page_Index<f_Page_Count Then
Str_Link=Str_Link& "<a href="""&LinkUrl&"_"&f_Page_Count&"."&f_File_Ext_Name&""""&Str_Style&" title=""尾页"">"&str_toL&"</a>" &vbNewLine
Else
Str_Link=Str_Link& "<font color="&str_nonLinkColor&" title=""尾页"">"&str_toL&"</font>" &vbNewLine
End If
End Select
End If
Get_More_Page_Link_Str="<div>"&Str_Link&"</div>"
End Function
Function Dic_Test(Dic_Obj)
Dim f_Items,f_Keys,f_i
f_Items = Dic_Obj.Items
f_Keys = Dic_Obj.Keys
for f_i = 0 to Dic_Obj.Count - 1
Response.Write(f_Keys(f_i) & "---" & f_Items(f_i) & "<br>")
Next
Response.End
End Function
Sub CreatePath(f_Save_Path_Str,f_Check_Str)
Dim m_FSO_OBJ,f_Str,f_Create_Path,f_Standard_Str,f_Array,f_i,f_Check_Loc
Set m_FSO_OBJ = Server.CreateObject(G_FS_FSO)
If f_Save_Path_Str<>f_Check_Str Then
f_Check_Loc = InStr(1,f_Save_Path_Str,f_Check_Str,1)
If f_Check_Loc <> 0 Then
f_Check_Loc = f_Check_Loc + Len(f_Check_Str)
f_Standard_Str = Right(f_Save_Path_Str,Len(f_Save_Path_Str) - f_Check_Loc)
f_Create_Path = f_Check_Str
f_Array = Split(f_Standard_Str,"\")
for f_i = LBound(f_Array) to UBound(f_Array)
if f_Array(f_i) <> "" then
f_Create_Path = f_Create_Path & "\" & f_Array(f_i)
if Not m_FSO_OBJ.FolderExists(f_Create_Path) then
m_FSO_OBJ.CreateFolder(f_Create_Path)
end if
end if
Next
End If
End If
Set m_FSO_OBJ = Nothing
End Sub
Sub AllSaveFile(f_File_Content,f_HTML_File_Save_Path_Str)
Select Case Request.Cookies("FoosunMFCookies")("FoosunMFWriteType")
Case "0"
FSOSaveFile f_File_Content,f_HTML_File_Save_Path_Str
Case "1"
SaveFile f_File_Content,f_HTML_File_Save_Path_Str
Case Else
FSOSaveFile f_File_Content,f_HTML_File_Save_Path_Str
End Select
End Sub
Sub SaveFile(f_Content,f_LocalFileName)
Dim f_ADODB_STREAM_OBJ
Set f_ADODB_STREAM_OBJ = Server.CreateObject(G_FS_STREAM)
With f_ADODB_STREAM_OBJ
.Type = 2
.Open
.Charset = "GB2312"
.WriteText f_Content 'Replace(f_Content,WebDomain,"")
.SaveToFile Server.MapPath(f_LocalFileName),2
.Cancel()
.Close()
End With
Set f_ADODB_STREAM_OBJ = Nothing
End Sub
Sub FSOSaveFile(f_Content,f_LocalFileName)
Dim f_FILE_OBJ,f_FILE_PIONTER_OBJ
Set f_FILE_OBJ = Server.CreateObject(G_FS_FSO)
Set f_FILE_PIONTER_OBJ = f_FILE_OBJ.CreateTextFile(Server.MapPath(f_LocalFileName),True)
f_FILE_PIONTER_OBJ.Write f_Content 'Replace(f_Content,Webdomain,"")
f_FILE_PIONTER_OBJ.Close
Set f_FILE_PIONTER_OBJ = Nothing
Set f_FILE_OBJ = Nothing
End Sub
Function Get_JS_CopyRight(f_type)
Get_JS_CopyRight = "<script language=""JavaScript"" src=""http://" & Request.Cookies("FoosunMFCookies")("FoosunMFDomain") & "/FS_Inc/Prototype.js""></script>" & vbNewLine
Get_JS_CopyRight = Get_JS_CopyRight & "<!--Created Page at " & Now() & ",by Foosun.Cn,Foosun Content Management System 4.0.0(FoosunCMS)-->"
End Function
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -