ASP连接SQL2000 源码
版权声明：原创作品，谢绝转载！否则将追究法律责任。 |
<%
dim conn dim connstr on error resume next connstr="Driver={SQL Server};Server=192.168.0.10;UID=test;PWD=test1;Database=wawa" set conn=server.createobject("ADODB.CONNECTION") conn.open connstr if conn.State = 1 then Response.Write "OBJConn 与数据库连接成功" conn.Close else Response.Write "OBJConn 对象的执行过程产生错误！" end if Set conn = Nothing %> 或者这样也可以：
<% On Error Resume NextSet OBJConn = Server.CreateObject("ADODB.Connection") OBJConn.open "Trade", "test" , "test1" if OBJConn.State = 1 then Response.Write "OBJConn 与数据库连接成功" OBJConn.Close else Response.Write "OBJConn 对象的执行过程产生错误！" end if Set OBJConn = Nothing %> 本文出自 “北斗星空” 博客，谢绝转载！ 本文出自 51CTO.COM技术博客 |
北斗
博客统计信息
热门文章
最新评论
友情链接