将ASP代码移植为VB COM组件-4

　2000-09-11 10:10:14　来源：WEB开发网　闂傚倸鍊搁崐椋庢濮橆兗缂氱憸宥堢亱闂佸湱铏庨崰鏍不椤栫偞鐓ラ柣鏇炲€圭€氾拷

闂傚倸鍊搁崐椋庣矆娓氣偓楠炲鏁撻悩鎻掔€梺姹囧灩閻忔艾鐣烽弻銉︾厵闁规鍠栭。濂告煕鎼达紕校闁靛洤瀚伴獮鎺楀箣濠靛啫浜鹃柣銏⑶圭壕濠氭煙閻愵剚鐏辨俊鎻掔墛缁绘盯宕卞Δ鍐冣剝绻涘畝濠佺敖缂佽鲸鎹囧畷鎺戭潩閹典焦鐎搁梻浣烘嚀閸ゆ牠骞忛敓锟�

婵犵數濮烽弫鍛婃叏椤撱垹绠柛鎰靛枛瀹告繃銇勯幘瀵哥畼闁硅娲熷缁樼瑹閳ь剙岣胯鐓ら柕鍫濇偪濞差亜惟闁宠桨鑳堕崝锕€顪冮妶鍡楃瑐闁煎啿鐖奸崺濠囧即閵忥紕鍘梺鎼炲劗閺呮稒绂掕缁辨帗娼忛埡浣锋闂佽桨鐒﹂幑鍥极閹剧粯鏅搁柨鐕傛嫹闂傚倸鍊搁崐椋庢濮橆兗缂氱憸宥堢亱闂佸湱铏庨崰鏍不椤栫偞鐓ラ柣鏇炲€圭€氾拷　　闂傚倸鍊搁崐鐑芥嚄閼哥數浠氱紓鍌欒兌缁垶銆冮崨鏉戠厺鐎广儱顦崡鎶芥煏韫囨洖校闁诲寒鍓熷铏圭磼濡搫顫岄梺鍦拡閸嬪棝鎯€椤忓浂妯勯梺鍝勬湰濞叉ḿ鎹㈠┑濠勭杸闁哄洨濮烽悰銉╂⒒娴ｅ搫甯跺鐟帮攻缁傚秴饪伴崼姘ｅ亾閺冨牆绀冩い蹇庣娴滈箖鏌ㄥ┑鍡涱€楀褜鍠栭湁闁绘ɑ鐟ョ€氼喚绮绘ィ鍐╃厱妞ゆ劑鍊曢弸搴ㄦ煟韫囧鍔滈柕鍥у瀵潙螣閸濆嫬袝婵＄偑鍊戦崹娲偡閳哄懎绠栭柍鈺佸暞閸庣喖鏌曢崶褍绨婚柟鍑ゆ嫹

核心提示：这个例子中的第一站是asp页，这个ASP页用ADO与Northwind 数据库连接，将ASP代码移植为VB COM组件-4，为了保持良好的编码习惯，我使用了Option Explicit 并明确地声明了所有变量

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