我的网站因为生成了一个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

回复赞

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

各们大虾我的幸福就在这里啦

回复赞