例:输出3行4列

<table>
<!--关键-->
<tr>

for i=1 to 3*4

&lt;td&gt;&lt;/td&gt;

if i mod 4=0 then response.write("&lt;/tr&gt;&lt;tr&gt;")

next

</tr>
<!--关键-->
</table>

ASP开发人员为了在他们的设计项目中获得更好的性能和可扩展性而不断努力。幸运地是，有许多书籍和站点在这方面提供了很好的建议。但是这些建议的基础都是从ASP平台工作的结构上所得出的结论，对实际获得的性能的提高没有量的测量。由于这些建议需要更加复杂的编码过程并降低了编码的可读性，开发人员就只能在看不到实际运行效果的情况下，独自衡量为了提高他们ASP应用程序的性能是否值得付出这些代价。

　　本文分为两大部分，我将介绍一些性能测试结果，帮助开发人员来确定某一特定举措是否不仅对将来的项目来说是值得的，并且能够对原来的项目进行更新。在第一部分我将回顾一些ASP开发的基础性问题。在第二部分，将涉及一些最优化ADO函数，并将它们的结果与调用VB COM对象执行相同ADO函数的ASP页面进行比较。这些结果很让人开眼界，甚至有些时候是很令人吃惊的。

　　在本文中，我们将回答以下问题：

　　* 将ASP生成的内容写入响应流中最有效的方法是什么？
　　* 是否应该开启缓冲器？
　　* 是否应该考虑向ASP代码中增加注释？
　　* 是否应该为页面明确地设置默认语言？
　　

通过脚本程序启动缓冲器
　　在ASP脚本的顶部包含Response.Buffer=True ，IIS就会将页面的内容缓存。

　　< % OPTION EXPLICIT
　　Response.Buffer = true
　　Dim FirstName
　　…

　　/app1/buffer__1.asp的片段

　　以前的最佳（反应时间）= 7.05 msec/page
　　反应时间 = 6.08 msec/page
　　差= -0.97 msec (降低13.7%)

　　性能得到了极大提高。但是等等，还能有更好的。

　　通过服务器配置启动缓冲器

　　虽然在IIS 5.0中缓冲器是被默认启动的，但是在IIS 4.0中还必须手动来启动它。这时要找到站点的Properties 对话框，在那里，从Home Directory 标签中选择配置按钮。然后在"App options"下选择"enable buffering" 。对于这个测试，Response.Buffer 语句从脚本中被移走了。

　　以前的最佳= 7.05

本文第一部分的重要之处在于许多小事情的累积。为了强调这个问题，我设置了最后一个测试，在其中进行了我们以前曾经测试过的看来无所谓但实际上有坏影响的所有操作。我包含了许多Response.Write 声明、关闭了缓冲器、设置了默认语言、去掉了Option Explicit 引用并初始化了错误句柄。

　　< %@ LANGUAGE=VBSCRIPT % >
　　< %
　　On Error Resume Next
　　FirstName = "John"
　　…
　　BirthDate = "1/1/1950"
　　Response.Write("< html >")
　　Response.Write("< head >")
　　Response.Write(" < title >Response Test< /title >")
　　Response.Write("< /head >")
　　Response.Write("< body >")
　　Response.Write("< h1 >Response Test< /h1 >")

首先，我们知道在页面中显示图片是如下代码：

　　<img src="pic.gif" border="0" width="300" height="260">

src是图片路径，border控制图片边缘宽度，width是图片的长度，height是图片的高度。缩略图的生成其实就是在原始尺寸上缩放。但一般为了尽量少失真，我们都会按比例缩放。于是，获取图片的长宽尺寸也就成了生成缩略图的重点。

生成缩略图的步骤(原来它不是真正的缩略图生成程序,浪费我的时间)：

1.无组件获取图片大小

<%
'****************************************
'Get Picture Size(cls_GetImgSize.asp)
'利用ADODB.stream获取图片尺寸
'****************************************
Class cls_GetImgSize
Dim aso

Private Sub Class_Initialize
Set aso=CreateObject("Ado

语法:

recordset.Open Source, ActiveConnection, CursorType, LockType, Options

参数说明:
Source

可选，变体型，计算 Command 对象的变量名、SQL 语句、表名、存储过程调用或持久 Recordset 文件名。 ActiveConnection 可选。变体型，计算有效 Connection 对象变量名；或字符串，包含 ConnectionString 参数。

CursorType

可选，CursorTypeEnum 值，确定提供者打开 Recordset 时应该使用的游标类型。

可为下列常量之一（参阅 CursorType 属性可获得这些设置的定义）。
值

常量 说明

--- ------------------- -----------------------
0

AdOpenForwardOnly 默认值）打开仅向前类型游标。

1 Ad

对于小数据量，xml文件在检索更新上于ACCESS有很多优势。

下面说一下创建，查询，修改等对xml操作的主要方法

'创建DOM对象
set objDom=server.CreateObject("MicroSoft.XMLDom")

'取得xml数据
'方法1 取得xml文件的xml数据
objDom.load("c:\test.xml")
'方法2 取得xml数据串的数据
objDom.loadxml("<people><man name="sd"/></people>")

'创建一个节点对象
Set Newnode=objDom.CreateElement("people")
'给这个节点赴值
Newnode.Text="人"
' 给这个节点添加属性
Set NewAttribute=objDom.CreateNode("attribute","name","")
NewAttribute.Text= "张三"
Newnode.SetAttributeNode NewAttribute
'给这个节点添加子节点

conn.execute("select [user] from [biao] where [id]=1",0,1)(0)

前面的0，1与open sql,conn,0,1的意思一样
只读打开，指针只能向下移，为了最快读取一个值采用的最快方法
后面的（0）是读取列中第一个字段值

例：response.write conn.execute("select [user] from [biao] where [id]=1",0,1)(0)

这样就输出了第一条记录id=1的字段user的值
相当于
set rs=conn.execute(select [user] form...)
response.write rs(0)

在网站前台产品展示时，一般用缩略图，点击进入然后看到大图。
缩略图带来了两个烦劳：
1.如果后台只传一张大图，显示缩略图时只是将大图固定宽度和高度，这样不但造成缩略图变形，而且使得页面访问速度缓慢。
2.如果后台每次上传时，都上传两张图片，一张大图，一张缩略图。这样的话，没有1中的问题，但是给后台人员造成很大麻烦。因为后台人员并不一定知道处理生成缩略图；即使知道并能快速处理，也浪费掉一些时间。

下面的代码可以帮您用AspJpeg组件，按宽高比例，真正生成缩略图
AspJpeg组件下载：http://www.aspjpeg.com/download.html
AspJpeg组件使用：http://www.mydw.cn/tech/1/766.html
注册码：48958-77556-02411


<%
Dim sOriginalPath
sOriginalPath = "images/1.gif"
'原图片路径一般上传完毕后获取，或者从数据库获取

Dim sReturnInfo, sSmallPath '函数返回信息, 缩略图路径
sRetur

aspjpeg是一款非常强大的图片处理组件，纯英文版本。不过早已经有免费版和破解版，但是对其进行详细与深入介绍的文章却是不多，即使有也只牵涉到图片缩略和图片水印。可能是因为纯英文的缘故。这里我就是针对这些问题谈谈aspjpeg的高级用法。这里的技术主要包括：

图片缩略

图片水印

安全码技术

图片切割

图片合并

数据库支持

更多不常用的方法介绍

以及相关的一些实用技术

aspjpeg唯一点不足的就是输出方式比较单一。在这里，我们主要谈将图片处理保存后再调用的这种输出方法。另外，本人比较懒，所以有些代码仍然引用于原文档，不懂的地方偶会加以解释！

学过vb或者.net的同志肯定一看就明白了。刷子来着。呵呵。

一、图片缩略


<% Set Jpeg = Server.CreateObject("Persits.Jpeg") 调用组件 Path = Server.MapPath("images") & "\clock.jpg" 待处理图片路径 Jpe