SQL
< % On Error Resume Next
dim conn
dim connstr
Set conn = Server.CreateObject( " ADODB.Connection " )
Connstr = " Driver={SQL Server};Server=127.0.0.1;Uid=sa;Pwd=sa;Database=classinfo "
conn.Open connstr
If Err Then
Err.Clear
Set conn = Nothing
Response.Write " 数据库连接文件出错,请联系管理员。 "
Response.End
End If
sub CloseConn()
conn.close
set conn = nothing
end sub
% >
Access
< % On Error Resume Next
dim conn
dim connstr
dim db
db = " /data.mdb " ' 请修改数据库路径
Set conn = Server.CreateObject( " ADODB.Connection " )
connstr = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.MapPath( "" & db & "" )
conn.Open connstr
If Err Then
Err.Clear
Set conn = Nothing
Response.Write " 数据库连接文件出错,请联系管理员。 "
Response.End
End If
sub CloseConn()
conn.close
set conn = nothing
end sub
% >
< % On Error Resume Next
dim conn
dim connstr
Set conn = Server.CreateObject( " ADODB.Connection " )
Connstr = " Driver={SQL Server};Server=127.0.0.1;Uid=sa;Pwd=sa;Database=classinfo "
conn.Open connstr
If Err Then
Err.Clear
Set conn = Nothing
Response.Write " 数据库连接文件出错,请联系管理员。 "
Response.End
End If
sub CloseConn()
conn.close
set conn = nothing
end sub
% >
Access
< % On Error Resume Next
dim conn
dim connstr
dim db
db = " /data.mdb " ' 请修改数据库路径
Set conn = Server.CreateObject( " ADODB.Connection " )
connstr = " Provider=Microsoft.Jet.OLEDB.4.0;Data Source= " & Server.MapPath( "" & db & "" )
conn.Open connstr
If Err Then
Err.Clear
Set conn = Nothing
Response.Write " 数据库连接文件出错,请联系管理员。 "
Response.End
End If
sub CloseConn()
conn.close
set conn = nothing
end sub
% >