如何利用asp进行lob操作？采用ado还是oo4o?侧重图片处理

Question

oo4o吧，程序是用vb写的，机器上面没有装，所以代码考不出来。。

Answer 1

1、asp一般采用ado.
2、用asp做一函数。
暂时没有源码

Answer 2

一个OO4O的例子:
<%@ Language=VBScript %>
<%  dim dbname
  dim cnuser
  on error resume next
  dbname = "xuna"
  cnuser = "xuna/xuna*"
 
'** oo4o 
  if isempty(session("OraSession")) then
    Set session("OraSession") = Server.CreateObject("OracleInProcServer.XOraSession")
    if err <> 0 then
      response.write("<P>database erro <BR>" _
        & "CreateObject - Oracle oo4o erro</P>")
    end if
  end if  if isempty(session("OraDatabase")) then
    Set session("OraDatabase") = session("OraSession").OpenDatabase(dbname, cnuser, ORADB_DEFAULT)
    if err <> 0 then
      response.write("<P>データベースに接続出来ません。<BR>" _
        & err & ": " & error & "</P>")
    end if
  end if  on error goto 0  if RdbShori() then
    response.write("<P>-- RDB 更新正常終了 --</P>")
  end iffunction RdbShori()
  RdbShori = FALSE  on error resume next
  session("OraDatabase").LastServerErrReset  session("OraSession").BeginTrans  session("OraDatabase").ExecuteSQL "insert into test_st values " _
    & "(9999, 'Peter')"
  if err <> 0 or session("OraDatabase").LastServerErr <> 0 then
    session("OraSession").Rollback
    response.write("<P>RDB 更新1 に失敗しました。<BR>" _
      & err & ": " & error & "<BR>" _
      & "oo4o: " & session("OraDatabase").LastServerErrText & "</P>")
    exit function
  end if
  session("OraSession").CommitTrans  on error goto 0
  RdbShori = TRUEend function
%>

Answer 3

非常感谢各位的光临与帮忙，问题我已经解决了，有感兴趣的朋友，可以与我联系
[email protected]