[]
[我要回覆]
1
|
|||||
|
|||||
樓主 wasqe 
 發送站內信 |
想請教各位我用 windows 7 x32 iis架站時出現 Microsoft OLE DB Provider for ODBC Drivers 錯誤 '80004005' [Microsoft][ODBC 驅動程式管理員] 找不到資料來源名稱且未指定預設的驅動程式 /buss/buss/include/include.asp, 行11 這是程式碼不知哪邊有問題? <% Function GetConn() Dim sConnectionString, aDb: sConnectionString="": Set GetConn = Nothing sConnectionString = sConnectionString & "driver={mysql Odbc 3.51 driver}" sConnectionString = sConnectionString & ";server=localhost" sConnectionString = sConnectionString & ";database=buss" sConnectionString = sConnectionString & ";uid=root" sConnectionString = sConnectionString & ";pwd=1116" Set aDb = Server.CreateObject("ADODB.Connection") aDb.Open sConnectionString Set GetConn = aDb End Function Function GetAConn() Dim sConnectionString, aDb: sConnectionString="": Set GetAConn = Nothing sConnectionString = sConnectionString & "driver={mysql Odbc 3.51 driver}" sConnectionString = sConnectionString & ";server=localhost" sConnectionString = sConnectionString & ";database=aeo_system" sConnectionString = sConnectionString & ";uid=root" sConnectionString = sConnectionString & ";pwd=1116" Set aDb = Server.CreateObject("ADODB.Connection") aDb.Open sConnectionString Set GetAConn = aDb End Function Sub GetRS(conn,rsName) Set rsName = Server.Createobject("ADODB.Recordset") set rsName = conn.Execute("SET NAMES 'big5'") End Sub Function nullTr(strtxt) if isnull(strtxt) or strtxt="" then nullTr=" " else nullTr=strtxt end if End Function Function nullSr(strtxt) if isnull(strtxt) then nullSr="" else nullSr=strtxt end if End Function Function GetMConn() Dim sMConnectionString, aMDb sMConnectionString="" set GetMConn=nothing DBPath = Server.MapPath("/buss/buss_1.mdb") sMConnectionString="driver={Microsoft Access Driver (*.mdb)};dbq=" & DBPath set aMDb = Server.CreateObject("ADODB.Connection") aMDb.open sMConnectionString set GetMConn=aMDb End Function Sub GetMRS(rsMName) Set rsMName = Server.Createobject("ADODB.Recordset") End Sub Function chgStr( data ) chgStr =Replace( data, "'", "" ) End Function function rid(str) if str="nbsp;" then rid="" else rid=str end if end function %>
本篇文章發表於2015-02-10 23:08
|
||||
0
1
12
0
| 1樓 |
這是個很常見的錯誤
只要google一下就會看到一大堆解答的文章 例如這篇就是微軟官方的解答 http://support.microsoft.com/kb/238971/zh-tw
本篇文章回覆於2015-02-11 10:34
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔-- |
| 2樓 |
我也有遇到這種狀況
我的解決方式是參考這一篇文章 http://blog.e-happy.com.tw/?p=928 1.請先進入控制台，開啟 Internet Information Services(IIS) 管理員 2.開啟左手邊[連線]視窗的[應用程式集區]，再按下中間的[DefaultAppPool]，接著按下[動作]視窗的[進階設定]。 3.在[進階設定]的對話方塊中，找到[一般] → [啟用32位元應用程式] →[True]，最後按下[確定]鈕完成設定。
本篇文章回覆於2015-07-06 15:51
== 簽名檔 ==
--未登入的會員無法查看對方簽名檔-- |
1
| 回覆 |
| 如要回應,請先登入. |
