conn.asp

eayanQuery思燕大学成绩查询系统 版本 V1.6

<%'@language="vbscript" codepage="936"%>
<%'option explicit
Dim SqlNowString,Initialize_Conn,DBPath,DataServer,DataUser,DataBaseName,DataBasePsw,Initialize_ConnStr
Const DataBaseType=1 '系统数据库类型，"1"为MS SQL2000数据库，"0"为MS ACCESS 2000数据库

If DataBaseType=0 then
	'如果是ACCESS数据库，请认真修改好下面的数据库的文件名
	DBPath       = "\Data\axhucj.mdb"      'ACCESS数据库的文件名，请使用相对于网站根目录的的绝对路径
	SqlNowString = "Now()"
Else
	 '如果是SQL数据库，请认真修改好以下数据库选项
	 DataServer   = "(local)"                                  '数据库服务器IP
	 DataUser     = "sa"                                       '访问数据库用户名
	 DataBaseName = "axhucj"                                '数据库名称
	 DataBasePsw  = "sa"                                   '访问数据库密码 
	 SqlNowString = "getdate()"
End if
'************************************
'打开数据库的sub
Sub OpenConn()
    On Error Resume Next
    If DataBaseType = 1 Then
       Initialize_ConnStr="PROVIDER=SQLOLEDB;DATA SOURCE="&dataserver&";UID="&datauser&";PWD="&databasepsw&";Database="&databasename
    Else
       Initialize_ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath)
    End If
    Set Initialize_conn = Server.CreateObject("ADODB.Connection")
    Initialize_conn.open Initialize_ConnStr
    'If Err Then Err.Clear:Set Initialize_conn = Nothing:Response.Write "数据库连接出错，请检查Conn.asp文件中的数据库参数设置。":Response.End
 End Sub

'关闭数据库的sub
Sub CloseConn()
    On Error Resume Next
	Initialize_Conn.close:Set Initialize_Conn=nothing
End sub
'************************************

Call OpenConn()
 
 'Dim  Initialize_rs,Initialize_sql
 'set Initialize_rs=server.createobject("adodb.recordset")
 'Initialize_sql="select * from admin where admin_id=1"
 'Initialize_rs.open Initialize_sql,Initialize_conn,0,1
 'if not Initialize_rs.bof and Initialize_rs.eof then
 'response.write Initialize_rs("admin_pass")

'Call CloseConn
%>