Скопируйте код следующим образом: <%
'/// ***************************************************************
'Общая публичная функция библиотека Имя файла: pubfunction.asp
'*****************************************************************
Constgo_back = "<ahref = 'javascript: inistory.back (1)'> [вернуться на предыдущую страницу] </a>"
Constcloser = "<ahref = 'javaScript: self.close ()'>『 Закройте окно 』</a>"
'// *************************************************************
'Pubfgdy (Test, Tag, BH) вызывает функцию указанного значения указанной строки в соответствии с сепаратором и меткой. Параметры: Строка отделения теста, сепаратор тегов, метка BH
'***************************************************************
FunctionPubfgdy (тест, тег, BH)
Pubfgdy = ""
iftest <> "" andisnumeric (bh) = truethen
Dimtests
Tests = split (test & Tag, Tag)
ifbh <ubound (тесты) тогда
Pubfgdy = tests (bh)
эндиф
еще
Pubfgdy = ""
Выходная функция
эндиф
конечная функция
'// *************************************************************
'Pubcodegf (OldTest) Функция спецификации кода, параметры: OldTest Original Content, новенький новый контент
'***************************************************************
FunctionPubCodegf (OldTest)
DimNewTest: NewTest = trim (OldTest)
ifisnull (newtest) ornewtest = "" thencode_admin = "": exitfunction
Newtest = reply (newtest, "'", "" "")
Pubcodegf = newtest
конечная функция
'// *************************************************************
'Pubcodehtml (OldTest) блокирует функции HTML -кода, параметры: Oldestest Original Content, новенький новый контент
'***************************************************************
functionpubcodehtml (OldTest)
DimNewTest: NewTest = OldEST
ifisnull (newtest) ornewtest = "" thenpubcodehtml = "": exitfunction
Newtest = reply (newtest, "<", "<")
Newtest = reply (newtest, ">", ">")
Newtest = reply (newtest, chr (39), "" ") 'одиночная цитата
NewTest = reply (newtest, chr (34), "") 'двойные цитаты
NewTest = reply (NewTest, Chr (32), "") "пространство
Newtest = reply (newtest, chr (9), "") 'таблица