如何用vbscipt实现javascript中的escape()和unescape()函数？

[sbnth]

[tripofdream]

escape():
server.urlencode()

upescape:
Function Decode(str)
x = InStr(str,"%")
Do While x > 0
Decode = Decode & Mid(str,1,x-1)
If LCase(Mid(str,x+1,1)) = "u" Then
'Response.Write "CHRW: " & "&H" & Mid(str,x+2,4) & "<br>"
Decode = Decode & ChrW(CLng("&H" & Mid(str,x+2,4)))
str = Mid(str,x+6)
Else
'Response.Write "CHR: " & "&H" & Mid(str,x+1,2) & "<br>"
Decode = Decode & Chr(CLng("&H" & Mid(str,x+1,2)))
str = Mid(str,x+3)
End If
x = InStr(str,"%")
Loop
Decode = Decode & str
End Function

[hydnoahark]

如果系统支持VBS的话，应该一定支持Javascript吧，在Javascript中用函数封装escape/unescape再直接在VBS调用不就行了