將ASP代碼移植為VB COM組件(4)

2024-05-04 11:06:20

字體：大中小

來源：轉載

供稿：網友

網站運營seo文章大全

提供全面的站長運營經驗及seo技術!

asp頁面
作者 : 青蘋果電腦工作室

這個例子中的第一站是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
% >

上一篇：利用Visual Basic把ASP編寫成DLL

下一篇：將ASP代碼移植為VB COM組件(3)