上传附件显示服务器i o错误,急~为什么我的论坛一上传附件就出现这个了?怎么解决，高手进....

该楼层疑似违规已被系统折叠 隐藏此楼查看此楼

Option Explicit

Const lngMaxFormBytes = 200

Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP

Dim strMethod, lngPos, datNow, strQueryString, strURL

If Response.Buffer Then

Response.Clear

Response.Status = "500 Internal Server Error"

Response.ContentType = "text/html"

Response.Expires = 0

End If

Set objASPError = Server.GetLastError

%>

HTML PUBLIC "-//W3C//DTD HTML 4.01//EN" "http://www.w3.org/TR/html4/strict.dtd">

无法显示此页

BODY { font: 9pt/12pt 宋体 }

H1 { font: 12pt/15pt 宋体 }

H2 { font: 9pt/12pt 宋体 }

A:link { color: red }

A:visited { color: maroon }

无法显示此页 您要访问的页面存在问题，因此无法显示。 请尝试以下操作： 请与网站管理员联系，通知他们此 URL 地址出现了该错误。 HTTP 500.100 - 内部服务器错误：ASP 错误。 Internet 信息服务 技术信息(为技术支持人员提供) 错误类型： Dim bakCodepage on error resume next bakCodepage = Session.Codepage Session.Codepage = 1252 on error goto 0 Response.Write Server.HTMLEncode(objASPError.Category) If objASPError.ASPCode > "" Then Response.Write Server.HTMLEncode(", " & objASPError.ASPCode) Response.Write Server.HTMLEncode(" (0x" & Hex(objASPError.Number) & ")" ) & " " If objASPError.ASPDescription > "" Then Response.Write Server.HTMLEncode(objASPError.ASPDescription) & " " elseIf (objASPError.Description > "") Then Response.Write Server.HTMLEncode(objASPError.Description) & " " end if blnErrorWritten = False ' Only show the Source if it is available and the request is from the same machine as IIS If objASPError.Source > "" Then strServername = LCase(Request.ServerVariables("SERVER_NAME")) strServerIP = Request.ServerVariables("LOCAL_ADDR") strRemoteIP =  Request.ServerVariables("REMOTE_ADDR") If (strServerIP = strRemoteIP) And objASPError.File <> "?" Then Response.Write Server.HTMLEncode(objASPError.File) If objASPError.Line > 0 Then Response.Write ", line " & objASPError.Line If objASPError.Column > 0 Then Response.Write ", column " & objASPError.Column Response.Write " " Response.Write "" Response.Write Server.HTMLEncode(objASPError.Source) & " " If objASPError.Column > 0 Then Response.Write String((objASPError.Column - 1), "-") & "^ " Response.Write "" blnErrorWritten = True End If End If If Not blnErrorWritten And objASPError.File <> "?" Then Response.Write "" & Server.HTMLEncode(  objASPError.File) If objASPError.Line > 0 Then Response.Write Server.HTMLEncode(", line " & objASPError.Line) If objASPError.Column > 0 Then Response.Write ", column " & objASPError.Column