conn.asp

做的一个毕业设计（学生档案管理系统）

<%@ LANGUAGE = VBScript CodePage = 936%>
<%
Option Explicit
Response.Buffer = True
Dim powerid
Dim Comeurl
dim conn
Dim SqlNowString
Dim nowtit,action
Dim rs,id,sql
Dim totalput,pagedw,CurrentPage,page,PurviewChecked
Dim strFileName,sql_tables,Sql_Conditions,Sql_Condition,Sql_Lists,Sql_Sortings,Sql_Orders,Sql_Additional
Dim rs_web,rs_edit,dels,user_check
Dim fun_cel,nos_i,fun_get
Dim types,keyword
Dim formaction
Dim i
Dim webtit,sitename
Dim HTMLother
Dim domain:domain=Request.ServerVariables("server_name")

'定义数据库类别，1为SQL数据库，0为Access数据库
Const IsSqlDataBase = 0		

'=====================================================================

If IsSqlDataBase = 1 Then
	'SQL数据库设置

	'数据库名(SqlDatabaseName)
	Const SqlDatabaseName = "cj_2007"

	'用户密码(SqlPassword)
	Const SqlPassword = ""

	'用户名(SqlUsername)
	Const SqlUsername = "sa"

	'连接名(SqlLocalName)（本地用local，外地用IP）
	Const SqlLocalName = "(local)"	
	
'=====================================================================

Else
	'Access数据库设置
	'用户第一次使用请修改本处数据库地址并相应修改data目录中数据库名称

	'相对当前目录下绝对路径

	Const DataPath = "data/#123zh.mdb"

'===================================================================
End If
ConnectionDatabase

Sub ConnectionDatabase
	'On Error Resume Next
	Set conn = Server.CreateObject("ADODB.Connection")
	conn.open ConnStr(IsSqlDataBase)
	If Err Then
		err.Clear : Set Conn = Nothing
		res "数据库连接错误，请与网站管理员联系！",1
		Response.End
	End If
End Sub

%>