复制代码代码如下:<%
'///******************************************************************
'常用公共函数库文件名: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