<٪
'*********************************
'الوظيفة: htmlencode (استعادة)
'المعلمة: استعادة ، سلسلة ليتم تشفيرها
المؤلف: Alixi
"التاريخ: 2007/7/15
الوصف: تحويل رمز HTML
"مثال: htmlencode (" <p> مرحبًا بك في <br> alixi </p> ")
'*********************************
FunctionHtmlencode (استعادة)
DIMSTR: STR = استعادة
ifnotisnull (str) ثم
str = uncheckstr (str)
str = استبدال (str ، "&" ، "&")
str = استبدال (str ، ">" ، ">")
str = استبدال (str ، "<" ، "<")
str = استبدال (str ، chr (32) ، "")
str = استبدال (str ، chr (9) ، "")
str = استبدال (str ، chr (9) ، "")
str = استبدال (str ، chr (34) ، "")
str = استبدال (str ، chr (39) ، "'')
str = استبدال (str ، chr (13) ، "")
str = استبدال (str ، chr (10) ، "<br>")
htmlencode = str
Endif
الوظيفية
"رمز التحويل العكسي HTML
FunctionHtmldCode (استعادة)
DIMSTR: STR = استعادة
ifnotisnull (str) ثم
str = استبدال (str ، "&" ، "&")
str = استبدال (str ، ">" ، ">")
str = استبدال (str ، "<" ، "<")
str = استبدال (str ، "" ، chr (32))
str = استبدال (str ، "" ، chr (9))
str = استبدال (str ، "" ، chr (9))
str = استبدال (str ، "" ، chr (34))
str = استبدال (str ، "'' ، chr (39))
str = استبدال (str ، "" ، chr (13))
str = استبدال (str ، "<br>" ، chr (10))
htmldecode = str
Endif
الوظيفية
٪>