' VBScript 文件
'使用vbscript来进行解码或加密
'use this vb script to encode & decode the URL
Function str2asc(strstr) '将字符变成16进制的ASCII值
str2asc = hex(asc(strstr)) 
End Function 
Function asc2str(ascasc) '将ASCII值变成字符
asc2str = chr(ascasc) 
End Function