灵活运用缓存类的例子

<%
'--------------------------显示供应信息
'jz_cid=分类ID
'jz_type=信息类型
'jz_tree=目录层次
'jz_tr=显示多少行
'jz_td=显示多少列
'jz_txt=每列显示多少个字
'jz_target=打开链接方式
'jz_order=排序方式
'jz_date=是否显示时间
Private function jz_show_00_00(jz_cid,jz_type,jz_tree,jz_tr,jz_td,jz_txt,jz_target,jz_order,jz_date)
dim rows_A(1),rows_b(1),reval,i
dim jz_temp(1,1)
jz_temp(0,0)=jz_tr*jz_td'算出显示多少条记录
jz_tree=jz.tree_00(jz_tree)
jz_target=jz.target(jz_target)
'Response.Write(jz_target)
jz.sql(0)="SELECT jz_01,jz_15 from Jz_News_Class where jz_01="&jz_cid
call jz.conn_00(0,1)
call jz.c_r_s(0,true,true)
call jz.c_r_o(0,0,1)
rows_A(1)=jz.rs(0).GetRows
jz.rs(0).close
jz.sql(0)="SELECT distinct top "&jz_temp(0,0)&" jz_0,jz_2,jz_3,jz_18 from Jz_Trade_message where jz_3='"&jz_type&"' ORDER BY jz_0 desc"
call jz.c_r_o(0,0,1)
rows_b(1)=jz.rs(0).GetRows
call jz.c_r_e(0,true,true)
rows_b(0)=ubound(rows_b(1),2)
if rows_b(0)>0 then
'Response.Write(rows_b(0))
reval=reval&"<ul><div class=""interval_00"">　</div>"
if rows_b(0)>=jz_temp(0,0) then
for i=0 to jz_temp(0,0)-1
reval=reval&jz_show_00_01(rows_A(1)(0,0),rows_A(1)(1,0),jz_tree,rows_b(1)(0,i),rows_b(1)(1,i),rows_b(1)(3,i),jz_txt,jz_target,jz_date)
next
else
for i=0 to rows_b(0)
reval=reval&jz_show_00_01(rows_A(1)(0,0),rows_A(1)(1,0),jz_tree,rows_b(1)(0,i),rows_b(1)(1,i),rows_b(1)(3,i),jz_txt,jz_target,jz_date)
next
jz_temp(1,0)=jz_temp(0,0)-1-rows_b(0)
for i=1 to jz_temp(1,0)
reval=reval&jz_show_00_02()
next
end if
reval=reval&"</ul>"
end if
jz_show_00_00=reval
end function
'-------------
'str_0=分类ID
'str_1=信息模板

补充：asp教程,技巧与性能优化