Tag/
共18个网摘 [
1 ] |
WAY1110JX收录,使用标签:asp, 精华, 代码,时间:2008-3-19 13:36:07 | 相关网摘,我也收藏
Public function DbExists(byVal dbPath)
'查找数据库文件是否存在
On Error resume Next
Dim c
Set c = Server.CreateObject("ADODB.Connection")
c.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & dbPath
If Err.number<>0 Then
Err.Clear
DbExists = false
else
DbExists = True
End If
set c = nothing
End function
http://topic.csdn.net/t/20021231/10/1315580.html
共18个网摘 [
1 ]