关于这段asp加密代码谁帮下谢谢

<%@ LANGUAGE = VBScript.Encode %>


<html>
<head>
<title>863易做图信息采集</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="admin_style.css">
</head>
<BODY bgcolor="#FFCC00" leftMargin=0 topMargin=0>
<table cellpadding="5" cellspacing="1"><tr><td style="line-height:200%;">
<%#@~^SREAAA==@#@&s;mDkWPVnY_YOwhlLnvCYD2jMV#@#@&7q6P&/HEssvCOYaiD^#xPME+~6MPuYD2`Ds{Jfsl^/yJ,K4+@#@&7iM+DuYDwnmLn'r^wls/nyr@#@&di36bY~o!xmOrKx@#@&i3N~&0@#@&d;/O'ro8 2F+E@#@&d1GxkYP:rh+&xD+.\Cs{F+!@#@&dE设定时间间隔@#@&7E如果下载时间很慢，就写成F T秒@#@&d^WdDPs"+kWV7+{X!@#@&7B解析域名超时时间B秒@#@&71WxkOP^ZWUnmD'8!T@#@&7E连接站点超时时间~秒@#@&i^W/O~^?+U[{FT!@#@&iB发送数据请求超时时间S秒@#@&imW/D~V"+^+b\nxy!!@#@&dE下载数据超时时间~秒@#@&79ksP_YOw@#@&i?nY,uYDwxdD\n.cm.+mOW8N+1Y`rHUpHd ?D-nM(HduK:nJ*@#@&d4YDw /nO:kh+K;YkPs]/Ws-eq!ZTBV/Kx+mDe8T!Z~s?x[M8!!ZSV"+mr-+CFZ!T@#@&7_YOwcGwx~EV2KES_YOw`.^~omVk+@#@&d}UPAD.WMP]nkE:~16Y@#@&7CDYaRj+U[v#@#@&ij+^+^O,Zldn,tOYa M+C9XUYlD+@#@&diZC/PT@#@&ddi!+DCYD2KlT+{JysCsk+yJ@#@&did.nkwWUdRDbOPE@!0KxY,mKsWM'.+9@*E'_YYaiD^[J@!&WWY@*对象初始化失败@!8D@*E@#@&7di3DMR/slD@#@&id7/O,tODw{xWDtbUo@#@&7di2arDPs!UmDkW@#@&diZm/nPq@#@&d7dVnY_YO2hlonxr^ol^d^E@#@&iddM+k2W/nRqDrOPJ@!WWYP1GsWM'M+[@*E'_YOw`.VLJ@!&6WxO@*域名分析超时J连接站点超时@!8D@*E@#@&7idADDcZ^nlM@#@&diddnDPtDOw{xWD4rxT@#@&d7d3abY~s!UmDkGU@#@&d7/m/nPy@#@&d7iMYCDYaKlT+xJfsCsk+^r@#@&iddMndwKxk+ .rD+~J@!WWY~^KVW.xM+[@*r'_YOajMV[r@!JWWY@*发送数据请求超时~是不是服务器出故障了@!4.@*r@#@&i7dADDc/s+mD@#@&7d7dY~tDOw{xGO4kxL@#@&d7dAabY~wEmYbW@#@&id/lk+~f@#@&di7MYCDO2nmo'E^oC^/n^r@#@&id7./wGUk+ MrD+~r@!6WxDP1GVKDxDN@*ELCYD2jMV[r@!&0KxD@*数据下载超时&等待反馈时间超时@!8.@*J@#@&i7dAD. ;V+C.@#@&7didY~4YDw'WD4ko@#@&id73XkY,oEmYbGU@#@&diZC/n~W@#@&di7B下载成功@#@&73NPjn^+^Y@#@&iqW,tDYwc/DCY!/@!@*y!T~,YtU@#@&ddE!nY_YDwKlLn{Jysms/^E@#@&ddv./2WdRMkD+Pr@!6GxDP^W^W.xM+N@*E[_YYai.VLJ@!zWWUO@*下载失败J'2M.R9+d^MkwOrKx'J@!8M@*E@#@&id2MDc/Vl.@#

补充：解密  我有完整的  这个不是很完整 希望能帮下我 我把分全给他

答案：Function GetHttpPage(HttpUrl)
If IsNull(HttpUrl)=True Or HttpUrl="$False$" Then
GetHttpPage="$False$"
Exit Function
End If
Cset="gb2312"
const TimeInterval=120
'设定时间间隔
'如果下载时间很慢，就写成120秒
const lResolve=50
'解析域名超时时间,秒
const lConnect=100
'连接站点超时时间,秒
const lSend=100
'发送数据请求超时时间,秒
const lReceive=200
'下载数据超时时间,秒
Dim Http
Set Http=server.createobject("MSXML2

………后续代码
答案补充代码不完整，后面的你把完整的代码发给我，我可以帮你解密。
gt6tftyig
你是想让大家帮你解密还查看里边的错误！
 85hjfvjhkh

上一个：asp 怎样插入一段代码
下一个：asp代码运行不了，报错“HTTP 500 - 内部服务器错误”，怎么解决啊？

更多图片编程知识:

关于这段asp加密代码 谁帮下 谢谢

关于这段asp加密代码谁帮下谢谢