2015-06-09 106 views
0

情況:IIS7 SQL ODBC和Server 2008 R2(從2003年IIS6轉換網站2008 R2 IIS7)

我有一個網站目前IIS6(srv2003)運行。 我已經安裝了服務器2008 R2和IIS7.5(版本7.5)的新服務器

一步一步我正在將網站轉換爲新的IIS7.5,只有一部分仍然無法正常工作。

問題:

下面的腳本(尚未修改,一個從IIS6環境複製) 不會使用服務器端(server 2008 R2)上的SQL ODBC連接。 我已經閱讀了一些關於這方面的文章,並在這些文章中提到了不同的代碼,但其中沒有一篇是從我的舊代碼開始的。所以我嘗試了,但失敗了。 (不幸)

<% 
 
'---- 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 
 
%>

如何能指點正確的方向,(或解決難題)我已經搜索的網站多次,發現非常有用的信息,但遺憾的是我沒有找到我的解決方案了。

謝謝你,期待着這些信息。

回答

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。

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 
 
%>

謝謝