一个字 “燚”

unto_lg 2004-08-09 09:35:57
下面这段代码在asp中对大多数中文都可以,但为什么这个字“燚”不行呢?(该字拼音为 yi)

高手赐教

<%
s = "燚"
Response.Write URLDecode(Server.URLEncode (s))

Function URLDecode(strIn)
URLDecode = ""
Dim sl: sl = 1
Dim tl: tl = 1
Dim key: key = "%"
Dim kl: kl = Len(key)
sl = InStr(sl, strIn, key, 1)
Do While sl>0
If (tl=1 And sl<>1) Or tl<sl Then
URLDecode = URLDecode & Mid(strIn, tl, sl-tl)
End If
Dim hh: hh = Mid(strIn, sl+kl, 2)'高位
Dim a: a = Int("&H" & hh)'ascii码
If a<128 Then
sl = sl + 3
Else
Dim hi: hi = Mid(strIn, sl+3+kl, 2)'低位
a = Int("&H" & hh & hi)'非ascii码
sl = sl + 6
End If
URLDecode = URLDecode & Chr(a)
tl = sl
sl = InStr(sl, strIn, key, 1)
Loop
URLDecode = URLDecode & Mid(strIn, tl)
End Function
%>
...全文
80 2 打赏 收藏 转发到动态 举报
AI 作业
写回复
用AI写文章
2 条回复
切换为时间正序
请发表友善的回复…
发表回复
chushicheng 2004-08-09
  • 打赏
  • 举报
回复
非常规字
张海霖 2004-08-09
  • 打赏
  • 举报
回复
你真牛,利害

28,409

社区成员

发帖
与我相关
我的任务
社区描述
ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
社区管理员
  • ASP
  • 无·法
加入社区
  • 近7日
  • 近30日
  • 至今
社区公告
暂无公告

试试用AI创作助手写篇文章吧