server.urlencode对应自定义UrlDecode解码函数

2018/12/3 18:57:471222 阅读

    BigC=""
    Response.Write server.urlencode(BigC)
    BigC=server.urlencode(BigC)
    Response.Write UrlDecode(BigC)
    
    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
    

    下一条:.NET Framework 各个版本的关系

    上一条:jquery 属性操作

枣庄西桥网络微信小程序微信小程序

枣庄西桥网络手机站二维码扫描手机浏览