菜鸟求助，做了个asp动态网页，上传到虚拟主机结果错误500

shootboot

Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005' [Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序 /join.asp，行 81
求大神帮助

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include virtual="/Connections/mymembers.asp" -->
<!--#include virtual="/Connections/guest.asp" -->
<%
set conn=server.createobject("adodb.connection")
Conn.open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("mymembers.mdb") & ";"
%>
<%
Dim MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If
' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>
<%
' *** Redirect if username exists
MM_flag = "MM_insert"
If (CStr(Request(MM_flag)) <> "") Then
  Dim MM_rsKey
  Dim MM_rsKey_cmd
  
  MM_dupKeyRedirect = "/joinerror.asp"
  MM_dupKeyUsernameValue = CStr(Request.Form("name"))
  Set MM_rsKey_cmd = Server.CreateObject ("ADODB.Command")
  MM_rsKey_cmd.ActiveConnection = MM_mymembers_STRING
  MM_rsKey_cmd.CommandText = "SELECT name FROM join_table WHERE name = ?"
  MM_rsKey_cmd.Prepared = true
  MM_rsKey_cmd.Parameters.Append MM_rsKey_cmd.CreateParameter("param1", 200, 1, 50, MM_dupKeyUsernameValue) ' adVarChar
  Set MM_rsKey = MM_rsKey_cmd.Execute
  If Not MM_rsKey.EOF Or Not MM_rsKey.BOF Then
    ' the username was found - can not add the requested username
    MM_qsChar = "?"
    If (InStr(1, MM_dupKeyRedirect, "?") >= 1) Then MM_qsChar = "&"
    MM_dupKeyRedirect = MM_dupKeyRedirect & MM_qsChar & "requsername=" & MM_dupKeyUsernameValue
    Response.Redirect(MM_dupKeyRedirect)
  End If
  MM_rsKey.Close
End If
%>
<%
If (CStr(Request("MM_insert")) = "form1") Then
  If (Not MM_abortEdit) Then
    ' execute the insert
    Dim MM_editCmd
    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_mymembers_STRING
    MM_editCmd.CommandText = "INSERT INTO join_table (name, id, password, email) VALUES (?, ?, ?, ?)"
    MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 50, Request.Form("name")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 50, Request.Form("id")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 50, Request.Form("password")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 50, Request.Form("email")) ' adVarWChar
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close
    ' append the query string to the redirect URL
    Dim MM_editRedirectUrl
    MM_editRedirectUrl = "/joinok.asp"
    If (Request.QueryString <> "") Then
      If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
        MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
      Else
        MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
      End If
    End If
    Response.Redirect(MM_editRedirectUrl)
  End If
End If
%>
<%
Dim Recordset1
Dim Recordset1_cmd
Dim Recordset1_numRows
Set Recordset1_cmd = Server.CreateObject ("ADODB.Command")
Recordset1_cmd.ActiveConnection = MM_mymembers_STRING
Recordset1_cmd.CommandText = "SELECT * FROM join_table"
Recordset1_cmd.Prepared = true
Set Recordset1 = Recordset1_cmd.Execute
Recordset1_numRows = 0
%>
<%
Dim Recordset2
Dim Recordset2_cmd
Dim Recordset2_numRows
Set Recordset2_cmd = Server.CreateObject ("ADODB.Command")
Recordset2_cmd.ActiveConnection = MM_guest_STRING
Recordset2_cmd.CommandText = "SELECT * FROM join_table"
Recordset2_cmd.Prepared = true
Set Recordset2 = Recordset2_cmd.Execute
Recordset2_numRows = 0
%>

天外飘仙

shootboot 发表于 2012-4-16 19:38
路径改好了，但是现在出现新问题了。。。

Microsoft OLE DB Provider for ODBC Drivers 错误 '800040 ...

自己看一下吧
常见的80004005错误及其解决方法http://www.digg58.com/News/?ID=ChangJianDe-80004005-CuoWuJiQiJieJueFangFa

天外飘仙

把你浏览器的internet属性调一下，将 显示友好的http错误信息 前边的勾去掉 再测试看看

去掉之后就会提示你具体是哪里出错了；可能是你数据库路径写的有问题

shootboot

好吧 按楼上大神的方法试试

shootboot

天外飘仙 发表于 2012-4-16 18:33
把你浏览器的internet属性调一下，将 显示友好的http错误信息 前边的勾去掉 再测试看看

去掉之后就会提 ...

提示如下

Active Server Pages 错误 'ASP 0126' 找不到包含文件 /join.asp，行 2 找不到包含文件 '174.139.97.28/web/Connections/mymembers.asp'。

天外飘仙

shootboot 发表于 2012-4-16 18:54
提示如下

Active Server Pages 错误 'ASP 0126' 找不到包含文件 /join.asp，行 2 找不到包含文件 '17 ...

这个意思  你应该能看明白的，具体是什么错误你自己打开文件 检查一下吧；不行就联系你空间商处理

shootboot

天外飘仙 发表于 2012-4-16 19:34
这个意思  你应该能看明白的，具体是什么错误你自己打开文件 检查一下吧；不行就联系你空间商处理

路径改好了，但是现在出现新问题了。。。

Microsoft OLE DB Provider for ODBC Drivers 错误 '80004005' [Microsoft][ODBC 驱动程序管理器] 未发现数据源名称并且未指定默认驱动程序 /join.asp，行 81