Copie o código da seguinte forma: <%
'/// *******************************************
'Função pública comum Nome do arquivo: PubFunction.asp
'*************************************************
Constgo_back = "<ahref = 'javascript: history.back (1)'> [retornar à página anterior] </a>"
ConstCloser = "<ahref = 'javascript: self.close ()'>『 fechar janela 』</a>"
'// *********************************************
'Pubfgdy (teste, tag, BH) chama a função de valor especificada da sequência especificada de acordo com o separador e o rótulo. Parâmetros: String separada de teste, separador de tags, etiqueta BH
'***************************************************
FunctionPubfgdy (teste, tag, BH)
Pubfgdy = ""
iftest <> "" Andisnumeric (BH) = Truethen
Dimtests
Testes = Split (teste e tag, tag)
ifbh <ubound (testes) então
Pubfgdy = testes (BH)
endif
outro
Pubfgdy = ""
saída de saída
endif
Função final
'// *********************************************
'PubCodeGF (OldTest) Função de especificação de código, parâmetros: conteúdo original do OldTest, novo conteúdo novo
'***************************************************
FunctionPubCodeGF (OldTest)
Dimnewtest: newtest = Trim (antigoste)
ifisnull (newtest) ornewtest = "" thencode_admin = "": exitfunção
Newtest = substituir (newtest, "'", "" ""
PubCodeGF = newtest
Função final
'// *********************************************
'PubCodeHtml (OldTest) bloqueia funções de código HTML, parâmetros: conteúdo original do antigo, novo conteúdo novo
'***************************************************
functionPubCodeHtml (antigo)
DiMnewTest: newTest = OldTest
ifisnull (newtest) ornewtest = "" thenpubcodehtml = "": exitfunction
Newtest = substituir (newtest, "<", "<")
Newtest = substituir (newtest, ">", ">")
Newtest = substituir (newtest, chr (39), "'")' "
Newtest = substituir (newtest, chr (34), "") '' citações duplas
Newtest = substituir (newtest, chr (32), "") ''
NewTest = Substitua (Newtest, Chr (9), "") ''