<%
	dim conn
	dim connstr
	dim dbstr
	dbstr="../database/WebsenElecommerce.asp"
	'On Error Resume Next
	Set conn = Server.CreateObject("ADODB.Connection")
	connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(dbstr)
	conn.Open connstr
	If Err Then
		err.Clear
		response.write("数据库连接出错，请检查连接字串!!!")
		response.End()
	End If
%>
