<%
function URLDecode(enStr)
dim deStr,strSpecial
dim c,i,v
 deStr=""
 strSpecial="!""#$%&'()*+,.-_/:;<=>?@[]^`{|}~%"
 for i=1 to len(enStr)
 c=Mid(enStr,i,1)
 if c="%" then
 v=eval("&h"+Mid(enStr,i+1,2))
 if inStr(strSpecial,chr(v))>0 then
 deStr=deStr&chr(v)
 i=i+2
 else
 v=eval("&h"+ Mid(enStr,i+1,2) + Mid(enStr,i+4,2))
 deStr=deStr & chr(v)
 i=i+5
 end if
 else
 if c="+" then
 deStr=deStr&" "
 else
 deStr=deStr&c
 end if
 end if
 next
 URLDecode=deStr
end function

dim str
str = "http://file1.bbs.zcom.com%2F2%2F6%2F2%2F2%2F4%2F6%2F5%2F4%2F1143121202.mp3"
response.write URLDecode(str)
%>

上一篇：修改字段的类型 修改列名
下一篇：SQL Server各种日期计算方法