将ASP代码移植为VB COM组件(转4）

2024-05-04 11:06:35

字体：大中小

来源：转载

供稿：网友

asp页面
作者 : 青苹果电脑工作室                                    本文点击次数：351

     这个例子中的第一站是asp页。这个asp页用ado与northwind 数据库连接。为了保持良好的编码习惯，我
使用了option explicit 并明确地声明了所有变量。这个asp页的第一个草稿使用了内联代码。

< % @ 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关于三层连接数据库

下一篇：一篇关于客户端用ASP+rds+VBA参生报表的好东东（高级篇）

学习交流

硬盘分区如何设置准确的分区空间

硬盘分区如何设置准确的分区空间...

热门图片

猜你喜欢的新闻

猜你喜欢的关注