asp代码报错怎么修改
无法显示网页 试图访问的网页出现问题，无法显示。
--------------------------------------------------------------------------------
请尝试执行下列操作：
单击刷新按钮，或稍后重试。
打开 localhost 主页，然后查找与所需信息相关的链接。
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务
--------------------------------------------------------------------------------
技术信息（用于支持人员）
错误类型：
ADODB.Field (0x800A0BCD)
BOF 或 EOF 中有一个是“真”，或者当前的记录已被删除，所需的操作要求一个当前的记录。
/readdbfile.asp, 第 23 行
浏览器类型：
Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; SV1; QQDownload 718; CIBA; .NET CLR 2.0.50727; .NET CLR 3.0.04506.648; .NET CLR 3.5.21022)
网页：
GET /readdbfile.asp
时间：
2012年12月8日, 11:25:28
详细信息：
Microsoft 支持
代码怎么修改
<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/connFile.asp" -->
<%
Dim Rs1__MMColParam
Rs1__MMColParam = "1"
If (Request.QueryString("FileID") <> "") Then
Rs1__MMColParam = Request.QueryString("FileID")
End If
%>
<%
Dim Rs1
Dim Rs1_numRows
Set Rs1 = Server.CreateObject("ADODB.Recordset")
Rs1.ActiveConnection = MM_connFile_STRING
Rs1.Source = "SELECT FileData, FileMIME FROM FileInfo WHERE ID = " + Replace(Rs1__MMColParam, "'", "''") + ""
Rs1.CursorType = 0
Rs1.CursorLocation = 2
Rs1.LockType = 1
Rs1.Open()
Rs1_numRows = 0
%>
<%
Response.ContentType=Rs1.Fields.Item("FileMIME").Value
Response.BinaryWrite Rs1.Fields.Item("FileData").Value
Rs1.Close()
Set Rs1 = Nothing
%>
