複製代碼代碼如下:<%
'///******************************************************************
'常用公共函數庫文件名：PubFunction.asp
'******************************************************************///
ConstGo_back="<ahref='javascript:history.back(1)'>[返回上頁]</a>"
ConstCloser="<ahref='javascript:self.close()'>『關閉窗口』</a>"
'//********************************************************************
'PubFgdy(Test,Tag,Bh)根據分隔符和標號調用指定字符串的指定值函數，參數：Test被分隔的字符串，Tag分隔符，Bh標號
'********************************************************************//
FunctionPubFgdy(Test,Tag,Bh)
PubFgdy=""
ifTest<>""andisnumeric(Bh)=trueThen
DimTests
Tests=split(Test&Tag,Tag)
ifBh<Ubound(Tests)then
PubFgdy=Tests(Bh)
endif
else
PubFgdy=""
exitfunction
endif
endfunction
'//********************************************************************
'PubCodeGF(OldTest)代碼規範函數，參數：OldTest原始內容，NewTest新內容
'********************************************************************//
FunctionPubCodeGF(OldTest)
dimNewTest:NewTest=trim(OldTest)
ifisnull(NewTest)orNewTest=""thencode_admin="":exitfunction
NewTest=replace(NewTest,"'","""")
PubCodeGF=NewTest
endfunction
'//********************************************************************
'PubCodehtml(OldTest)屏蔽HTML代碼函數，參數：OldTest原始內容，NewTest新內容
'********************************************************************//
functionPubCodehtml(OldTest)
dimNewTest:NewTest=OldTest
ifisnull(NewTest)orNewTest=""thenPubCodehtml="":exitfunction
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