我想將ASP中的資料庫連接寫到DLL中,但不知如何將連接字串作爲參數傳給ASP程式,請各位前輩幫手,能否作一小常式參考一下.    ############################### 初學delphi,請各位多多提點!謝謝! ###############################

你好：
    因你提供資訊有限，不知道你想知道的哪部分(ASP or Delphi)。如果是要取得網頁傳
回值可以使用下列方式來取得參數值。        A = Request.QueryString ("DefA")
    使用網址傳遞參數或是使用表單的 GET 模式
      Ex:
        http://deepen.com.tw/page?DefA=10
        <FORM ACTION="xxx.asp" METHOD="GET">
          <INPUT NAME="DefA" TYPE="hidden" VALUE="1">
        </FORM>        A = Request.Form ("DefA")
    使用 <Form> 傳遞參數時用
        <FORM ACTION="xxx.asp" METHOD="POST">
          <INPUT NAME="DefA" TYPE="hidden" VALUE="1">
        </FORM>        A = Request.BinaryRead
    使用二進位傳遞資料時使用, 需自行依格式分解參數
        <FORM ACTION="xxx.asp" METHOD="POST" ENCTYPE="multipart/form-data">
          <INPUT NAME="DefA" TYPE="hidden" VALUE="1">
        </FORM>        以上說明是針對你已了解 Delphi 如何設計 ASP Object，但不熟 ASP 物件的使用。
如果我的解說方向錯誤，在麻煩你說清楚你想要了解的東西。 ^^

ha0009:您好!!是这样的    ASP: <% Set DelphiASPObj = Server.CreateObject("connstr.conn")     response.write(application("str"))   DelphiASPObj.outstr(str) %>    DELPHI:    其实我就是想用COM的属性或方法传值到ASP程式中 procedure Tconn.outstr(out str: WideString); begin response.write('1112'); application.Set_Value('str','123'); str:='123456'; end; procedure Tconn.Set_ss(const str1: WideString); begin set_ss('123456'); end; 在ASP能得到这两个值么,应该怎样做?

你好：
    我了解你的意思了，在 ASP 中有幾個重要的物件
    Appliction 代表整個網站, 屬於全域的物件
    Session    代表某個使用者的連線, 屬於該使用者獨有。
    
    以上兩個物件都有一個存放變數的記憶體空間，所以下面
兩段程式結果都是會在 Application 物件中增加一個名為 str 
的變數。
    delphi  : application.Set_Value('str','123')
    VBS ASP : Application ("Str") = "123"
    
    你也可以使用 COM 物件的屬性 / 程序將值傳給 ASP 作處理
    set obj = Server.CreateObject ("AAALib.XXX")
    x = obj.PropertyA
    if x > 100 then
      .....
    else
      .....
    end if
    set obj = nothing        以上的解釋不曉得是不是你要的，如果不是在討論吧～
    

引言:

你好：
    我了解你的意思了，在 ASP 中有幾個重要的物件
    Appliction 代表整個網站, 屬於全域的物件
    Session    代表某個使用者的連線, 屬於該使用者獨有。
    
    以上兩個物件都有一個存放變數的記憶體空間，所以下面
兩段程式結果都是會在 Application 物件中增加一個名為 str 
的變數。
    delphi  : application.Set_Value('str','123')
    VBS ASP : Application ("Str") = "123"
    
    你也可以使用 COM 物件的屬性 / 程序將值傳給 ASP 作處理
    set obj = Server.CreateObject ("AAALib.XXX")
    x = obj.PropertyA
    if x > 100 then
      .....
    else
      .....
    end if
    set obj = nothing        以上的解釋不曉得是不是你要的，如果不是在討論吧～
    

我正是要"用 COM 物件的屬性 / 程序將值傳給 ASP 作處理",但是现在就是传递不过去了!! Set DelphiASPObj = Server.CreateObject("connstr.conn") str_x=DelphiASPObj.ss response.write(str_x) 这里STR_X为空白...请继续指点!!

问题搞定了 Modifier --->[out, retval]    function Tconn.outstr: WideString; begin    result:='123456'; end;    procedure Tconn.Set_ss(const str1: WideString); begin    end;    function Tconn.Get_ss: WideString; begin   result:='eeeeee'; end; ------------------------------------- <% Set DelphiASPObj = Server.CreateObject("connstr.conn")     str=DelphiASPObj.outstr    response.write(str&"
") x=DelphiASPObj.ss response.write(x) %>

提問者您好:


以上回應是否已得到滿意的答覆？


若已得到滿意的答覆，請在一週內結案，否則請在一週內回覆還有什麼未盡事宜，不然，
將由版主(尚無版主之區域將由副站長或站長)採自由心證,選擇較合適之解答予以結案處理，
被選上之答題者同樣會有加分獎勵，同時發問者將受到扣 1 分的處分。不便之處，請見諒。


有問有答有結案，才能有良性的互動，良好的討論環境需要大家共同維護，感謝您的配合。

------
我是機器人,我不接受簡訊.