<%@ Language=VBScript %>
<html><head>
<meta name="GENERATOR" content="AbsoluteEdit">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2">
<title></title>
</head><body>
<%
Dim Cnn, StrConn
Dim rs
Set Cnn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.recordset")
strconn = "driver=sql server;server=62.12.7.16;uid=sa ;password= ;database=daway"
Cnn.open strconn
%>
</body></html>执行后就出现
Microsoft OLE DB Provider for ODBC Drivers (0x80040E4D)
的错误
<html><head>
<meta name="GENERATOR" content="AbsoluteEdit">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-2">
<title></title>
</head><body>
<%
Dim Cnn, StrConn
Dim rs
Set Cnn = Server.CreateObject("ADODB.Connection")
Set rs = Server.CreateObject("ADODB.recordset")
strconn = "driver=sql server;server=62.12.7.16;uid=sa ;password= ;database=daway"
Cnn.open strconn
%>
</body></html>执行后就出现
Microsoft OLE DB Provider for ODBC Drivers (0x80040E4D)
的错误
前提是使用的认证方式为sql认证,不是winnt认证!
方法一:sqlserver连接
<%'strDSN="driver={sql server};server=ypcpsu\psusong;uid=sa;pwd=psusong;database=database_asp"
set conn=createobject("ADODB.Connection")
conn.open strDSN
SQL="SELECT * FROM userinfo"
SET rs=conn.Execute(SQL)%>
注释:ypcpsu\psusong为自己的数据库服务器名
database_asp 为数据库名
userinfo 为database_asp中的一个table
方法二:OLEDB连接
<%strDSN="provider=sqloledb;data source=ypcpsu\psusong;initial catalog=database_asp;user id=sa;password=psusong"
set conn=createobject("ADODB.Connection")
conn.open strDSN
SQL="SELECT * FROM userinfo"
SET rs=conn.Execute(SQL)%>
方法三:odbc连接
<%strDSN="DSN=Test_ASP;UID=psusong;PWD=psusong"
set conn=createobject("ADODB.Connection")
conn.open strDSN
SQL="SELECT * FROM userinfo"
SET rs=conn.Execute(SQL)%>
注释:test_asp 为odbc数据源名,需要事先建立数据源!
-----------------------------------------
连接scott.emp表
方法1:
<%Set OraSession=CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase=OraSession.DbOpenDatabase("itanynj","scott/psusong",0)
Set rs=OraDatabase.CreateDynaset("select * from EMP",0)
>%
例如:
<%
Set OraSession=CreateObject("OracleInProcServer.XOraSession")
Set OraDatabase=OraSession.DbOpenDatabase("yingnet","qdsteel/qingdao",0)
Set rsi=OraDatabase.CreateDynaset("select * from release order by id desc",0)
rsi.DbAddNew
rsi.Fields("dateandtime").value=dateandtime
rsi.Fields("id").value=id
rsi.Fields("isDisplay").value=isDisplay
rsi.Fields("NimgID").value=NimgID
rsi.Fields("username").value=username
rsi.Fields("FileName").value=FileName
rsi.DbUpdate
rsi.close
set rsi=nothing
Set OraSession=nothing
%>
%>
方法2:odbc连接
<%strDSN="DSN=Test_Emp;uid=scott;pwd=psusong"
set con=Server.CreateObject(ADODB.Connection)
Set rs=OraDatabase.CreateDynaset("select * from EMP",0)
%>
方法3:ADO连接
<%
dim conn
dim connstr
dim dbUser,dbPwd,dbDsn
dbUser='scott'
dbPwd='psusong'
dbDsn='itanynj'
connstr="Provider=MSDAORA.1;Password=dbPwd;User ID=dbUser;Data Source=dbDsn;Persist Security Info=True"
set conn=server.createobject("ADODB.CONNECTION")
conn.open connstr
conn.CursorLocation=3 ''<-这句至关重要,如果你想取得recordcount的话
if err=-2147467259 then
response.redirect "success.asp?messageid=reg011"
response.end
end if
%>
方法4:
<% set conn=server.createobject("adodb.connection")
connstr="Provider=OraOLEDB.Oracle.1;Persist Security Info=True;User ID=scott;Password=psusong;Data Source=itanynj"
conn.Open connstr
set rs=conn.Execute("SELECT * FROM EMP")
%>
方法5
set conn=server.createobject("adodb.connection")
constr="Provider=MSDAORA.1;Password=yourpwd;User ID=tiger;Data Source=172.16.47.188;Persist Security Info=True"
conn.open constr
-----------------------------------------------
strconn = "driver={SQL Server};server=62.12.7.16;uid=sa ;password= ;database=daway"
set conn=createobject("ADODB.Connection")
conn.open strDSN
SET rs=conn.Execute("select * from your_table")
%>
------------------------
绝对没有问题,我就是这样联得!
也许是你的ip有问题!在你的ip上有多个sql2000实例的话,你需要指定sql2000
62.12.7.16\yourservername
server;server=62.12.7.16;uid=sa ;password= ;database=daway"
它的问题?
最好password不要为空!!!
给个密码 就可以了!!!!!!!!!!!