Copy the code as follows: <%
'///***************************************************************************
'Common public function library file name: PubFunction.asp
'***************************************************************************//
ConstGo_back="<ahref='javascript:history.back(1)'>[Return to previous page]</a>"
ConstCloser="<ahref='javascript:self.close()'>『Close window』</a>"
'//***************************************************************************
'PubFgdy(Test,Tag,Bh) calls the specified value function of the specified string according to the separator and label. Parameters: Test separated string, Tag separator, Bh label
'******************************************************************************//
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) code specification function, parameters: OldTest original content, NewTest new content
'******************************************************************************//
FunctionPubCodeGF(OldTest)
dimNewTest:NewTest=trim(OldTest)
ifisnull(NewTest) orNewTest=""thencode_admin="":exitfunction
NewTest=replace(NewTest,"'","""")
PubCodeGF=NewTest
endfunction
'//***************************************************************************
'PubCodehtml(OldTest) blocks HTML code functions, parameters: OldTest original content, NewTest new content
'******************************************************************************//
functionPubCodehtml(OldTest)
dimNewTest:NewTest=OldTest
ifisnull(NewTest) orNewTest=""thenPubCodehtml="":exitfunction
NewTest=replace(NewTest,"<","<")
NewTest=replace(NewTest,">",">")
NewTest=replace(NewTest,chr(39),"'")' Single quote
NewTest=replace(NewTest,chr(34),"")' double quotes
NewTest=replace(NewTest,chr(32),"")' space
NewTest=replace(NewTest,chr(9)," ")'table