<%
Option Explicit
Server.ScriptTimeOut=90????'腳本超時時間(單位:秒)
Response.Expires=-1
'以下部分勿動
Dim SQL,Rs,Conn
Sub DataConn()'本地數(shù)據(jù)庫
?? On Error Resume Next
?Dim strConn
??? Set Conn = Server.Createobject("Adodb.Connection")
?strConn = "Provider=SQLOLEDB.1;Persist Security Info=False;Server=127.0.0.1;User ID=sa;Password=sa ;Database=test;"
?
??? Conn.Open strConn
??????? If Err Then
??err.Clear
??Set Conn = Nothing
??Response.Write "數(shù)據(jù)庫連接出錯，請檢查連接字串。"
??Response.End
?End If
End Sub
'以下代碼是用來關(guān)閉數(shù)據(jù)庫連接的
Sub DataClose()
?If IsObject(Conn) Then
??Conn.Close
??Set Conn=Nothing
?End If
End Sub
%>
把以上代碼做成一個const.asp文件,以后哪個文件要用到的時候用
<!--#include file="const.asp"-->包含進(jìn)來即可
然后調(diào)用,DataConn(),即可打開數(shù)據(jù)庫了
后用DataClose()關(guān)閉數(shù)據(jù)庫
posted on 2006-08-12 10:47
fly 閱讀(380)
評論(0) 編輯 收藏 所屬分類:
ASP學(xué)習(xí)