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

最新推荐文章于 2018-08-05 19:55:42 发布

idea丁一鸣

最新推荐文章于 2018-08-05 19:55:42 发布

阅读量484

点赞数

分类专栏：【工作日志】【asp】

本文链接：https://blog.csdn.net/iMDingDing/article/details/46926547

版权

【asp】同时被 2 个专栏收录

29 篇文章 0 订阅

订阅专栏

【工作日志】

14 篇文章 0 订阅

订阅专栏

<%
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
   %>