-
-
'ฟังก์ชั่น: 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
endfunction
'รหัสการแปลงผกผัน HTML
functionhtmldecode (การยับยั้ง)
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
endfunction
-