conn.asp

来自「考试系统,主要完成在线考试,并且应用SQLSERVER,这样可以保证数据库的安全」· ASP 代码 · 共 35 行

   <%
   dim conn   
  dim connstr   
   'on error resume next
   call conn_init()

   sub conn_init()
       'on error resume next

       'connstr = "DBQ=" + server.mappath("exam.asp") + ";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};"       
       connstr="Provider=sqloledb;User id=sa;Password=;Initial Catalog=exam;Data Source=(local)"
	    'connstr="DSN=exam;UID=exam;PWD=2005"
	   set conn=server.createobject("ADODB.CONNECTION")
       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
  
%>