注册 登录
编程论坛 ASP技术论坛

不懂 ASP 数据库连接问题

xtdhwl 发布于 2010-03-13 13:39, 436 次点击
<%
' 创建数据库连接
Function GetConn(Connstr)   
    Set Conn = Server.CreateObject("ADODB.Connection")
    Conn.Open Connstr
    Set GetConn = Conn
End Function
' 创建SqlServer数据库连接
Function GetSQLServerConn(DBServer,UserID,Password,DataBase)
    Dim Params,Conn
         
    Set GetSQLServerConn = Nothing
       Params = "Driver={SQL Server}"
       Params = Params & ";Database=" & DataBase
    Params = Params & ";Server=" & DBServer
    Params = Params & ";Uid=" & UserID
    Params = Params & ";Pwd=" & Password           
    Set GetSQLServerConn = GetConn (Params)
End Function

' 获得RecordSet
Function GetRecordSet (Sql)
    'response.write sql
    'response.end
    rs.Open Sql,Conn,1,1
    Set GetRecordSet = rs
End Function

' 生成SQL Server连接
Set Conn = GetSQLServerConn("(local)","sa","","ww")

Set rs = Server.CreateObject("ADODB.Recordset")
---------------------------------------------------------
上面是源码 如果我 SQL 的账户是 sa 密码是ww 数据库路径 "../数据库/数据库.bak"

我改修改什么地方能

希望师傅赐教 QQ:307651871
1 回复
#2
aspic2010-03-13 15:15
Set Conn = GetSQLServerConn("服务器地址或服务器名","用户名","密码","数据库名")
1