IIS7 SQL ODBC和Server 2008 R2(从IIS6 2003到2008 R2 IIS7转换的站点)

时间:2015-06-09 11:54:40

标签: sql odbc iis-7.5 iis-6 windows-server-2008-r2

情况:

我目前在IIS6(srv2003)上运行了一个网站。 我已经安装了服务器2008 R2和IIS7.5(版本7.5)的新服务器

我正在逐步将网站转换为新的IIS7.5,只有一部分仍无效。

问题:

以下脚本(尚未修改,从IIS6环境复制的脚本) 不要在服务器上使用SQL ODBC连接(服务器2008 R2)。 我已经阅读了一些关于此的文章,在这些文章中他们引用了不同的代码,但不是从我的旧代码开始。所以我试过,但失败了。 (不幸的是)



<%
'---- CursorTypeEnum ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3

'---- LockTypeEnum  ----
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4

Function SetConn()
Dim objConn 
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="PDM"
objConn.open
set SetConn=objConn
set objconn=nothing
end function

function SetRecord (oConn,strSQL,sCursorType,sLockType)
dim objRS
set objRS=Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL,objConn,sCursorType,sLockType
set SetRecord=objRS
end function
%>
&#13;
&#13;
&#13;

如何指出正确的方向,(或解决难题)我多次搜索网站并找到了非常有用的信息,但不幸的是我还没找到我的解决方案。

感谢您并期待这些信息。

2 个答案:

答案 0 :(得分:0)

没有谜题。

替换

objConn.ConnectionString="PDM"
objConn.open

objConn.Open 
   "Provider=SQLOLEDB.1;Data Source=adress of server; Initial Catalog=name of used database",
   "user-name",
   "user-password"

我使用这行代码没有任何问题(Windows 7,IIS 7.5和SQL-Server 2005)。因为ODBC不再存在,所以我使用的是OLE。

答案 1 :(得分:0)

所以我有解决方案,我们仍然在本地机器上使用odbc(32位版本)。 但是我们对代码进行了一些小的更改,请参阅下面的新代码和工作代码。 感谢您帮助记者

<%
'---- CursorTypeEnum ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3

'---- LockTypeEnum  ----
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4

Function SetConn()
Dim objConn 
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.open "DSN=PDM;UID=sa;PWD=password"
set SetConn=objConn
set objconn=nothing
end function

function SetRecord (oConn,strSQL,sCursorType,sLockType)
dim objRS
set objRS=Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL,objConn,sCursorType,sLockType
set SetRecord=objRS
end function
%>