2.8w+
社区成员
一个字 “燚”
下面这段代码在asp中对大多数中文都可以，但为什么这个字不行呢？
高手赐教
<%
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
%>
高手赐教
<%
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
%>
...全文
当前发帖距今超过3年，不再开放新的回复
发表回复
unto_lg 2004-08-10
给个示例代码如何，不胜感激！
- 打赏
- 举报
unto_lg 2004-08-10
谢谢！我在网上查到一些资料，解决了，但是我还是要给你分！毕竟你多次帮助过我，而且很耐心。
Function URLDecode(enStr)
dim deStr
dim c,i,v
deStr=""
for i=1 to len(enStr)
c=Mid(enStr,i,1)
if c="%" then
v=eval("&h"+Mid(enStr,i+1,2))
if v<128 then
deStr=deStr&chr(v)
i=i+2
else
if isvalidhex(mid(enstr,i,3)) then
if isvalidhex(mid(enstr,i+3,3)) then
v=eval("&h"+Mid(enStr,i+1,2)+Mid(enStr,i+4,2))
deStr=deStr&chr(v)
i=i+5
else
v=eval("&h"+Mid(enStr,i+1,2)+cstr(hex(asc(Mid(enStr,i+3,1)))))
deStr=deStr&chr(v)
i=i+3
end if
else
destr=destr&c
end if
end if
else
if c="+" then
deStr=deStr&" "
else
deStr=deStr&c
end if
end if
next
URLDecode=deStr
end function
function isvalidhex(str)
isvalidhex=true
str=ucase(str)
if len(str)<>3 then isvalidhex=false:exit function
if left(str,1)<>"%" then isvalidhex=false:exit function
c=mid(str,2,1)
if not (((c>="0") and (c<="9")) or ((c>="A") and (c<="Z"))) then isvalidhex=false:exit function
c=mid(str,3,1)
if not (((c>="0") and (c<="9")) or ((c>="A") and (c<="Z"))) then isvalidhex=false:exit function
end function
Function URLDecode(enStr)
dim deStr
dim c,i,v
deStr=""
for i=1 to len(enStr)
c=Mid(enStr,i,1)
if c="%" then
v=eval("&h"+Mid(enStr,i+1,2))
if v<128 then
deStr=deStr&chr(v)
i=i+2
else
if isvalidhex(mid(enstr,i,3)) then
if isvalidhex(mid(enstr,i+3,3)) then
v=eval("&h"+Mid(enStr,i+1,2)+Mid(enStr,i+4,2))
deStr=deStr&chr(v)
i=i+5
else
v=eval("&h"+Mid(enStr,i+1,2)+cstr(hex(asc(Mid(enStr,i+3,1)))))
deStr=deStr&chr(v)
i=i+3
end if
else
destr=destr&c
end if
end if
else
if c="+" then
deStr=deStr&" "
else
deStr=deStr&c
end if
end if
next
URLDecode=deStr
end function
function isvalidhex(str)
isvalidhex=true
str=ucase(str)
if len(str)<>3 then isvalidhex=false:exit function
if left(str,1)<>"%" then isvalidhex=false:exit function
c=mid(str,2,1)
if not (((c>="0") and (c<="9")) or ((c>="A") and (c<="Z"))) then isvalidhex=false:exit function
c=mid(str,3,1)
if not (((c>="0") and (c<="9")) or ((c>="A") and (c<="Z"))) then isvalidhex=false:exit function
end function
- 打赏
- 举报
mjpclab 2004-08-10
...........................
If a<128 Then
sl = sl + 3
Else
Dim hi
if Mid(strIn, sl+3, 1)="%" Then
hi = Mid(strIn, sl+3+kl, 2)'低位
a = Int("&H" & hh & hi)'非ascii码
else
hi = Hex(Asc(Mid(strIn, sl+3, 1)))'低位
a = Int("&H" & hh & hi)
end if
sl = sl + 6
End If
....................................
If a<128 Then
sl = sl + 3
Else
Dim hi
if Mid(strIn, sl+3, 1)="%" Then
hi = Mid(strIn, sl+3+kl, 2)'低位
a = Int("&H" & hh & hi)'非ascii码
else
hi = Hex(Asc(Mid(strIn, sl+3, 1)))'低位
a = Int("&H" & hh & hi)
end if
sl = sl + 6
End If
....................................
- 打赏
- 举报
mjpclab 2004-08-09
"燚" 用 urlencode后得到%A0D，为什么？
因为它的低8位小于127,直接转换成了"D"
所以高8位>127时，对后面的字符串还要作两种处理，分别对%xx和普通字符两种形式进行处理
因为它的低8位小于127,直接转换成了"D"
所以高8位>127时，对后面的字符串还要作两种处理，分别对%xx和普通字符两种形式进行处理
- 打赏
- 举报
unto_lg 2004-08-09
yi
- 打赏
- 举报
chang1216 2004-08-09
这个字念什么?
- 打赏
- 举报
php 获取第一个字符串的大写首字母(中文) * 获取第一个字符的大写首字母 */ function pinyin($s, $isfirst = false) { static $pinyins; $s = trim($s); $len = strlen($s); if ($len ) return $s; if (!isset($pinyins)) { $data = '啊:a|阿:a...
楼燚(yì)航的blog URL 摘要: 转载请注明出处，楼燚(yì)航的blog，http://www.cnblogs.com/louyihang loves baiyan/ "https://github.com/YihangLou/fast rcnn train another dataset" 这是我在github上修改的几个...阅读全文
6 生僻字_抖音《生僻字》的字词成语解释完整版 好奇之余，自己也搜索了这首歌，并尝试着查找了歌曲中的所有生僻字、词、成语的释义。若是有错误的、不恰当的、不完整的，欢迎私聊或者在评论区留言。以及：魃魈魁鬾真不是个成语！又双叒叕也不是！火炎焱燚也不是！...
两个相同字组成的汉字 - 中国汉字的奇妙（三） 二【er】 冒【mao】 吕【lv】 出【chu】 炎【yan】 圭【gui】 从【cong】 林【lin】 ...燚 [yì] 艸【cǎo】 沝 [zhuǐ] 槑【 méi 】 爻 [yáo] 八【ba】
6 生僻字_《生僻字》歌词拼音与注释，跟着音乐学汉字 《生僻字》歌词(拼音)我们中国的汉字，落笔成画留下五千年的历史，让世界都认识，我们中国的汉字，一撇一捺都是故事。跪举火把，虔诚像道光，四方田地，落谷成仓；古人象形声意辨恶良bá xiāo kuí jì chī mèi w...
汉语生僻字大全 生僻字: 厶部：厷厸厹厺厼厽厾叀叁参叄叅叆叇亝 又部：収叏叐叒叓叕叚叜叝叞叠 口部：叧叨叭叱叴叵叺叻叼叽叾卟叿吀吁吂吅吆吇吋吒吔吖吘吙吚吜吡吢吣吤吥吧吩吪吭吮吰吱吲呐吷吺吽呁呃呄呅呇呉呋呋呌呍呎...
PAT 1029 Median （25 分） 燚 我们可以将数列1存入数组中，然后在线输入第二个数列，输入一个比较一次，然后用一个计数变量记录比较的个数，当变量等于中位数位置时，则找出了中位数。 #include #include using namespace std; int number1...
一个小白学习的第一天 一个小白学习的第一天 JDK,JRE,JVM各自的作用和关系，环境变量配置：JDK：开发工具包 JRE：运行环境 JVM：虚拟机，为保证java程序的跨平台 环境变量配置的作用：可以在任意目录访问jdk下的一些命令（javac. java） ...
PTA 1027 Colors in Mars （20 分）燚 题目大意：颜色由 R G B 三个字符表示，每个字符对应一个十三进制数。现给出 RGB 三个十进制数，将他们转换位十三进制数 输出以#字符开始 思路：1.由于最后输出的有“#”字符，并且13进制涉数大于9的都用字母...
oracle数据库中关于number数据类型使用时出现的java.sql.SQLException: 数字溢出问题 最近在做一个项目，里面有一个字段是手机号码，我用的是oracle数据库，对于这个字段我设计成了number类型11位，设计好表后，用navicat测试存取正常。 但是，在写后台代码的存值时，出现java.sql.SQLException: ...
一个废弃标签的动画效果 一个废弃标签的动画效果 开发工具与关键技术：DW 前端 作者：盘子 撰写时间：2019年1月20 下面分享的这个被称为废弃的标签，它所实现的效果叫做跑马灯效果，或者说它本身就自带这样的效果，而这个标签叫做marquee...
求一个字符串中不带重复字母的最长substr的长度 问题描述：给出一个字符串，求该字符串的最长子字符串的长度，该子字符串没有重复的字符。例如：给定字符串“abcabca”，则返回的长度应该为3；再如给定字符串“aaaaaaaa”，则返回测长度应该为1.解题思路：用一个...
整理一波常用中文文字集合（去重的文字最多中文：20902个文字+ 常用的中文文字3900+） 文章目录说明：1、20902个中文字体【可能还有些...一丁丂七丄丅丆万丈三上下丌不与丏丐丑丒专且丕世丗丘丙业丛东丝丞丟丠両丢丣两严並丧丨丩个丫丬中丮丯丰丱 串丳临丵丶丷丸丹为主丼丽举丿乀乁乂乃乄久乆乇么义乊之乌
Ain_电脑所有乱码文字集 以下是所有电脑上可显示的汉字,谁要是用哪个又通过输入法输不出来,可以...20000: 丠両丢丣两严並丧丨丩个丫丬中丮丯丰丱串丳临丵丶丷丸丹为主丼丽举丿乀乁乂乃乄久乆乇么义乊之乌乍乎乏乐乑乒乓乔乕乖乗乘乙乚乛乜九乞
PAT 1035 Password （20 分）String的性质 燚 输入：第一行：输入正整数N 表示要输入的信息个数 剩下N行：账号 密码 输出：如果有被修改的字符串，则输出被修改信息的个数以及修改过后的内容 如果所有密码字符串都没有被修改，若输入数量>1则输出：...
JavaScript 数字精度问题 另一个问题是，二进制浮点数表示法不能精确的表示十进制小数，比如十进制小数 0.1 转为二进制就成了 0.0001100110011…（无限循环）。因此，JavaScript 在进行小数计算的时候会出现一些问题，比如： .2 - .1 ...
