conn2.asp

来自「用ASP设计的一个网上问卷系统,用于网上调查问卷系统的实现」· ASP 代码 · 共 16 行

<%
	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
%>