注册 登录  
 加关注
   显示下一条  |  关闭
温馨提示!由于新浪微博认证机制调整,您的新浪微博帐号绑定已过期,请重新绑定!立即重新绑定新浪微博》  |  关闭

汇总技巧

你快乐我快乐.... 汇集各类技巧,传播技巧,让我们共同熟练运用技巧..

 
 
 

日志

 
 

将ASP代码移植为VBCOM组件(4)  

2011-06-04 19:09:56|  分类: ◆ASP技巧 |  标签: |举报 |字号 订阅

  下载LOFTER 我的照片书  |
 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.EO
  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
%
  评论这张
 
阅读(77)| 评论(0)
推荐 转载

历史上的今天

在LOFTER的更多文章

评论

<#--最新日志,群博日志--> <#--推荐日志--> <#--引用记录--> <#--博主推荐--> <#--随机阅读--> <#--首页推荐--> <#--历史上的今天--> <#--被推荐日志--> <#--上一篇,下一篇--> <#-- 热度 --> <#-- 网易新闻广告 --> <#--右边模块结构--> <#--评论模块结构--> <#--引用模块结构--> <#--博主发起的投票-->
 
 
 
 
 
 
 
 
 
 
 
 
 
 

页脚

网易公司版权所有 ©1997-2017