conn.asp

是运行在asp环境下寻梦书库管理系统

<%
dim conn,sqlstr,DBPath
DBPath = Server.MapPath("/x/data/data.mdb")

Connstr = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="& DBPath

	On Error Resume Next
	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
dim WebTitle
WebTitle="请在conn.asp里修改网站标题"
%>