Use examples of caching classes flexibly

<%
'--------------------------Display supply information
' Jz_cid= Category ID
' Jz_type= information type
' Jz_tree= directory hierarchy
' Jz_tr= show how many rows
' jz_td= show how many columns
' jz_txt= How many words are displayed per column
' Jz_target= Open link mode
' Jz_order= sorting method
' Jz_date= whether to show time
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 ' figure out how many records to display
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= Category ID
' Str_1= Information template