28,409
社区成员




'函数
function strToAsc(strValue)
dim strTemp,c,m
dim i
strTemp=""
for i=1 to len(strValue & "")
c = asc(mid(strValue,i,1))
if c>=0 and c<256 then m="\x" else m="\u"
strTemp=strTemp &m& hex(c)
next
strToAsc=strTemp
end function