conn.asp

来自「. 缓存处理技术」· ASP 代码 · 共 39 行

<!--#include file="../Data_config.asp"-->
<%
Dim Sql,Rs,Conn


ConnDatabase

Sub ConnDatabase
	Dim ConnStr
	If IsSqlDataBase = 1 Then
		ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
	Else
		Db="../"&DB
		ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(db)
	End If
	On Error Resume Next
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open ConnStr
	If Err Then
		Err.Clear
		CloseConn
		Response.Write "数据库连接出错，请检查连接字串。"

		Response.End
	End If
	On Error Goto 0
End Sub

Function CloseConn
  Conn.close
  set Conn=nothing
End Function

Function CloseRs
  Rs.close
  set Rs=nothing
End Function
%>