数据库访问问题~~
[Microsoft][ODBC Microsoft Access Driver]常见错误 不能打开注册表关键字 'Temporary (volatile) Jet DSN for process 0x760 Thread 0x808 DBC 0x1495b0c Jet'。
下面是代码
dim Conn
dim dbstr
'on error resume next
Set Conn=Server.CreateObject("ADODB.Connection")
'if Err.number <> 0 then
' Response.Redirect "err.asp?msg="&Err.Description
'end if
dbstr = "DBQ="&Server.MapPath("cs_manage.mdb")&"; DefaultDir=; DRIVER={Microsoft Access Driver (*.mdb)};"
Conn.Open dbstr '这里出现问题
'if Err.number <> 0 then
' Response.Redirect "err.asp?msg="&Err.Description '这里显示的错误原因
'end if
怎样出现的：
wwwroot下面文件全部丢失，从备份恢复後，就出现这种问题了，不可以访问数据库。
备份可以正常运行（在别的服务器上）。
是否wwwroot下面有什么重要东西，或者是其他的错误。
请大侠帮忙
问题点数：100、回复次数：24Top
1 楼julyclyde（Java初学（大学不教只好自己学））回复于 2002-01-01 14:18:27 得分 10
数据库文件在吗？Top
2 楼xiaoshi（累）回复于 2002-01-01 14:21:27 得分 10
数据库路径不对
检查一下 Top
3 楼dot99（又来混CSDN来了）回复于 2002-01-01 15:05:24 得分 0
对的阿
等我用DSN试试Top
4 楼dot99（又来混CSDN来了）回复于 2002-01-06 12:44:03 得分 0
DSN也不可以
系统数据源也不可以Top
5 楼joise（卓一思_我爱C++&.Net）回复于 2002-01-06 14:38:03 得分 10
dbstr = "DBQ="&Server.MapPath("cs_manage.mdb")&"; DefaultDir=; DRIVER={Microsoft Access Driver (*.mdb)};"
改成dbstr="DRIVER={Microsoft Access Driver (*.mdb)};dbq="&Server.MapPath("./cs_manage.mdb") 试试
Top
6 楼bian8021（河流）回复于 2002-01-06 19:50:04 得分 10
我以前经常遇到这样的问题，只要把机器重启一遍。或者wwwroot目录下
有什么错误的数据库文件，把它删掉就可以。Top
7 楼chy018（pillar）回复于 2002-01-06 21:43:07 得分 10
你是不是用得 2000 得库呀？转成97的试试.也许可以。
access 2000 里的数据库转化工具里有到早期版本就是转成97的库。Top
8 楼cosix（泥人）回复于 2002-01-07 02:27:02 得分 10
会不会是目录写权限的原因？Top
9 楼dot99（又来混CSDN来了）回复于 2002-01-07 17:20:49 得分 0
我照上4贴的去做了，可是还是不行阿
错误一样
唉呀，只有重装IIS了Top
10 楼dot99（又来混CSDN来了）回复于 2002-01-07 20:04:18 得分 0
重装还是不行阿
哪位帮忙解决一下
100分送上
我写的这个东西可以在其他的IIS上面运行！
在我的机子上就不行
不要叫我重装2k阿～～～Top
11 楼cpplus（技术就是要坚持）回复于 2002-01-08 09:14:50 得分 10
是不是少一个什么ADO的驱动之类的东西，装一个SQL SERVER（其实只是要里面的DLL）
然后看看行吗~~Top
12 楼dot99（又来混CSDN来了）回复于 2002-01-10 14:52:06 得分 0
hehe
我重装系统了
我这个悲哀的人啊
现在有出了个问题啊
服务器上，本地服务器上都出现了这个问题
===list.asp===
<!-- #include file="conn.asp" -->
<%
dim Rs
dim ssql
Set Rs=Server.CreateObject("ADODB.RecordSet")
dim sect, title, count, mode
count = Request.QueryString("count")
sect = Request.QueryString("sect")
mode = Request.QueryString("mode")
if mode = "" then
mode = "date"
end if
SELECT CASE sect
CASE 1
title = "CS新闻"
ssql = "SELECT * FROM arti WHERE section = "§&" ORDER BY "&mode&" DESC"
CASE 2
title = "CS相关下载"
ssql = "SELECT * FROM arti WHERE section = "§&" ORDER BY "&mode&" DESC"
CASE 3
title = "CS技术研究"
ssql = "SELECT * FROM arti WHERE section = "§&" ORDER BY "&mode&" DESC"
CASE 4
title = "CS战队"
ssql = "SELECT * FROM arti WHERE section = 41 OR section = 42 ORDER BY "&mode&" DESC"
CASE ELSE
title = "所有文章"
ssql = "SELECT * FROM arti ORDER BY "&mode&" DESC"
End SELECT
Rs.Open ssql, conn, 1, 1
if Request.QueryString("count") = "" and not Rs.EOF then
%>
<HTML>
<HEAD>
<LINK rel="stylesheet" href="style.css">
</HEAD>
<BODY>
<p align="center">
<img src="images/cs_banner.jpg" align = "center">
</p>
<p align="center">
<font color="#00cc00" size ="4"><b><%=title%></b></font>
</p>
共有<%=Rs.RecordCount%>条记录。
<table width="770" cellspacing = "2" cellpadding = "2" border="0" align = "center">
<tr align = "center">
<td width="30">ID</td><td width = "120">标题</td><td width = "100">作者</td><td width = "150">来源</td><td>相关连接</td>
</tr>
<tr>
<td align="center" colspan=5>
<hr size = 1 noshade>
</td>
</tr>
<%while NOT Rs.EOF %>
<tr align="center">
<td><%=Rs("id")%></td>
<td><a href="disp.asp?id=<%=Rs("id")%>" target="_blank"><%=Rs("title")%></a></td>
<td><%=Rs("author")%></td>
<td><%=Rs("source")%></td>
<td><a href="<%=Rs("url")%>"><%=Rs("url")%></td>
</tr>
<%Rs.MoveNext%>
<%Wend%>
</table>
<%else%>
liststr = "<table border = '0' align = 'center' width='100%'><tr><td align = 'left'>"
<%
do while count > 0
if not Rs.EOF then
%>
liststr = liststr+"<a href='disp.asp?id=<%=Rs("id")%>'target='_blank'><%=Rs("title")%></a><font size = 1>(<%=Rs("click")%>)</font><br>"
<%
Rs.MoveNext
end if
count = count - 1
loop
%>
liststr = liststr+"</td></tr></table>"
document.write liststr
<%
end if
if Request.QueryString("count") = "" then%>
<p><p>
<!-- #include file="copyright.htm" -->
</BODY>
</HTML>
<%end if%>
<%
Rs.Close
Set Rs = nothing
%>
<!-- #include file="closeconn.asp" -->
===这个可以访问数据库=======================================
===disp.asp===
<!-- #include file="conn.asp" -->
<%
on error resume next
dim Rs, ssql
ssql = "SELECT author, source, url, content, click FROM arti WHERE id = "&Request.QueryString("id")
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open ssql, Conn, 1, 3
if Err.number <> 0 then
Response.Redirect "err.asp?msg="&Err.Description
end if
if Rs.EOF then
Rs.Close
Set Rs = nothing
%>
<!-- #include file = "closeconn.asp" -->
<%
Response.Redirect "err.asp?msg=页面不存在！"
dim click
click = Rs("click") + 1
Rs.Update "click", click
%>
<HTML>
<HEAD>TITLE>酷谷CS专区</title>
<LINK rel="stylesheet" href="style.css">
</HEAD>
<BODY>
<p align = "center">
<img src="images/cs_banner.jpg">
</p>
<table align = "center" border = "1" cellspacing ="0" cellpadding="0" bordercolorlight="gray" bordercolordark="black">
<tr bordercolor="black" >
<td height = "16" align = "center">
<font color="#00cc00"><b><%= Rs("title")%></b></font>
</td>
<td> 被阅<%=Rs("click")%>次<td>
</tr>
</table>
<p>
<blockquote><blockquote>
作者：<%= Rs("author") %><br>
来源：<%= Rs("source") %><br>
相关链接：<a href="<%=Rs("url")%>" target="_blank"><%=Rs("url")%></a>
</blockquote></blockquote>
<%= Rs("content")%>
</BODY>
</HTML>
<%
Rs.Close
Set Rs = nothing
%>
<!-- #include file="closeconn.asp" -->
===这个不可以访问数据库======================================
===closeconn.asp===
<%
'on error resume next
Conn.Close '错误类型：Microsoft VBScript 编译器错误 (0x800A03F6)
'if Err.number <> 0 then
' Response.Redirect "err.asp?msg="&Err.Description
'end if
Set Conn = nothing
'if Err.number <> 0 then
' Response.Redirect "err.asp?msg="&Err.Description
'end if
%>
===就在这里报错
而且用Err抓不到错误描述(Err.number 为 0)
一步一步(一行行的去掉和添加:<）的测试下来
是disp.asp里面的
Rs有问题
可是不管在Server.CreateObject还是在Rs.Open
后面用Err都抓不出错误
更奇怪的是list.asp又完全可以访问数据库
并且正常！
我的天
救我，我加到100分阿Top
13 楼dot99（又来混CSDN来了）回复于 2002-01-10 14:54:22 得分 0
还有
头贴出现的问题我重装就ok了
分最后一次给：）Top
14 楼xiaoshi（累）回复于 2002-01-10 15:22:54 得分 10
到底现在是什么错误啊Top
15 楼dot99（又来混CSDN来了）回复于 2002-01-10 15:26:46 得分 0
第二个错误Top
16 楼BrightEye（男儿当自强，靠别人不如靠自己）回复于 2002-01-10 15:34:21 得分 10
Strongly recommand gz!我的2K server上也经常出现这个问题.而且好象是随即性的.有时一天好多次,有时几天一次.在nt server下却正常.这个问题也捆饶了我好长时间了.我跟dot99()一样呀,每次都是conn.open connstr行出错.那位高手给出解决方案,我也可以加分哦.Top
17 楼dot99（又来混CSDN来了）回复于 2002-01-10 15:51:43 得分 0
而且
那个disp前天工作正常
在这几天我没有动过代码
Top
18 楼dot99（又来混CSDN来了）回复于 2002-01-10 19:43:29 得分 0
顶Top
19 楼dot99（又来混CSDN来了）回复于 2002-01-10 22:31:22 得分 0
忘记了
这种情况是在打了windows下面所有补丁office补丁后出现的Top
20 楼BrightEye（男儿当自强，靠别人不如靠自己）回复于 2002-01-11 13:22:04 得分 10
谁能解决,我再加100分.Top
21 楼dot99（又来混CSDN来了）回复于 2002-01-11 17:33:38 得分 0
对不起，是我的错，由于粗心让大家看了如此长的代码。。。
道歉的分是一定要给的
但是
我再加50分请高手解决第一个问题
此贴共150分
if Rs.EOF then
Rs.Close
Set Rs = nothing
%>
<!-- #include file = "closeconn.asp" -->
<%
Response.Redirect "err.asp?msg=页面不存在！"
END IF '由于粗心没有写完，对不起大家50分拿来大家平分，算我道歉
dim click
click = Rs("click") + 1
Rs.Update "click", click
Top
22 楼KnowLittle（人傻不要紧，只要肯学习。）回复于 2002-01-11 19:31:09 得分 0
究竟什么问题？不是都解决了吗？
我昨天也通过冲撞解决了一个非常奇怪的问题，是2000冲撞Top
23 楼dot99（又来混CSDN来了）回复于 2002-01-11 20:46:34 得分 0
第一个问题是我重装2000后解决的
可是每次遇到不可能都冲撞阿
我的硬盘又小 Ghost下来都没有地方放Top
24 楼dot99（又来混CSDN来了）回复于 2002-01-13 20:56:24 得分 0
定Top
