繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 将ASP代码移植为VB COM组件-4
- ASP
- 简单ASP论坛DIY
- 如何防止页面中的敏感信息被提取
- asp创建对象及中文显示解决技巧
- 基础开发入门级：JSP与ASP的比较
- 数据库受到限制怎么办？
- ASP初学者常犯的几个错误
- Asp定时执行操作、Asp定时读取数据库(网页定时操作详解)
- ASP优化：非常实用的ASP提速技巧五则
- ASP教程：解决ASP脚本运行超时的方法
- ASP安全：简单学习ASP连接数据库方法
- 简单一招用ASP实现对IE地址栏参数的判断
- asp控制xml数据库的6段非常的经典代码
- ASP进阶：验证身份证号是否正确的代码
- ASP教程：使用ASP生成图片彩色校验码
- ASP进阶：用ASP判断文件地址是否有效
- ASP进阶：用asp做的简单搜索引擎代码
- ASP实例 挂QQ的网页源代码ASP/PHP
- ASP答疑 解决ASP脚本运行超时的方法
- 轻轻松松破解开别人ASP木马密码的方法
- 用ASP操作Access数据库 ADOX的使用
将ASP代码移植为VB COM组件-4
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 39 ::
收藏到网摘: n/a
使用了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
% >
评论 (0) All
