نسخة الكود كما يلي:
FunctionHtmlencode (FSTRING)
ifnotisnull (fstring) ثم
fString = استبدال (fString ، ">" ، ">")
fString = استبدال (fString ، "<" ، "<")
fString = استبدال (FSTRING ، CHR (32) ، "")
fString = استبدال (FSTRING ، CHR (9) ، "")
fString = استبدال (FSTRING ، CHR (34) ، "")
fString = استبدال (FSTRING ، CHR (39) ، "'")
fString = استبدال (FSTRING ، CHR (13) ، "")
fString = استبدال (fString ، Chr (10) و CHR (10) ، "</p> <p>")
fString = استبدال (fstring ، chr (10) ، "<br>")
htmlencode = fString
Endif
الوظيفية
FunctionSafe (str) "يتم استخدام هذه الوظيفة لتحديد ما إذا كان المتغير الذي تم تمريره يحتوي على أحرف خاصة ، ولا يعود صحيحًا
DIMS_BADSTR ، N ، أنا
s_badstr = "'& <>؟ ٪ ،؛ :()` ~!@#$^*{} [] |
n = len (S_Badstr)
آمن = صحيح
fori = 1ton
ifinstr (str ، mid (s_badstr ، i ، 1))> 0then
آمن = خطأ
exitfunction
Endif
التالي
الوظيفية