انسخ الرمز على النحو التالي: <٪
'/// *************************************************************************
'اسم ملف مكتبة الوظائف العامة المشتركة: pubFunction.asp
'********************************************************************* //
constgo_back = "<ahref = 'javaScript: History.back (1)'> [العودة إلى الصفحة السابقة] </a>"
constcloser = "<ahref = 'javaScript: self.close ()'>『 إغلاق نافذة 』</a>"
'// *************************************************************************
'PubFgdy (Test ، Tag ، BH) يستدعي وظيفة القيمة المحددة للسلسلة المحددة وفقًا للفاصل والتسمية. المعلمات: اختبار سلسلة منفصلة ، فاصل العلامة ، تسمية BH
'**************************************************************************** //
FunctionPubfgdy (اختبار ، علامة ، BH)
pubfgdy = ""
iftest <> "" Andisnumeric (BH) = truethen
أبعاد
الاختبارات = الانقسام (الاختبار والعلامة ، علامة)
IFBH <ubound (اختبارات) ثم
pubfgdy = الاختبارات (BH)
Endif
آخر
pubfgdy = ""
exitfunction
Endif
الوظيفية
'// *************************************************************************
'PubCodegf (Oldtest) وظيفة مواصفات الكود ، المعلمات: اختبار المحتوى الأصلي ، محتوى جديد
'**************************************************************************** //
FunctionPubCodegf (الاختبار القديم)
dimnewtest: newTest = trim (oldtest)
ifisnull (newTest) ornewtest = "" thencode_admin = "": exitfunction
NewTest = استبدال (NewTest ، "" "،" "" ")
PubCodegf = NewTest
الوظيفية
'// *************************************************************************
'PubCodehtml (Oldtest) يحظر وظائف رمز HTML ، المعلمات: Oldtest المحتوى الأصلي ، NewTest محتوى جديد
'**************************************************************************** //
FunctionPubCodehtml (الاختبار القديم)
dimnewtest: newtest = oldtest
ifisnull (newTest) OrnewTest = "" thenpubcodehtml = "": exitfunction
NewTest = استبدال (NewTest ، "<" ، "<")
NewTest = استبدال (NewTest ، ">" ، ">")
NewTest = استبدال (NewTest ، Chr (39) ، "'")' اقتباس واحد
NewTest = استبدال (NewTest ، Chr (34) ، "") 'اقتباسات مزدوجة
NewTest = استبدال (NewTest ، Chr (32) ، "") "الفضاء
NewTest = استبدال (NewTest ، CHR (9) ، "") "