<%
Option Explicit
Server.ScriptTimeOut=90 '脚本超时时间(单位:秒)
Response.Expires=-1
'以下部分勿动
Dim SQL,Rs,Conn
Sub DataConn()'本地数据库
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 "数据库连接出错，请检查连接字串。"
Response.End
End If
End Sub
'以下代码是用来关闭数据库连接的
Sub DataClose()
If IsObject(Conn) Then
Conn.Close
Set Conn=Nothing
End If
End Sub
%>
把以上代码做成一个const.asp文件,以后哪个文件要用到的时候用
<!--#include file="const.asp"-->包含进来即可
然后调用,DataConn(),即可打开数据库了
后用DataClose()关闭数据库
posted on 2006-08-12 10:47
fly 阅读(363)
评论(0) 编辑 收藏 所属分类:
ASP学习