在本地网页测试ASP连接ACCESS数据库成功,可上传到网上去显示不了,出现HTTP 500 内部服务器错误

Question

下面是在本地连接数据库的代码,请问上传到网上后,其代码应怎样改?
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/myconn2.asp" -->
<%
Dim Recordset2
Dim Recordset2_numRows

Set Recordset2 = Server.CreateObject("ADODB.Recordset")
Recordset2.ActiveConnection = MM_myconn2_STRING
Recordset2.Source = "SELECT * FROM GM"
Recordset2.CursorType = 0
Recordset2.CursorLocation = 2
Recordset2.LockType = 1
Recordset2.Open()

Recordset2_numRows = 0
%>
十分感谢你，问题解决后追分。
捕捉错误信息之后出现：
参数类型不正确，或不在可以接受的范围之内，或与其他参数冲突。

Answer 1

可能是你服务器原因吧

http 500内部服务器错误说明IIS服务器无法解析ASP代码，访问一个静态页面试试是否也出现这个问题，如果访问表态页面没问题，那就要分以下几种情况来分析了：

① 你是否改变过计算机名称。

② 站点所在的文件目录是否自定义了安全属性。

③ 安装了域控制器后是否调整了域策略。如果是其中的一种情况，请一一将改变的参数设置回来看是否解决问题。

Answer 2

用On error Resume Next 捕捉错误信息
在程序容易出错的开始部分添加
On Error Resume Next
在容易出错的程序后加以下语句
If Err Then
Response.write("错误编号："&Err.Number&"<br>错误描述："&Err.Description&"<br>错误源:"&Err.Source)
Err.Clear()
Set Err=Nothing
Response.end()
End if

你那个创建极力集的代码不是很长用，你试下这个方法：
On Error Resume Next
Set Rs=Server.CreateObject("ADODb.recordSet")
Rs.Cursorlocation=3
Rs.open strSql,Conn,2,2,1 'strSql 语句 conn 连接对象
If Err Then
'输入错误信息
Response.write(err.Description)
Err.Clear()
Set Err=Nothing
Else

End if

Answer 3

Connections/myconn2.asp里要更新相应的数据库路径

Answer 4

服务器支持你写的插件吗？看清楚了再说。