<%
Dim Conn,ConnStr,DBPath

DBPath = "loveq_jian.asp"
ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(DBPath)
Public Function Checkstr(Str)
	If Isnull(Str) Then
		CheckStr = ""
		Exit Function 
	End If
	CheckStr = Replace(Str,"'","''")
End Function

Function OpenDB() 
	On Error Resume Next
	Set Conn = Server.CreateObject("ADODB.Connection")
	Conn.open ConnStr
	If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write "數(shù)據(jù)庫(kù)連接出錯(cuò)，請(qǐng)檢查連接字串。"
		Response.End
	End If
End Function

Function CloseDB() 
	Conn.Close
	Set Conn = Nothing
End Function
%>