將ASP代碼移植為VB COM組件(轉(zhuǎn)4）

2024-05-04 11:06:35

字體：大中小

供稿：網(wǎng)友

asp頁(yè)面
作者 : 青蘋果電腦工作室                                    本文點(diǎn)擊次數(shù)：351

     這個(gè)例子中的第一站是asp頁(yè)。這個(gè)asp頁(yè)用ado與northwind 數(shù)據(jù)庫(kù)連接。為了保持良好的編碼習(xí)慣，我
使用了option explicit 并明確地聲明了所有變量。這個(gè)asp頁(yè)的第一個(gè)草稿使用了內(nèi)聯(lián)代碼。

< % @ language=vbscript % >
< %
    'example of inline code
    option explicit

    'declare variables
    dim oconn
    dim ors
    dim connectionstring
    dim x

    connectionstring = "dsn=northwind;"

    set oconn = server.createobject("adodb.connection")
    oconn.open connectionstring

    set ors = server.createobject("adodb.recordset")

    'set variables
    ors.activeconnection = oconn
    ors.source = "select * from products"
    ors.open
% >
< html >
< head >
< meta http-equiv="content-type" content="text/html; charset=windows-1252" >
< title >new page 1< /title >
< /head >
< body >
< h1 >products< /h1 >
< table cellspacing="2" cellpadding="5" >
    < tr bgcolor="#ff6666" >
        < th >product name< /th >
        < th >quantity per unitr< /th >
        < th >price< /th >
    < /tr >
    < %
        do until ors.eof
            if x = 1 then
                x = 0
    % >
    < tr bgcolor="#ffcccc" >
    < % else % >
    < tr >
    < %
            x = 1
        end if
    % >
        < td >< %=ors("productname")% >< /td >
        < td >< %=ors("quantityperunit")% >< /td >
        < td >< %=ors("unitprice")% >< /td >
    < /tr >
    < %
            ors.movenext
        loop
    % >
< /table >
< /body >
< /html >
< %
    'destroy objects
    set ors = nothing
    set oconn = nothing
% >

上一篇：asp。net關(guān)于三層連接數(shù)據(jù)庫(kù)

下一篇：一篇關(guān)于客戶端用ASP+rds+VBA參生報(bào)表的好東東（高級(jí)篇）