我的网站因为生成了一个ldb文件而不能访问了

jelllove 软件架构师  2008-11-21 03:54:36
我一开始打开自己的网站,打开到一半的时候,这个时候我的mdb数据库连接还没有关闭,然后我就把浏览器直接关了,关了之后就打不开自己的网站,上FTP服务器看一下,原来是有一个ldb文件,结果这个文件也删除不了.现在不知道怎么办了!
来个高手指点一下,我看了不好网上的回答,都说是因为独占引起的,但也没有什么好的代码.如果有人打开我的网页,开到一半就关了,那这个ldb不就不会自己删除,那别人就不能访问我的网站,这个有什么好的解决方法.
在线等
...全文
479 点赞 收藏 25
写回复
25 条回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复
hebhd 2008-11-28
qq 1608011 找我帮你看一下
回复
wcwtitxu 2008-11-27
不建议所有查询都

.CursorType = 3
.LockType = 3



回复
jelllove 2008-11-27
some body help me
回复
jelllove 2008-11-27
敢问高人
将以下的值设置成
.CursorType = 1
.LockType = 1
好像也没有用啊
我要怎么做啊


我现在是把连接数据,打开数据集分开的,如果放在一个函数内完成会不会好一点?
回复
jelllove 2008-11-27
敢问高人
将以下的值设置成
.CursorType = 1
.LockType = 1
好像也没有用啊
我要怎么做啊


我现在是把连接数据,打开数据集分开的,如果放在一个函数内完成会不会好一点?
回复
linfeng332 2008-11-27
我的站偶尔也会这样,正在查找原因
回复
jelllove 2008-11-26
怎么还是没人来回答啊
回复
jelllove 2008-11-22
................no body help me!!!
回复
jelllove 2008-11-21
...........还是不能解决问题啊!
我的网站www.jelllove.com,有时候能上有时候又上不去。。。。。。。。。
回复
hebhd 2008-11-21
哈哈。你还要取记录数呀...

.CursorType = 1
.LockType = 1


那就只能用你原来的了。不过不能更新数据.

所以建议你还是弄清楚 cursortype 及 locktype 的意思.

下班了嘿嘿....
回复
jelllove 2008-11-21
用nTopAdCount时无法得到当前的记录个数!!!
回复
jelllove 2008-11-21

Dim adconn : set adconn = CreatConn(1, "jell_data_all.mdb", "", "", "")

'response write a ad script by db
Dim rsTopAd : set rsTopAd = GetRecordSet(adconn, "select * from text_ad")

Dim nTopAdCount : nTopAdCount = rsTopAd.RecordCount


回复
hebhd 2008-11-21
偶晕....

你里面已经有一个 GetRecordSet

将里面的换成我写的....

晕死!

回复
jelllove 2008-11-21

<%
Function CreatConn(ByVal strDB, ByVal strServer, ByVal strUid, ByVal strPwd)
On Error Resume Next

Dim TempStr : TempStr = ""

Dim tDb : If Instr(strDB,":")>0 Then : tDb = strDB : Else : tDb = Server.MapPath(strDB) : End If
TempStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&tDb&";Jet OLEDB:Database Password="&strPwd&";"

Dim objConn :Set objConn = nothing
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open TempStr
If Err.number <> 0 Then
objConn.Close
Set objConn = Nothing
End If
Set CreatConn = objConn
End Function

Function CloseConn(ByVal dbConn)
On Error Resume Next
dbConn.Close
Set dbConn = Nothing
End Function

Function GetRecordSet(ByVal dbConn, ByVal strSQL)
On Error Resume Next
Dim rstRecordList
Set rstRecordList=Server.CreateObject("adodb.recordset")
With rstRecordList
.ActiveConnection =dbConn
.CursorType = 3
.LockType = 3
.Source = strSQL
.Open
If Err.number <> 0 Then
.Close
Set rstRecordList = Nothing
End If
End With
Set GetRecordSet = rstRecordList
End Function


Function CloseRecordSet(ByVal Records)
On Error Resume Next
Records.Close
Set Records = Nothing
End Function
%>

'我的代码里没有以下的内容啊
Function GetRecordSet(ByVal dbConn, ByVal strSQL)
''哈哈哈哈哈哈。够狠不.可能出错哦
On error resume next
Set GetRecordSet = dbconn.execute(strSQL)

End Function
回复
hebhd 2008-11-21


Function GetRecordSet(ByVal dbConn, ByVal strSQL)
''哈哈哈哈哈哈。够狠不.可能出错哦
On error resume next
Set GetRecordSet = dbconn.execute(strSQL)

End Function

回复
jelllove 2008-11-21
怎么没人了
回复
jelllove 2008-11-21
Provider=Microsoft.Jet.OLEDB.4.0;Data Source=abc.mdb;Jet OLEDB:Database Password=;

这个就是连接字段了
回复
jelllove 2008-11-21
<%
Function CreatConn(ByVal strDB, ByVal strServer, ByVal strUid, ByVal strPwd)
On Error Resume Next

Dim TempStr : TempStr = ""

Dim tDb : If Instr(strDB,":")>0 Then : tDb = strDB : Else : tDb = Server.MapPath(strDB) : End If
TempStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&tDb&";Jet OLEDB:Database Password="&strPwd&";"

Dim objConn :Set objConn = nothing
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.Open TempStr
If Err.number <> 0 Then
objConn.Close
Set objConn = Nothing
End If
Set CreatConn = objConn
End Function

Function CloseConn(ByVal dbConn)
On Error Resume Next
dbConn.Close
Set dbConn = Nothing
End Function

Function GetRecordSet(ByVal dbConn, ByVal strSQL)
On Error Resume Next
Dim rstRecordList
Set rstRecordList=Server.CreateObject("adodb.recordset")
With rstRecordList
.ActiveConnection =dbConn
.CursorType = 3
.LockType = 3
.Source = strSQL
.Open
If Err.number <> 0 Then
.Close
Set rstRecordList = Nothing
'Response.End
'Exit Function
End If
End With
Set GetRecordSet = rstRecordList
End Function


Function CloseRecordSet(ByVal Records)
On Error Resume Next
Records.Close
Set Records = Nothing
End Function
%>


上面是我用到得对数据进行操作的三个函数,操作时只要有一个Create就会有一个Close

各们大虾我的幸福就在这里啦
回复
建议把连接字符串提出来
回复
hebhd 2008-11-21
你换一种 connstr 连接串。

将你的连接串贴出来

另外你的页面取的数据是不是太多了。没有设置 conn.close 及 rs.close

ASP 程序的执行是在服务器端,即使你关掉页面。他还会继续执行的
回复
加载更多回复
相关推荐
发帖
ASP
创建于2007-09-28

2.8w+

社区成员

ASP即Active Server Pages,是Microsoft公司开发的服务器端脚本环境。
申请成为版主
帖子事件
创建了帖子
2008-11-21 03:54
社区公告
暂无公告