asp vb com組件開發與調試

今天在公司伺服器上看一個老掉牙的asp程式，發現竟然調用了自訂com組件，是vb寫的，封裝了資料庫連接與操作，文檔上寫這樣做是為什麼使用者到伺服器也看不到資料庫的使用者名稱與密碼，也對啊，這個是財務的伺服器，當然不能讓我們it隨便看了，呵呵！（it忽悠finance，讓finance相信it看不到資料庫使用者名稱與密碼，my god）由於，我們伺服器管理員要伺服器，決定要"和諧"這個伺服器，只能將這個伺服器上的應用全部移到另一個伺服器上，於是就要改這個com組件以指定新的db名稱，

將com組件源碼copy到本機上，改串連，編譯dll，再copy到伺服器上，regsvr32 註冊，一切正常，於是將原db offline，一會兒就有call我了，頁面報錯，無法訪問！開啟頁面看到錯誤資訊 odbc沒有找到資料庫，仔細一看，還是原來資料庫，心裡那個拔涼的，立即google，同時將原db online

原來得將iis重起: iisreset

 

又加一個com組件方法，

Public Function getData(ByVal sss As Integer) 'as Variant 不能加傳回值類型<br />Dim dd() 'as String 也不能加傳回值類型<br />Dim i As Integer<br />ReDim dd(sss - 1)<br />i = 0<br />Do While i < sss<br /> dd(i) = CStr(i)<br /> i = i + 1<br />Loop<br /> getData = dd</p><p>End Function<%<br />dim b<br />b = com.getData(10)<br />Response.Write VarType (b) & "ssss"<br />Response.Write b(1)<br />%>

數組與傳回值不能定類型 否則 VarType 返回8200,提示 "類型不符" 錯誤, 正常是8204

 

第一次編譯，工程屬性－組件－版本相容性－不相容，再編譯時間，選工程相容

 

在com組件重編譯時間，要將本機iis: iisreset /stop，確保沒進程調用這個組件， 否則無法覆蓋原dll

 

這就是asp 取 com組件數組返值 方法

 

困了，睡覺了 ^_^