conn2.asp

东旭网络问卷调查系统 v2.4 很好用的大家试试看

<%
	dim conn
	dim connstr
	dim dbstr
	dbstr="Sur#vey2%fDate#/#2%f#_date_Survey_base#.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
%>