【工作日志】【asp】【04】asp连接 sqlserver 2008的正确代码

来源：互联网发布：一剑轩辕坐骑进阶数据编辑：程序博客网时间：2024/06/08 18:22

<%
dim rs,conn,sql,ra
Dim ser,db,username,userpwd,connstr
Dim errnumber,errdes,errsource,errline

''-----SQL配置信息-----''
'服务器IP,如跟空间同IP请填写(local),默认端口1433
ser= "127.0.0.1,1433"
'数据库名称
db = "msgdb"
'数据库名称用户
username = "sa"
'数据库用户密码
userpwd = "000000"

On Error Resume Next
set conn = Server.CreateObject("ADODB.connection")
connstr = "provider=sqloledb.1;data source="& ser & ";User ID=" & username & ";pwd=" & userpwd & ";Initial Catalog="& db & ";"
conn.Open connstr

''-----连接错误判断-----''
if err then
Response.Write Err.Number &"<br />"&Err.Description & "<br / >"& Err.Source & "<br / >"& Err.Line & "<br / >"
end if

'执行sql语句的函数
Function dosql(sql, sqli)
Select Case sqli
   case 1
   set rs = Server.CreateObject("adodb.recoreset")
   rs.open sql,conn,1,1
   case 2
   conn.Execute sql,ra
End Select
end Function

   '关闭数据库连接 '
Function closedb(rs, conn)
rs.close
set rs = Nothing
conn close
set conn = Nothing
end Function
   %>

0 0