28,391
社区成员
发帖
与我相关
我的任务
分享求助，unicode和字符转换的问题
字符转换成unicode的函数
Function UniEncoding(vstrIn)
strReturn = ""
For i = 1 To Len(vstrIn)
ThisChr = Mid(vStrIn,i,1)
If Abs(Asc(ThisChr)) < &HFF Then
strReturn = strReturn & ThisChr
Else
innerCode = Asc(ThisChr)
If innerCode < 0 Then
innerCode = innerCode + &H10000
End If
Hight8 = (innerCode And &HFF00)\ &HFF
Low8 = innerCode And &HFF
strReturn = strReturn & "%" & Hex(Hight8) & "%" & Hex(Low8)
End If
Next
UniEncoding = strReturn
End Function
用response.write chrw(UniEncoding("我"))
出错提示，类型不匹配: '[string: "%CE%D2"]
Function UniEncoding(vstrIn)
strReturn = ""
For i = 1 To Len(vstrIn)
ThisChr = Mid(vStrIn,i,1)
If Abs(Asc(ThisChr)) < &HFF Then
strReturn = strReturn & ThisChr
Else
innerCode = Asc(ThisChr)
If innerCode < 0 Then
innerCode = innerCode + &H10000
End If
Hight8 = (innerCode And &HFF00)\ &HFF
Low8 = innerCode And &HFF
strReturn = strReturn & "%" & Hex(Hight8) & "%" & Hex(Low8)
End If
Next
UniEncoding = strReturn
End Function
用response.write chrw(UniEncoding("我"))
出错提示，类型不匹配: '[string: "%CE%D2"]
...全文
请发表友善的回复…
发表回复
stonel 2003-10-10
- 打赏
- 举报
help you,
I'm look for code to do GB<->BIG5 in asp, but can't maybe, I need this unicode<->ascII code too.
I'm look for code to do GB<->BIG5 in asp, but can't maybe, I need this unicode<->ascII code too.
amadou 2003-10-07
- 打赏
- 举报
再争扎一次
amadou 2003-10-06
- 打赏
- 举报
上去，分不够再加
amadou 2003-10-06
- 打赏
- 举报
strcon(UniEncoding("我"))吗？？结果还是一样，类型不匹配
htao007 2003-10-06
- 打赏
- 举报
strcon()函数
chense 2003-10-06
- 打赏
- 举报
帮你up
amadou 2003-10-06
- 打赏
- 举报
上去，大家给点主意吧
