Copie el código de la siguiente manera: <%
'/// ****************************************************************************
'Nombre del archivo de la biblioteca de funciones públicas comunes: PubFunction.asp
'****************************************************************** //
Constgo_back = "<ahref = 'javascript: History.back (1)'> [Regrese a la página anterior] </a>"
Constcloser = "<ahref = 'javascript: self.close ()'>『 Cerrar ventana 』</a>"
'// ******************************************************************************
'PUBFGDY (Test, Tag, BH) llama a la función de valor especificada de la cadena especificada de acuerdo con el separador y la etiqueta. Parámetros: prueba de cadena separada, separador de etiquetas, etiqueta BH
'******************************************************************** //
FunctionPubfgdy (Test, Tag, BH)
Pubfgdy = ""
iftest <> "" Andisnumérico (BH) = Truethen
Dimtests
Pruebas = Split (Prueba y etiqueta, etiqueta)
ifbh <ubound (pruebas) entonces
PUBFGDY = Tests (BH)
endif
demás
Pubfgdy = ""
extinción
endif
Función final
'// ******************************************************************************
'Función de especificación de código PubcodeGf (OldTest), Parámetros: Contenido original de Oldtest, NewTest Nuevo contenido
'******************************************************************** //
FunctionPubCodegf (OldTest)
dimnewTest: newtest = Trim (Oldtest)
ifisnull (newtest) ornewTest = "" thencode_admin = "": ExitFunction
Newtest = reemplazar (newtest, "" "," "" ")
Pubcodegf = NewTest
Función final
'// ******************************************************************************
'Pubcodehtml (OldTest) bloquea las funciones del código HTML, Parámetros: contenido original de Oldtest, NewTest Nuevo contenido
'******************************************************************** //
functionPubcodeHtml (Oldtest)
dimnewtest: newtest = Oldtest
ifisnull (newtest) ornewTest = "" thenpubcodehtml = "": ExitFunction
Newtest = reemplazar (newtest, "<", "<")
Newtest = reemplazar (newTest ",>", ">")
Newtest = reemplazar (Newtest, chr (39), "'")' Cita única
Newtest = reemplazar (newtest, chr (34), "") 'cotizaciones dobles
Newtest = reemplazar (newtest, chr (32), "") 'espacio
Newtest = reemplazar (newtest, chr (9), "") 'tabla