conn.asp

来自「在线考试系统」· ASP 代码 · 共 43 行

<%
 Response.Buffer=True
'dim connstr,startime,endtime,conn,db,IsSqlDataBase
dim connstr,conn,IsSqlDataBase,startime,ver,name,studentname,studentpassword
IsSqlDataBase=0
ver="20040101"
'定义数据库类别，0为Access数据库， 1为SQL数据库
session("IsSqlDataBase")=IsSqlDataBase
call conn_init()

sub conn_init()
startime=timer()
Set conn = Server.CreateObject("ADODB.Connection")
If IsSqlDataBase=1 Then
'''''''''''''''''''''''''''''' SQL数据库 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
      connStr="Provider=SQLOLEDB.1; Persist Security Info=True; Data Source=127.0.0.1; Initial Catalog=exam; User ID=sa; Password=123456"
else
'''''''''''''''''''''''''''''' Access数据库 ''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
      connstr = "DBQ=" + server.mappath("admin/exam.mdb") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"
end if
       if err.number<>0 then
           err.clear
           set conn=nothing
		   response.write "数据库连接出错！"
		   Response.End
       else
		   conn.open connstr
           if err then
              err.clear
              set conn=nothing
			   response.write "数据库连接出错！"
              Response.End
           end if
       end if
end sub
sub endConnection()
      conn.close
      set conn=nothing
end sub
%>
<link href="STYLE.CSS" rel="stylesheet" type="text/css">