-
'ฟังก์ชัน: เทียบเท่ากับการอัพเกรด HTMLEncode2 ไม่จำเป็นต้องวนซ้ำสตริงทั้งหมด'
'ที่มา: http://www.downcodes.com/536459.html
ฟังก์ชัน BHTML
BHTML = BTR(s)
BHTML = เซิร์ฟเวอร์.HTMLEncode(BHTML)
BHTML = แทนที่(BHTML, " ", " ")
BHTML = แทนที่(BHTML, " ", " ")
BHTML = แทนที่(BHTML, vbCr, "<br />")
BHTML = แทนที่(BHTML, vbLf, "<br />")
BHTML = แทนที่(BHTML, vbTab, " ")
ฟังก์ชันสิ้นสุด
-