conn.asp

一个简历管理系统

<%
'程序名称：萍萍多用户简历系统
'程序版本：v1.0
'开发环境：SQL Server 2005 + IIS6.0（SQL Server 2000也能用）
'程序设计：秋忆工作室
'作者网站：http://www.skymean.com
'联系邮箱：[e-mail]
%>
<%
Response.Buffer = True
Session.Timeout = 90

Dim sys, rp, DB_State, Conn, Cookie(3)

Const SystemName = "萍萍多用户简历系统"	'系统名称
Const SystemVersion = "1.0"	'系统版本
Const SessionPrefix = "ResumeSys_"	'登录系统变量前缀
Const SystemDebug = True	'系统是否为调试模式
Const SystemSkin = "default"	'系统皮肤名称，皮肤放在InterFace目录下
Const LoginChkType = "0"	'注册用户登录方式：0 Cookies验证；1 Session验证

Const SqlUsername = "sa"	'SQL用户名称
Const SqlPassword = "sa"	'SQL用户密码
Const SqlDatabaseName = "Resume"	'SQL数据库名称
Const SqlServerName = "(local)"	'SQL服务器名称，(local)指默认的本地SQL服务器

Cookie(0) = "UserName"
Cookie(1) = "Password"
Cookie(2) = "UserID"
Cookie(3) = "RememberLogin"

If Not SystemDebug Then
	On Error Resume Next
End If
Set sys = New ResumeSys
Set rp = New ResumePage

Function ConnData()
	IF DB_State = 1 Then Exit Function
	If Err Then Err.Clear
	Set Conn = Server.CreateObject("ADODB.Connection")
	On Error Resume Next
	Conn.ConnectionString = "Provider=SQLOleDb;User ID=" & SqlUsername & ";Password=" & SqlPassword & ";Initial Catalog=" & SqlDatabaseName & ";Data Source=" & SqlServerName & ";"
	Conn.Open
	If Err Then
		Err.Clear
		Set Conn = Nothing
		'Response.Clear
		sys.Echo(sys.WarnningBox("Sorry, the database connection is false, please check the related setting."))
		sys.Abort()
	Else
		DB_State = 1
	End If
End Function

Function CloseConn()
	'On Error Resume Next
	If DB_State = 1 And IsObject(Conn) Then
		Conn.Close
		Set Conn = Nothing
		DB_State = 0
	End If
	'If Err Then Err.Clear
End Function

Function CloseAllObj()
	CloseConn()
	Set sys = Nothing
	Set rp = Nothing
End Function
%>