ASP+ACCESS无法显示网页
我编写ASP连接ACCESS,在DW下连接没问题,在IIS下显示不连接数据库的ASP也没问题
但是在IIS上用ASP+ACCESS+IIS就出问题了,请高手指点一下。
问题和源代码如下:
无法显示网页
试图访问的网页出现问题,无法显示。
--------------------------------------------------------------------------------
请尝试执行下列操作:
单击刷新按钮,或稍后重试。
打开 localhost 主页,然后查找与所需信息相关的链接。
HTTP 错误 500.100 - 内部服务器错误 - ASP 错误
Internet 信息服务
--------------------------------------------------------------------------------
技术信息(用于支持人员)
错误类型:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver]常见错误 不能打开注册表关键字 'Temporary (volatile) Jet DSN for process 0xe8c Thread 0xf6c DBC 0x26d0064 Jet'。
/suiyan/Default.asp, 第 9 行
浏览器类型:
Mozilla/4.0 (compatible; MSIE 7.0; Windows NT 5.1; .NET CLR 2.0.50727; MAXTHON 2.0)
网页:
GET /suiyan/Default.asp
时间:
2008年8月5日, 16:57:17
详细信息:
Microsoft 支持
源代码:
-------------------------------------------------------------------
1. Connections/product.asp
-------------------------------------------------------------------
<%
' FileName="Connection_ado_conn_string.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_product_STRING
MM_product_STRING = "Driver={Microsoft Access Driver (*.mdb)};DBQ=C:\Inetpub\wwwroot\suiyan\database\db.mdb"
%>
------------------------------------------------------------------
2.default.asp
------------------------------------------------------------------
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="Connections/product.asp" -->
<%
Dim p1
Dim p1_cmd
Dim p1_numRows
Set p1_cmd = Server.CreateObject ("ADODB.Command")
p1_cmd.ActiveConnection = MM_product_STRING //问题信息指示这里出错
p1_cmd.CommandText = "SELECT * FROM product"
p1_cmd.Prepared = true
Set p1 = p1_cmd.Execute
p1_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = 10
Repeat1__index = 0
p1_numRows = p1_numRows + Repeat1__numRows
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>无标题文档</title>
</head>
<body>
</body>
</html>
<%
p1.Close()
Set p1 = Nothing
%>
------------------------------------------------------------------