ASP网站制作之天真使用缓存类的例子

缺点：正版成本价格贵（盗版就不说了）、不够安全，大多数服务器用windows系统，没有linux安全缓存<%


--------------------------显现供给信息
jz_cid=分类ID
jz_type=信息范例
jz_tree=目次条理
jz_tr=显现几行
jz_td=显现几列
jz_txt=每列显现几个字
jz_target=翻开链接体例
jz_order=排序体例
jz_date=是不是显现工夫

Privatefunctionjz_show_00_00(jz_cid,jz_type,jz_tree,jz_tr,jz_td,jz_txt,jz_target,jz_order,jz_date)
dimrows_A(1),rows_b(1),reval,i
dimjz_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)="SELECTjz_01,jz_15fromJz_News_Classwherejz_01="&jz_cid
calljz.conn_00(0,1)
calljz.c_r_s(0,true,true)
calljz.c_r_o(0,0,1)
rows_A(1)=jz.rs(0).GetRows
jz.rs(0).close
jz.sql(0)="SELECTdistincttop"&jz_temp(0,0)&"jz_0,jz_2,jz_3,jz_18fromJz_Trade_messagewherejz_3="&jz_type&"ORDERBYjz_0desc"
calljz.c_r_o(0,0,1)
rows_b(1)=jz.rs(0).GetRows
calljz.c_r_e(0,true,true)

rows_b(0)=ubound(rows_b(1),2)

ifrows_b(0)>0then
Response.Write(rows_b(0))
reval=reval&"<ul><divclass=""interval_00"">　</div>"
ifrows_b(0)>=jz_temp(0,0)then
fori=0tojz_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
fori=0torows_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)
fori=1tojz_temp(1,0)
reval=reval&jz_show_00_02()
next
endif




reval=reval&"</ul>"
endif

jz_show_00_00=reval
endfunction

-------------
str_0=分类ID
str_1=信息模板
str_2=网站目次条理
str_3=信息ID
str_4=信息题目
str_5=信息工夫
str_6=每列显现几个字
str_7=翻开链接体例
str_8=是不是显现工夫

Privatefunctionjz_show_00_01(str_0,str_1,str_2,str_3,str_4,str_5,str_6,str_7,str_8)
dimjz_title
jz_title=str_4
iflen(str_4)>=str_6thenstr_4=(strLeft(str_4,str_6*2-3)&"..")
jz_show_00_01="<li><ahref="""&str_2&str_1&"?cid="&str_0&"&id="&str_3&"""title="""&jz_title&""""&str_7&">"
jz_show_00_01=jz_show_00_01&str_4
jz_show_00_01=jz_show_00_01&"</a>"
ifstr_8thenjz_show_00_01=jz_show_00_01&"("&str_5&")"
jz_show_00_01=jz_show_00_01&"</li>"

endfunction


------------------
Privatefunctionjz_show_00_02()
jz_show_00_02="<li><ahref=""#姚海涛"">暂无材料......</a></li>"
endfunction

---------------------信息显现.....
str_0=信息ID号
str_1=路径条理

Privatefunctionjz_show_00_03(str_0,str_1)
dimrows_A(1),rows_b(1),reval,i
dimjz_temp(1,1)

jz.sql(0)="SELECT*fromJz_Trade_messagewherejz_0="&str_0
calljz.conn_00(0,tree)
calljz.c_r_s(0,true,true)
Application.Lock
jz.Conn(0).execute("updateJz_Trade_messagesetjz_20=jz_20+1wherejz_0="&str_0)
Application.Unlock
calljz.c_r_o(0,3,3)
Application.Lock
jz_temp(0,0)=jz.rs(0)("jz_20")
ifjz_temp(0,0)=""orjz_temp(0,0)=emptyorjz_temp(0,0)<100then
jz.rs(0)("jz_20")=688
jz.rs(0).update
endif
Application.unLock

rows_A(1)=jz.rs(0).GetRows
jz.rs(0).close
jz.sql(0)="SELECTjz_00,jz_01fromJz_trade_Classwherejz_00="&rows_A(1)(1,0)
calljz.c_r_o(0,0,1)
rows_b(1)=jz.rs(0).GetRows
calljz.c_r_e(0,true,true)

jz.cache=rows_A(1)(2,0)
jz.replace_000("{$title}")



jz.cache=rows_b(1)(1,0)
jz.replace_000("{$jz_1}")

jz.cache=rows_a(1)(2,0)
jz.replace_000("{$jz_2}")

jz.cache=jz_show_00_04(rows_A(1)(3,0))
jz.replace_000("{$jz_3}")

jz.cache=rows_A(1)(4,0)
jz.replace_000("{$jz_4}")

jz.cache=jz_show_00_05(rows_A(1)(5,0))
jz.replace_000("{$jz_5}")

jz.cache=rows_A(1)(6,0)
jz.repl</p>想法是和程序员的想法不一样的.至于为什么.大家去想一想.跟心理学有关的

掌握asp的特性而且一定要知道为什么。

ASP主要是用好六个对象，其实最主要的是用好其中两个：response和request，就可以随心所欲地控制网页变换和响应用户动作了。

掌握asp的特性而且一定要知道为什么。

弱类型造成潜在的出错可能：尽管弱数据类型的编程语言使用起来回方便一些，但相对于它所造成的出错几率是远远得不偿失的。

兴趣爱好，那么你无须学编程，申请一个域名和空间，在网上下载一些免费开源的CMS系统，你不用改代码，只须熟悉它们的后台操作，像office一样简单方便，很快就能建一个站点，很多站长都是这样做的

以HTML语言整合(HTML负责界面上，ASP则负责功能上)形成一个B/S(浏览器/服务器)模式的网页程序。

我认为比较好的方法是找一些比较经典的例子，每个例子比较集中一种编程思想而设计的。

Request:从字面上讲就是“请求”，因此这个是处理客户端提交的东东的,例如Resuest.Form，Request.QueryString,或者干脆Request("变量名")