asp连接SQL和Access数据代码(asp里的随机函数)(2)


服务器端的脚本 对 SQLserver 来说也是“客户端应用程序”。
  SQL的数据库物理上也是一个.MDF数据文件,但这与MDB是天壤之别的,SQL的MDF 可以说是一个数据库的集合,里面包括了很多个数据库(里面的每个数据库有一个名字,每个数据库有相应的拥有者SchMa),而ACCESS的MDB是一个文件就是一个数据库。
故访问SQL 数据库要指定其服务器IP 数据库帐号密码 数据库名(当然无路径可言)
  而访问 ACCESS 只要访问 ACCESS的文件就行了。
  现在要做的是,进入企业管理器,建立一个数据库(比如为AAA),在数据库中,建立添加数据库用户和密码,然后就可以用上面的连接字符串来连接了!

//第二种写法:(DSN连接)

MM_conn_STRING="DSN=BBS;UID=SA;PWD=12345"
Set conn = Server.Createobject("ADODB.Connection")
conn.open MM_conn_STRING
SET RS=SERVER.CreateObject("ADOBD.recordset")
SQL="SELECT * FROM TABLE ORDER BY ID DESC"
RS.open SQL,CONN,3,3 // 3,3是修改、删除、增加开关!

//第三种写法:

MM_conn_STRING_own = "Driver={SQL Server};server=(local);uid=sa;pwd=11111;database=infs;"
Set conn = Server.Createobject("ADODB.Connection")
conn.open MM_conn_STRING_own

//第四种 - 这种方法用在ACCESS中
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" _
& Server.MapPath("asp.mdb")
set conn = server.createobject("adodb.connection")
conn.open strconn

我们常用的sqlserver与access都可以用的函数
复制代码 代码如下:

<%
Const DataBaseType=1
If DataBaseType=0 then
DBPath="/data/news.mdb" //mdb数据库路径
Else
'如果是SQL数据库,请认真修改好以下数据库选项
DataServer = "jb51" '数据库服务器IP
DataUser = "jb51" '访问数据库用户名
DataBaseName = "jb51" '数据库名称
DataBasePsw = "www.jb51.net" '访问数据库密码
End if
On Error Resume Next
If DataBaseType = 1 Then
ConnStr="driver={SQL Server};server="&dataserver&";UID="&datauser&";PWD="&databasepsw&";Database="&databasename
Else
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(DBPath)
End If
Set conn = Server.CreateObject("ADODB.Connection")
conn.open ConnStr
If Err Then Err.Clear:Set conn = Nothing:Response.Write "数据库连接出错,请检查Conn.asp文件中的数据库参数设置。":Response.End
%>


连接MSSQL代码(附加判断代码):
复制代码 代码如下:

<%
dim cn
set cn=server.createobject("adodb.connection")
cn.connectionstring="driver={SQL server};server=taihang;datebase=taihang;uid=sa;pwd=hacker"
cn.open
If cn.state=1 Then
response.write"数据库连接对象已打开"

内容版权声明:除非注明,否则皆为本站原创文章。

转载注明出处:http://www.heiqu.com/2142.html