conn.asp

. 缓存处理技术

<!--#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
		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

		CloseConn
		Response.Write "数据库连接出错，请检查连接字串。"
		Response.Write "原因："& Err.Description
		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
%>