我被迫使用经典的 ASP (VBScript) 和 MS Access 数据库迁移一个在远程 Windows 服务器上运行多年的旧网站。
新的托管公司 (123-reg) 在他们的 Windows 服务器上不支持 MS Access，所以我现在使用 MySQL。我在其他网站上成功使用 MySQL，但总是使用 PHP 而不是经典的 ASP，所以我以前从未从 ASP 连接到 MySQL 数据库。
该网站有数百页，我希望我所要做的就是更改连接字符串。但是我现在收到 500 错误
80004005|[Microsoft] ODBC_Driver_Manager]_Data_source_name_not_found_and_no_default_driver_specified
这让我很难过。
我试过了
set Conn=server.createobject("ADODB.CONNECTION")
set rs = server.createobject("ADODB.Recordset")
conn.open "DRIVER={MySQL ODBC 3.51 Driver}; SERVER=" & servername & "; DATABASE=" & database & "; UID=" & username & ";PASSWORD=" & pword & "; OPTION=3;"
我也试过：
conn.open "DRIVER={SQL Server};SERVER=" & servername & "\SQLEXPRESS;DATABASE=" & database & ";UID=" & username & ";PWD=" & pword"
conn.open "DRIVER={MySQL ODBC 5.1 Driver}; SERVER=" & servername & "; DATABASE=" & database & "; UID=" & username & ";PASSWORD=" & pword & "; OPTION=3;charset=utf8;"
并且仍然得到同样的错误。
我在互联网和这个网站上搜索过，但是每当我找到信息时，它都假定我使用的是我自己的服务器，而我不是。页面：https : //support.microsoft.com/en-gb/kb/306345建议我对服务器注册表进行更改，这当然我无法做到，无论如何我都觉得很难接受像 123-reg 一样大的公司必须更改其服务器上的内容才能让我连接到数据库。
因此，我得出结论，我的连接编码有问题（可能很简单）。
我确实用 123-reg 提出了一张票，但他们告诉我这是一个编码问题，他们对此没有帮助，这加强了我的理论。
对于这方面的任何帮助，我将不胜感激。我现在计划用 PHP 重新编写该站点，我知道我可以使该站点运行良好，但是由于有数百个页面要编码，因此我需要几个月的时间，我正在寻找快速修复程序以使站点上线再次使用当前页面，同时我用 PHP 重写整个站点。
非常感谢
托格
更新：1 月 11 日 123-reg 回复我说 ODBC 版本是 5.1.8。我已经更改了连接字符串，但仍然收到 500 错误，是：
HTTP/1.1 500 内部服务器错误缓存控制：私有内容长度：250 内容类型：text/html 服务器：Microsoft-IIS/7.5 Set-Cookie：ASPSESSIONIDCCQSTSCA=FLAJJCCDFENAOEMMCGFGNPCF；path=/ X-Powered-By: ASP.NET 日期: Wed, 11 Jan 2017 14:46:07 GMT Connection: close 处理 URL 时服务器发生错误
没有行号，也没有错误描述。
我写了一个简单的页面来测试连接，我的完整代码是：
<%@ Language=VBScript %>
<%
option explicit
Response.Buffer = true
'=============================
'database connection variables
dim servername, username, pword, database
servername = "cust-mysql-123-19" 'The name of the Server
username = "atourist" 'The username for the database
pword = "redacted for this post" 'The password for the database
database = "atourist" 'The database to use
'============================
dim rs
dim strSQL
dim conn
dim ds
dim county
dim numrec
county="Grampian"
%>
<html>
<head>
<title>Test Page</title>]
</head>
<body>
<%
' connect to database and retrieve recordset
set conn=server.createobject("ADODB.CONNECTION")
set rs = server.createobject("ADODB.Recordset")
strSQL = "select * from ukgh where county='" & county & "' ORDER by random ASC"
conn.open "DRIVER={MySQL ODBC 5.1.8. Driver}; SERVER=" & servername & "; DATABASE=" & database & "; UID=" & username & ";PASSWORD=" & pword & "; OPTION=3;"
set rs = conn.Execute(strSQL)
'===============================
ds=rs.GetRows()
rs.close
conn.close
set rs = nothing
set conn = nothing
'display records
for Numrec =LBound(ds, 2) To UBound(ds, 2)
response.write DS(1, numrec) & ", " & DS(2, numrec) & "<br />"
Next
%>
</body>
</html>
<%
response.end
%>
| 归档时间： |
|
| 查看次数： |
7373 次 |
| 最近记录： |