ASP函數實現unicode轉gb2312

ASP中自(zì)帶的(de)函數Server.URLEncode可(kě)以方便的(de)對字符串進行編碼，這裏提供一(yī)個函數可(kě)以将unicode編碼轉為(wèi)為(wèi)gb2312編碼

<%
function urldecode(encodestr)
newstr=""
havechar=false
lastchar=""
for i=1 to len(encodestr)
char_c=mid(encodestr,i,1)
if char_c="+" then
newstr=newstr & " "
elseif char_c="%" then
next_1_c=mid(encodestr,i+1,2)
next_1_num=cint("&H" & next_1_c)
if havechar then
havechar=false
newstr=newstr & chr(cint("&H" & lastchar & next_1_c))
else
if abs(next_1_num)<=127 then
newstr=newstr & chr(next_1_num)
else
havechar=true
lastchar=next_1_c
end if
end if
i=i+2
else
newstr=newstr & char_c
end if
next
urldecode=newstr
end function

%>