请问怎么将里面的%B4%F3%B3%A4%BD%F1%D6%F7%CC%E2%C7%FA转换为相应的汉字

[supiori]

http://www.baidu.com/s?wd=%B4%F3%B3%A4%BD%F1%D6%F7%CC%E2%C7%FA&lm=0&si=&rn=10&ie=gb2312&ct=0&cl=3&f=1&rsp=0
请问怎么将里面的%B4%F3%B3%A4%BD%F1%D6%F7%CC%E2%C7%FA转换为相应的汉字

[youxi520]

%B4%F3%B3%A4%BD%F1%D6%F7%CC%E2%C7%FA

这些可以直接用request("")取得的啊

server.urlencode("汉字")就变成这样了

[qfacy]

这个是utf-8的编码

[BlueDestiny]

<%
Response.Write URLDecode("=%B4%F3%B3%A4%BD%F1%D6%F7%CC%E2%C7%") & "<br/>"

Public Function URLDecode(ByVal 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, hi, hl
Dim a
Select Case UCase(Mid(strIn, sl+kl, 1))
Case "U":'Unicode URLEncode
a = Mid(strIn, sl+kl+1, 4)
URLDecode = URLDecode & ChrW("&H" & a)
sl = sl + 6
Case "E":'UTF-8 URLEncode
hh = Mid(strIn, sl+kl, 2)
a = Int("&H" & hh)'ascii码
If Abs(a)<128 Then
sl = sl + 3
URLDecode = URLDecode & Chr(a)
Else
hi = Mid(strIn, sl+3+kl, 2)
hl = Mid(strIn, sl+6+kl, 2)
a = ("&H" & hh And &H0F) * 2 ^12 Or ("&H" & hi And &H3F) * 2 ^ 6 Or ("&H" & hl And &H3F)
If a<0 Then a = a + 65536
URLDecode = URLDecode & ChrW(a)
sl = sl + 9
End If
Case Else:'Asc URLEncode
hh = Mid(strIn, sl+kl, 2)'高位
a = Int("&H" & hh)'ascii码
If Abs(a)<128 Then
sl = sl + 3
Else
hi = Mid(strIn, sl+3+kl, 2)'低位
a = Int("&H" & hh & hi)'非ascii码
sl = sl + 6
End If
URLDecode = URLDecode & Chr(a)
End Select
tl = sl
sl = InStr(sl, strIn, key, 1)
Loop
URLDecode = URLDecode & Mid(strIn, tl)
End Function

%>

[holoon]

mark

[Grace_pn]

mark

[Scarroot]

mark

[超级大笨狼]

请问如何将网页中的utf-8编码转换成gb2312
A :




thx



---------------------------------------------------------------



<script>



function chineseFromUtf8Url(strUtf8)

{

var bstr = "";

var nOffset = 0; // processing point on strUtf8



if( strUtf8 == "" )

return "";



strUtf8 = strUtf8.toLowerCase();

nOffset = strUtf8.indexOf("%e");

if( nOffset == -1 )

return strUtf8;



while( nOffset != -1 )

{

bstr += strUtf8.substr(0, nOffset);

strUtf8 = strUtf8.substr(nOffset, strUtf8.length - nOffset);

if( strUtf8 == "" || strUtf8.length < 9 ) // bad string

return bstr;



bstr += utf8CodeToChineseChar(strUtf8.substr(0, 9));

strUtf8 = strUtf8.substr(9, strUtf8.length - 9);

nOffset = strUtf8.indexOf("%e");

}



return bstr + strUtf8;

}



function unicodeFromUtf8(strUtf8)

{

var bstr = "";

var nTotalChars = strUtf8.length; // total chars to be processed.

var nOffset = 0; // processing point on strUtf8

var nRemainingBytes = nTotalChars; // how many bytes left to be converted

var nOutputPosition = 0;

var iCode, iCode1, iCode2; // the value of the unicode.



while (nOffset < nTotalChars)

{

iCode = strUtf8.charCodeAt(nOffset);

if ((iCode & 0x80) == 0) // 1 byte.

{

if ( nRemainingBytes < 1 ) // not enough data

break;



bstr += String.fromCharCode(iCode & 0x7F);

nOffset ++;

nRemainingBytes -= 1;

}

else if ((iCode & 0xE0) == 0xC0) // 2 bytes

{

iCode1 = strUtf8.charCodeAt(nOffset + 1);

if ( nRemainingBytes < 2 || // not enough data

(iCode1 & 0xC0) != 0x80 ) // invalid pattern

{

break;

}



bstr += String.fromCharCode(((iCode & 0x3F) << 6) || ( iCode1 & 0x3F));

nOffset += 2;

nRemainingBytes -= 2;

}

else if ((iCode & 0xF0) == 0xE0) // 3 bytes

{

iCode1 = strUtf8.charCodeAt(nOffset + 1);

iCode2 = strUtf8.charCodeAt(nOffset + 2);

if ( nRemainingBytes < 3 || // not enough data

(iCode1 & 0xC0) != 0x80 || // invalid pattern

(iCode2 & 0xC0) != 0x80 )

{

break;

}



bstr += String.fromCharCode(((iCode & 0x0F) << 12) ||

((iCode1 & 0x3F) << 6) ||

(iCode2 & 0x3F));

nOffset += 3;

nRemainingBytes -= 3;

}

else // 4 or more bytes -- unsupported

break;

}



if (nRemainingBytes != 0)

{

// bad UTF8 string.

return "";

}



return bstr;

}



function utf8CodeToChineseChar(strUtf8)

{

var iCode, iCode1, iCode2;

iCode = parseInt("0x" + strUtf8.substr(1, 2));

iCode1 = parseInt("0x" + strUtf8.substr(4, 2));

iCode2 = parseInt("0x" + strUtf8.substr(7, 2));



return String.fromCharCode(((iCode & 0x0F) << 12) ||

((iCode1 & 0x3F) << 6) ||

(iCode2 & 0x3F));

}

alert(chineseFromUtf8Url("%E6%B5%8B%E8%AF%95"))

</script>

[超级大笨狼]

<script language="JavaScript" runat=Server>
var s = "%E6%82%A8%E5%A5%BD"
s=decode_utf8(unescape(s))
alert(s)
function decode_utf8(utftext) {
var plaintext = ""; var i=0; var c=c1=c2=0;
while(i<utftext.length)
{
c = utftext.charCodeAt(i);
if (c<128) {
plaintext += String.fromCharCode(c);
i++;}
else if((c>191) && (c<224)) {
c2 = utftext.charCodeAt(i+1);
plaintext += String.fromCharCode(((c&31)<<6) | (c2&63));
i+=2;}
else {
c2 = utftext.charCodeAt(i+1); c3 = utftext.charCodeAt(i+2);
plaintext += String.fromCharCode(((c&15)<<12) | ((c2&63)<<6) | (c3&63));
i+=3;}
}
return plaintext;
}
</script>

[超级大笨狼]

<script language="vbs" >

'用途:將UTF-8編碼漢字轉換為GB2312碼，兼容英文和數字
'版權:雖說是原創，其實也參考了別人的部分算法
'用法:
alert UTF2GB("%E9%83%BD%E5%B8%82%E6%83%85%E7%B7%A3 %E6%98%9F%E5%BA%A7")



function UTF2GB(UTFStr)
for Dig=1 to len(UTFStr)
if mid(UTFStr,Dig,1)="%" then
if len(UTFStr) >= Dig+8 then
GBStr=GBStr & ConvChinese(mid(UTFStr,Dig,9))
Dig=Dig+8
else
GBStr=GBStr & mid(UTFStr,Dig,1)
end if
else
GBStr=GBStr & mid(UTFStr,Dig,1)
end if
next
UTF2GB=GBStr
end function
function ConvChinese(x)
A=split(mid(x,2),"%")
i=0
j=0
for i=0 to ubound(A)
A(i)=c16to2(A(i))
next
for i=0 to ubound(A)-1
DigS=instr(A(i),"0")
Unicode=""
for j=1 to DigS-1
if j=1 then
A(i)=right(A(i),len(A(i))-DigS)
Unicode=Unicode & A(i)
else
i=i+1
A(i)=right(A(i),len(A(i))-2)
Unicode=Unicode & A(i)
end if
next
if len(c2to16(Unicode))=4 then
ConvChinese=ConvChinese & chrw(int("&H" & c2to16(Unicode)))
else
ConvChinese=ConvChinese & chr(int("&H" & c2to16(Unicode)))
end if
next
end function
function c2to16(x)
i=1
for i=1 to len(x) step 4
c2to16=c2to16 & hex(c2to10(mid(x,i,4)))
next
end function
function c2to10(x)
c2to10=0
if x="0" then exit function
i=0
for i= 0 to len(x) -1
if mid(x,len(x)-i,1)="1" then c2to10=c2to10+2^(i)
next
end function
function c16to2(x)
i=0
for i=1 to len(trim(x))
tempstr= c10to2(cint(int("&h" & mid(x,i,1))))
do while len(tempstr)<4
tempstr="0" & tempstr
loop
c16to2=c16to2 & tempstr
next
end function
function c10to2(x)
mysign=sgn(x)
x=abs(x)
DigS=1
do
if x<2^DigS then
exit do
else
DigS=DigS+1
end if
loop
tempnum=x
i=0
for i=DigS to 1 step-1
if tempnum>=2^(i-1) then
tempnum=tempnum-2^(i-1)
c10to2=c10to2 & "1"
else
c10to2=c10to2 & "0"
end if
next
if mysign=-1 then c10to2="-" & c10to2
end function

</script>

[超级大笨狼]

<HTML>
<HEAD>
<META name=VI60_defaultClientScript content=VBScript>
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
<TITLE></TITLE>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312"></HEAD>
<BODY><pre>
输入:"http://www.google.com/search?hl=en&ie=UTF-8&oe=UTF-8&q=%E5%85%B3%E9%94%AE%E5%AD%97&btnG=Google+Search"
输出:关键字</pre>
<SCRIPT LANGUAGE=vbscript>
<!--
mystr="http://www.google.com/search?hl=en&ie=UTF-8&oe=UTF-8&q=%E5%85%B3%E9%94%AE%E5%AD%97&btnG=Google+Search"
function getutf8(x)
'这个函数是用来得到%号的部分，
'输入条件是""http://www.google.com/search?hl=en&ie=UTF-8&oe=UTF-8&q=%E5%85%B3%E9%94%AE%E5%AD%97&btnG=Google+Search"
A=split(x,"&")'定义一个临时数组
dim i:i=0'临时的指针
for i=0 to ubound(A)
if instr(A(i),"%")>0 then
B=split(A(i),"=")'靠！再定义一个临时数组，省事，浪费内存比浪费我的生命强
getutf8=B(1)
exit for
end if
next
getutf8=right(getutf8,len(getutf8)-1)'去掉左边的%
end function
msgbox U8toU(getutf8(mystr))
function c16to2(x)
'这个函数是用来转换16进制到2进制的，可以是任何长度的，一般转换UTF-8的时候是两个长度，比如A9
'比如：输入“C2”，转化成“11000010”,其中1100是"c"是10进制的12（1100），那么2（10）不足4位要补齐成（0010）。
dim tempstr
dim i:i=0'临时的指针
for i=1 to len(trim(x))
tempstr= c10to2(cint(int("&h" & mid(x,i,1))))
do while len(tempstr)<4
tempstr="0" & tempstr'如果不足4位那么补齐4位数
loop
c16to2=c16to2 & tempstr
next
end function

'document.write hex(asc("字")) & "<br>"
function U8toU(x)
'输入一堆有%分隔的字符串，先分成数组，根据utf8规则来判断补齐规则
'输入:关 E5 85 B3 键 E9 94 AE 字 E5 AD 97
'输出:关 B9D8 键 BCFC 字 D7D6
dim WeiS'要判断第一个编码的位数
dim Unicode'二进制的Unicode码
dim alpha'定义单个字符
A=split(x,"%")'定义一个临时数组
dim i:i=0'临时的指针
dim j:j=0'临时的指针

for i=0 to ubound(A)
A(i)=c16to2(A(i))'第一次循环，先转换成2进制再说

next

for i=0 to ubound(A)-1
WeiS=instr(A(i),"0")'判断第一次出现0的位置，
'可能是1(单字节)，3(3-1字节)，4，5，6，7不可能是2和大于7
'理论上到7，实际不会超过3。

Unicode=""
for j=1 to WeiS-1
if j=1 then
A(i)=right(A(i),len(A(i))-WeiS)'第一个去掉最左边的WeiS个
Unicode=Unicode & A(i)

else
i=i+1
A(i)=right(A(i),len(A(i))-2)'其余去掉最左边的两个
Unicode=Unicode & A(i)
end if

next
U8toU=U8toU & chrw(int("&H" & c2to16(Unicode)))'总算完了,妈的！！


next

end function
'msgbox c2to16("11100101")
function c2to16(x)
'2进制到16进制的转换，每4个0或1转换成一个16进制字母，输入长度当然不可能不是4的倍数了

dim i:i=1'临时的指针
for i=1 to len(x) step 4
c2to16=c2to16 & hex(c2to10(mid(x,i,4)))
next
end function
function c2to10(x)
'单纯的2进制到10进制的转换，不考虑转16进制所需要的4位前零补齐。
'因为这个函数很有用！以后也会用到，做过通讯和硬件的人应该知道。
'这里用字符串代表二进制
dim mysign :mysign=sgn(cint(x))'定义mysign这个东西，首先判断正负符号
x=abs(cint(int(x)))
c2to10=0
if x="0" then exit function'如果是0的话直接得0就完事
dim i:i=0'临时的指针
for i= 0 to len(x) -1'否则利用8421码计算，这个从我最开始学计算机的时候就会，好怀念当初教我们的谢道建老先生啊！
if mid(x,len(x)-i,1)="1" then c2to10=c2to10+2^(i)
next
if mysign=-1 then c2to10=-1 * c2to10'加上正负符号
end function

function c10to2(x)'10进制到2进制的转换
'这个函数在计算16位到2位转换时候用到了，
'没有做在16位里面是因为这个函数只是单纯10-2转换，不涉及16进制由4个2进制补齐空位，将来可以用到任何地方
'比如输入2，输出“10”而不是“0010”
'首先判断正负符号
dim mysign:mysign=sgn(x)'定义一个符号标记
x=abs(x)
'然后判断有几位,至少一位
dim WeiS:WeiS=1
do
if x<2^WeiS then
exit do
else
WeiS=WeiS+1
end if
loop
dim tempnum:tempnum=x'定义一个临时的数字
dim i:i=0'临时的指针
for i= WeiS to 1 step-1
if tempnum>=2^(i-1) then
tempnum=tempnum-2^(i-1)
c10to2=c10to2 & "1"
else
c10to2=c10to2 & "0"
end if
next
if mysign=-1 then c10to2="-" & c10to2'加上正负符号
end function

-->
</SCRIPT>
</BODY>
</HTML>

[超级大笨狼]

什么是 UTF-8?
首先 UCS 和 Unicode 只是分配整数给字符的编码表. 现在存在好几种将一串字符表示为一串字节的方法. 最显而易见的两种方法是将 Unicode 文本存储为 2 个 或 4 个字节序列的串. 这两种方法的正式名称分别为 UCS-2 和 UCS-4. 除非另外指定, 否则大多数的字节都是这样的(Bigendian convention). 将一个 ASCII 或 Latin-1 的文件转换成 UCS-2 只需简单地在每个 ASCII 字节前插入 0x00. 如果要转换成 UCS-4, 则必须在每个 ASCII 字节前插入三个 0x00.
在 Unix 下使用 UCS-2 (或 UCS-4) 会导致非常严重的问题. 用这些编码的字符串会包含一些特殊的字符, 比如 '\0' 或 '/', 它们在 文件名和其他 C 库函数参数里都有特别的含义. 另外, 大多数使用 ASCII 文件的 UNIX 下的工具, 如果不进行重大修改是无法读取 16 位的字符的. 基于这些原因, 在文件名, 文本文件, 环境变量等地方, UCS-2 不适合作为 Unicode 的外部编码.
在 ISO 10646-1 Annex R 和 RFC 2279 里定义的 UTF-8 编码没有这些问题. 它是在 Unix 风格的操作系统下使用 Unicode 的明显的方法.
UTF-8 有一下特性:
UCS 字符 U+0000 到 U+007F (ASCII) 被编码为字节 0x00 到 0x7F (ASCII 兼容). 这意味着只包含 7 位 ASCII 字符的文件在 ASCII 和 UTF-8 两种编码方式下是一样的.
所有 >U+007F 的 UCS 字符被编码为一个多个字节的串, 每个字节都有标记位集. 因此, ASCII 字节 (0x00-0x7F) 不可能作为任何其他字符的一部分.
表示非 ASCII 字符的多字节串的第一个字节总是在 0xC0 到 0xFD 的范围里, 并指出这个字符包含多少个字节. 多字节串的其余字节都在 0x80 到 0xBF 范围里. 这使得重新同步非常容易, 并使编码无国界, 且很少受丢失字节的影响.
可以编入所有可能的 231个 UCS 代码
UTF-8 编码字符理论上可以最多到 6 个字节长, 然而 16 位 BMP 字符最多只用到 3 字节长.
Bigendian UCS-4 字节串的排列顺序是预定的.
字节 0xFE 和 0xFF 在 UTF-8 编码中从未用到.
下列字节串用来表示一个字符. 用到哪个串取决于该字符在 Unicode 中的序号.
U-00000000 - U-0000007F:
0xxxxxxx

U-00000080 - U-000007FF:
110xxxxx 10xxxxxx

U-00000800 - U-0000FFFF:
1110xxxx 10xxxxxx 10xxxxxx

U-00010000 - U-001FFFFF:
11110xxx 10xxxxxx 10xxxxxx 10xxxxxx

U-00200000 - U-03FFFFFF:
111110xx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx

U-04000000 - U-7FFFFFFF:
1111110x 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx 10xxxxxx

xxx 的位置由字符编码数的二进制表示的位填入. 越靠右的 x 具有越少的特殊意义. 只用最短的那个足够表达一个字符编码数的多字节串. 注意在多字节串中, 第一个字节的开头"1"的数目就是整个串中字节的数目.
例如: Unicode 字符 U+00A9 = 1010 1001 (版权符号) 在 UTF-8 里的编码为:
11000010 10101001 = 0xC2 0xA9
而字符 U+2260 = 0010 0010 0110 0000 (不等于) 编码为:
11100010 10001001 10100000 = 0xE2 0x89 0xA0
这种编码的官方名字拼写为 UTF-8, 其中 UTF 代表 UCS Transformation Format. 请勿在任何文档中用其他名字 (比如 utf8 或 UTF_8) 来表示 UTF-8, 当然除非你指的是一个变量名而不是这种编码本身.
什么编程语言支持 Unicode?
在大约 1993 年之后开发的大多数现代编程语言都有一个特别的数据类型, 叫做 Unicode/ISO 10646-1 字符. 在 Ada95 中叫 Wide_Character, 在 Java 中叫 char.
ISO C 也详细说明了处理多字节编码和宽字符 (wide characters) 的机制, 1994 年 9 月 Amendment 1 to ISO C 发表时又加入了更多. 这些机制主要是为各类东亚编码而设计的, 它们比处理 UCS 所需的要健壮得多. UTF-8 是 ISO C 标准调用多字节字符串的编码的一个例子, wchar_t 类型可以用来存放 Unicode 字符.

[Mybeautiful]

....up

[sungcong]

mark

[sdxlh007]

建立一个网页,把%B4%F3%B3%A4%BD%F1%D6%F7%CC%E2%C7%FA这些直接输出在页面中就可以了吧

[sky0120]

狼兄强！~

[nhr]

直接用百度帮你转就可以的http://www.baidu.com/s?wd=这里放你的代码。回车。打开以后搜索栏出现的就是你要的汉字！！