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

[jelllove]

我一开始打开自己的网站,打开到一半的时候,这个时候我的mdb数据库连接还没有关闭,然后我就把浏览器直接关了,关了之后就打不开自己的网站,上FTP服务器看一下,原来是有一个ldb文件,结果这个文件也删除不了.现在不知道怎么办了!
来个高手指点一下,我看了不好网上的回答,都说是因为独占引起的,但也没有什么好的代码.如果有人打开我的网页,开到一半就关了,那这个ldb不就不会自己删除,那别人就不能访问我的网站,这个有什么好的解决方法.
在线等

[hebhd]

你换一种 connstr 连接串。

将你的连接串贴出来

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

ASP 程序的执行是在服务器端，即使你关掉页面。他还会继续执行的

[夫人的泡泡鱼]

建议把连接字符串提出来

[jelllove]

<%
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

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

[jelllove]

Provider=Microsoft.Jet.OLEDB.4.0;Data Source=abc.mdb;Jet OLEDB:Database Password=;

这个就是连接字段了

[jelllove]

怎么没人了

[hebhd]

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

End Function 

[jelllove]

<% 
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]

偶晕....

你里面已经有一个 GetRecordSet

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

晕死!

[jelllove]

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

[jelllove]

用nTopAdCount时无法得到当前的记录个数!!!

[hebhd]

哈哈。你还要取记录数呀...

.CursorType = 1
.LockType = 1


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

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

下班了嘿嘿....

[jelllove]

...........还是不能解决问题啊！
我的网站www.jelllove.com,有时候能上有时候又上不去。。。。。。。。。

[jelllove]

................no body help me!!!

[jelllove]

怎么还是没人来回答啊

[linfeng332]

我的站偶尔也会这样，正在查找原因

[jelllove]

敢问高人
将以下的值设置成
.CursorType = 1
.LockType = 1
好像也没有用啊
我要怎么做啊


我现在是把连接数据,打开数据集分开的,如果放在一个函数内完成会不会好一点?

[jelllove]

敢问高人
将以下的值设置成
.CursorType = 1
.LockType = 1
好像也没有用啊
我要怎么做啊


我现在是把连接数据,打开数据集分开的,如果放在一个函数内完成会不会好一点?

[jelllove]

some body help me

[wcwtitxu]

不建议所有查询都

.CursorType = 3
.LockType = 3

[hebhd]

qq 1608011 找我帮你看一下