繁體中文当前位置: 首页 > 图文教程 > 网络编程 > ASP > 将ASP代码移植为VB COM组件-4
- ASP
- asp下用fso生成js文件的代码
- 非常好用的asp备份,还原SQL数据库的代码
- asp从字符串里截取N个带HTML的字符的函数
- asp下Response.Buffer提速
- ASP,vbs正则轮翻在文章段落后加上网址等内容
- ASP为字符串中的网址自动加上链接
- ASP vbs 代码大小写规范
- ASP实现智能搜索实现代码
- asp结合fso实现文件或文件夹创建删除等操作的函数
- asp下对POST提交数据限制的解决方法
- asp+Access通用的自动替换数据库中的字符串
- asp alexa查询小偷程序
- 迅雷API接口_通过脚本调用迅雷自动下载资源
- asp下的一个检测链接是否正常的函数
- asp一句话木马原理分析
- asp生成不需要数据库的中奖码
- asp遍历目录及子目录的函数
- asp数据库连接rs("user.id")
- vbs或asp采集文章时网页编码问题
- 新手asp编程的基本法则与常见错误注意事项
将ASP代码移植为VB COM组件-4
出处:互联网 整理: 软晨网（RuanChen.com） 发布: 2009-11-03 浏览: 164 ::
收藏到网摘: 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
