เพื่อป้องกันไม่ให้ลูกค้าป้อนอักขระเต็มมุม (ครึ่งมุม) เมื่อป้อนเราจำเป็นต้องแปลงเป็นตัวละครครึ่งมุมที่ถูกต้อง (เต็มมุม) ที่ถูกต้องผ่านโปรแกรมซึ่งเป็นฟังก์ชั่นที่กำหนด
-
-
'*คำอธิบายพารามิเตอร์:
'*str: สตริงที่จะแปลง
'*ธง: ทำเครื่องหมายเต็มเวลา 0:00 น
'*ประเภทคืนค่า: สตริง
-
FunctionDBC2SBC (STR, FLAG)
Dimi
iflen (str) <= 0 แล้ว
Response.write (พารามิเตอร์สตริงว่างเปล่า)
exitfunction
จุดสิ้นสุด
fori = 1tolen (str)
str1 = asc (mid (str, i, 1))))
ifstr1> 0andstr1 <= 125andnotflagthen
dbc2sbc = dbc2sbc & chr (asc (mid (str, i, 1)) -23680)
อื่น
dbc2sbc = dbc2sbc & chr (asc (mid (str, i, 1))+23680)
จุดสิ้นสุด
ต่อไป
endfunction
-