<%
On Error Resume Next
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
Response.AddHeader "Pragma", "No-Cache"
Response.Charset ="GB2312"
temp_url = "%77%77%77%2e%66%6f%72%61%73%70%2e%63%6e"'这里没有HTTp://
temp_url_array = Split(temp_url,"%")
For i = 1 To UBound(temp_url_array)
end_code = end_code& Chr(CLng("&H"&temp_url_array(i)))
Next
response.write end_code '解密后输出www.ynpxrz.com
%>
本文转自 卓行天下 51CTO博客，原文链接：http://blog.51cto.com/9951038/1745934，如需转载请自行联系原作者
