如果只是短信内容不包括其他内容的话
首先将这个字符串赋值给一个变量
zifu = 要解密的字符串
jiema = ""'初始化解码内容
changdu = len(zifu)'得到长度
for i = 1 to changdu
linshi = AscW(Mid(zifu, i, 1))
If Abs(linshi) < 127 Then
linshi = "00" & Hex(linshi)
Else
linshi = Hex(linshi)
End If
jiema = jiema&linshi
next
Response.write(jiema)'这里的jiema就是解密后的字符串