做个人网站的时候下了个代码,但是用的时候老出问题,后来发现是这个加密的文件,请问有高手能帮忙解决吗?
<%
dim id,url,page
id=trim(request("id"))
if id="" then
response.redirect"index.asp"
end if
url=stealurl&"geshou/"&id&".htm"
page= getHTTPPage(Url)
page=Replace(page,"/image/","images/")
page=Replace(page,"/play/","play.asp?id=")
page=Replace(page,"/zhuanji/","zhuanji.asp?id=")
page=Replace(page,"/geshou/","geshou.asp?id=")
page=Replace(page,"/zj/","zj.asp?id=")
page=Replace(page,"/list/","list.asp?id=")
page=Replace(page,".htm","")
page=Replace(page,"http://u.7town.com/s/160_450/jgl2/indexl?uid=16111&a=&b=&c=&d=&e=&f=","ads/160x450.asp")
page=Replace(page,"http://wwww.st020.cn/search.asp","search.asp")
str1=instr(1,page,"彩信频道")-873
str2=instr(1,page,"合辑其他")+392
cur1=mid(page,str1,str2-str1)
page=Replace(page,cur1,"")
str7=instr(1,page,"</HTML>")-1080
str8=instr(1,page,"http://js.users.51.la/93025.js")+0
cur4=mid(page,str7,str8-str7)
page=Replace(page,cur4,"")
Response.write page
%>
參考答案:这个不是加密的,只不过是用了字符替换。
其实做一个网站,比修改一个网站要简单的多。
建议还是自己做的比较好。