<!-- 您使用的是網趣網上購物系統免費版本，免費版基本功能均可使用，諸多高級功能是不具備的，如果您要網上開店，推薦使用官方正式版，官方網站:http://www.cnhww.com 客服QQ：81447932  -->
<%
dim db
const DatabaseType="ACCESS"     
db="cnhwwdata\cnhww.asp"           
         On Error Resume Next
	dim ConnStr
	dim conn
		ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(db)
		Set conn = Server.CreateObject("ADODB.Connection")
	conn.Open connstr
	If Err Then
		err.Clear
		Set Conn = Nothing
		Response.Write "數據庫連接出錯，請檢查Conn.asp文件中的數據庫參數設置。"
		Response.End
	End If
sub CloseConn()
	On Error Resume Next
	If IsObject(Conn) Then
		conn.close
		set conn=nothing
	end if
end sub
%>