conn.asp

一套在线考试系统

<%
Option Explicit
dim conn,rs,sql,uid,pwd,database,ConnStr,IsSQL

uid="sa"
pwd="sl"
database="Examination" 
IsSQL=1

set conn=server.createobject("ADODB.connection")
set rs=server.createobject("adodb.recordset")
if IsSQL=1 then
    ConnStr = "driver={SQL Server};server=localhost;UID="&uid&";PWD="&pwd&";database="&database
else
    ConnStr = "Provider = Microsoft.Jet.OLEDB.4.0;Data Source = " & Server.MapPath("../data/examination.mdb")
end if
conn.Open ConnStr
%>