忠網廣告 系統 用到的幾個函數
2024-05-04 11:02:28
供稿:網友
復制代碼 代碼如下:<%
'///******************************************************************
' 常用公共函數庫 文件名:PubFunction.asp
'******************************************************************///
Const Go_back="<a href='javascript:history.back(1)'>[返回上頁]</a>"
Const Closer="<a href='javascript:self.close()'>『關閉窗口』</a>"
'//********************************************************************
' PubFgdy(Test,Tag,Bh) 根據分隔符和標號調用指定字符串的指定值函數,參數:Test 被分隔的字符串,Tag 分隔符,Bh 標號
'********************************************************************//
Function PubFgdy(Test,Tag,Bh)
PubFgdy=""
if Test<>"" and isnumeric(Bh)=true Then
Dim Tests
Tests=split(Test&Tag,Tag)
if Bh<Ubound(Tests) then
PubFgdy=Tests(Bh)
end if
else
PubFgdy=""
exit function
end if
end function
'//********************************************************************
' PubCodeGF(OldTest) 代碼規范函數, 參數:OldTest 原始內容, NewTest 新內容
'********************************************************************//
Function PubCodeGF(OldTest)
dim NewTest:NewTest=trim(OldTest)
if isnull(NewTest) or NewTest="" then code_admin="":exit function
NewTest=replace(NewTest,"'","""")
PubCodeGF=NewTest
end function
'//********************************************************************
' PubCodehtml(OldTest) 屏蔽HTML代碼函數, 參數:OldTest 原始內容, NewTest 新內容
'********************************************************************//
function PubCodehtml(OldTest)
dim NewTest:NewTest=OldTest
if isnull(NewTest) or NewTest="" then PubCodehtml="":exit function
NewTest=replace(NewTest,"<","<")
NewTest=replace(NewTest,">",">")
NewTest=replace(NewTest,chr(39),"'") '單引號
NewTest=replace(NewTest,chr(34),""") '雙引號
NewTest=replace(NewTest,chr(32)," ") '空格
NewTest=replace(NewTest,chr(9)," ")'table