class37.asp

鲁门网站系统

<%
'对同学录数据库的连接
On Error Resume Next
Set aconn=Server.CreateObject("ADODB.Connection")
    aconn.open "Provider=SQLOLEDB;Data Source=192.168.0.1;Initial Catalog=alumn;User ID=sa; Password=tpee;"		
If Err.Number <> 0 Then
   Response.write "数据库链接出错!文件：inc/class3.asp!"
   Response.End()
end if
%>