conn.asp

学校部门网站设计,里面有好多模块譬如 简介联系方式 登陆注册留言新闻发布

<%
Dim Conn
'定义数据库类别，1为SQL数据库，0为Access数据库
Const IsSqlDataBase = 0
Dim Db
	Dim ConnStr
	If IsSqlDataBase = 1 Then
		'sql数据库连接参数：数据库名、用户密码、用户名、连接名（本地用local，外地用IP）
		Dim SqlDatabaseName,SqlPassword,SqlUsername,SqlLocalName
		SqlDatabaseName = "1netv2.0"
		SqlPassword = ""
		SqlUsername = "sa"
		SqlLocalName = "(local)"
		ConnStr = "Provider = Sqloledb; User ID = " & SqlUsername & "; Password = " & SqlPassword & "; Initial Catalog = " & SqlDatabaseName & "; Data Source = " & SqlLocalName & ";"
	Else
		'第一次使用请修改本处数据库地址并相应修改data目录中数据库名称，如将1netv2.0.mdb修改为1netv2.0.asp
		Db = "../../data/1netv2.0.mdb"
		'ConnStr="Driver={Microsoft Access Driver (*.Mdb)};Pwd=;Dbq=" & Server.MapPath(Db)
		ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath(Db)
	End If
	On Error Resume Next
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open ConnStr
	If Err Then
		err.Clear
		Set Conn = Nothing
		Response.write "<script language=JavaScript>" & "alert('数据库连接出错，请检查连接字串！');" & "history.back()" & "</script>"
		Response.End
	End If
%>