[ASP]提高数据显示效率--缓存探幽
作者:cmscn 日期:2006-12-21
写在前面的话:此篇还是asp相关的,相信玩ASP的都有这个感觉,当数据有5万多条时-------just like音乐网,要调用最新的10条在页面显示,糟糕的是,当n多用户打开页面访问的时候,每个用户每次都要读取数据库一次,这无疑降低了效率,很明显,如果能把数据能保存在内存上,然后读取,无疑加快了速度. 所谓缓存其实就是在内存中开辟一个用来保存数据的空间，使用缓存你就不用频繁的访问你保存在硬盘上的数据了，因为这些数据我们希望每个用户都能看到效果一样,考虑使用的是application对象,因为它是所有访问者的共用的对象,存储的信息和定义的事件能够为所有者访问者使用,这里要使用asp内置对象APPLICATION了,关于application,有2个方法[lock和unlock],2个集合[content和staticobjects],2个事件[开始的application_onstart和application_end],application变量不会因为用户的离开而消失,一旦建立,一直等到网站关闭和程序卸载为止,正因为如此,使用的时候要特别小心!,否则会占用内存,我在这里不用多说,有兴趣的查阅相关资料吧,大体是这样.我们是把数据写入一个自定义的application里面,在制定的时间读取刷新的,大体思路就是这样.
实例演示.先建立一个简单的数据库,写个function读取一下,写入一个dim变量temp中:
temp = temp & "</table>"
'这个函数原来给一个变量temp付上记录的值
Dim sql, conn, rs
'符合条件的sql语句
sql = "Select id, [szd_f], [szd_t] FROM admin"
'打开数据库连接
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db.mdb")
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 1, 3
'当符合sq语句l的数据没有显示完毕时
If Not rs.EOF Then
'给temp变量赋值
Dim temp
temp = "<table width=""90%"" align=""center"""
temp = temp & " border=""1"" bordercolor=""silver"""
temp = temp & " cellspacing=""2"" cellpadding=""0"">"
temp = temp & "<tr bgcolor=""#CCDDEE""><td width=""5%"""
temp = temp & ">ID</td><td>操作</td>"
temp = temp & "<td>数值</td></tr>"
'存在数据,接着赋值
While Not rs.EOF
temp = temp & "<tr><td bgcolor=""#CCDDEE"">"
temp = temp & rs("ID") & "</td><td>" & rs("szd_f")
temp = temp & "</td><td>" & rs("szd_t")
temp = temp & "</td></tr>"
rs.MoveNext
Wend
'temp赋值完毕,把它再返回给函数
DisplayRecords = temp
Else
DisplayRecords = "Data Not Available."
End If
'释放内存
rs.Close
conn.Close
Set rs = Nothing
Set conn = Nothing
End Function
天气预报
作者:cmscn 日期:2006-12-19
网易天气预报
作者:cmscn 日期:2006-12-19
For...Next 语句
作者:cmscn 日期:2006-12-19
以指定次数重复执行一组语句。
For counter = start To end [Step step]
[statements]
[Exit For]
[statements]
Next
参数
counter
用做循环计数器的数值变量。这个变量不能是数组元素或用户自定义类型的元素。
start
counter 的初值。
end
counter 的终值。
step
counter 的步长。如果没有指定，则 step 的默认值为 1。
statements
For 和 Next 之间的一条或多条语句，将被执行指定次数。
说明
step 参数可以是正数或负数。step 参数值决定循环的执行情况，如下所示：
值 如果 ... 则循环执行
正数或 0 counter <= end
负数 counter >= end
当循环启动并且所有循环中的语句都执行后，step 值被加到 counter 中。这时，或者循环中的语句再次执行（基于循环开始执行时同样的测试），或者退出循环并从 Next 语句之后的语句继续执行。
注意 在循环体内改变 counter 的值，将会使程序代码的阅读和调试变得更加困难。
Exit For 只能用于 For Each...Next 或 For...Next 结构中，提供另一种退出循环的方法。可在语句中的任意位置放置任意个 Exit For 语句。Exit For 经常和条件判断语句一起使用（例如 If...Then），并立即将控制权转移到 Next 之后的语句。
可以将一个 For...Next 循环放置在另一个 For...Next 循环中，组成嵌套循环。每个循环中的 counter 要使用不同的变量名。下面的结构是正确的：
For I = 1 To 10
For J = 1 To 10
For K = 1 To 10
. . .
Next
Next
Next
*天气预报类插件与代码*
作者:cmscn 日期:2006-12-18
作者：舜子， 日期：2005-09-18
2、天气预报插件 WeatherReport 提供下载（qq样式1）
作者: zivn 日期：2006-3-17
3.天气预报代码（qq样式2）
作者：青山 日期：2006-8-9
3.天气预报插件（根据访客所在地，显示当地天气）(265.com 代码)
作者： ideacm 日期：2006-4-25
4、天气预报代码
作者：mxj891 日期：2006-11-10
5.163邮箱天气预报(163代码)
作者：beksin 日期： 2006-7-29
6、外国天气预报代码
给文章模块添加图片调用
作者:cmscn 日期:2006-12-18
打开admin_article 在相应处添加pic
在上传图片上添加
打开article_view.asp
添加字段pic
response.write vbcrlf&article_view1(id,topic,tim,comto,author,pic)
打开con_article.asp
[hidden]function article_view1(v_id,v_topic,v_tim,v_comto,v_author,v_pic)
dim n_pic,temp1
if v_pic<>"" and var_null(v_pic)<>"" then n_pic="<tr><td align=center><img src='"&pic_url(v_pic,0)&"' border=0 onload=""javascript:if(this.width>"&max_w&")this.width="&max_w&";""></td></tr>"
temp1=temp1&vbcrlf&"<table cellspacing=0 cellpadding=1 class=table0>" & _
vbcrlf&"<tr><td class=td> "+img_skin(web_img_m)+" "+v_topic+"</td></tr>" & _
vbcrlf&"<tr class=bg_tds><td align=right height="&m_hei&" class=gray>作者："&v_author&" 出处："&v_comto&" 更新时间： "&v_tim&" </td></tr>" & _
vbcrlf&"<tr><td height=10></td></tr>" & _
vbcrlf&"<tr><td valign=top>" & _
vbcrlf&" <table border=0 class=tablew>"&n_pic&"<tr><td>" & _
...
1.2首页调用新闻栏目指定子栏目的图片
作者:cmscn 日期:2006-12-18
dim tmp1,tmp_topic,tmp_url
tmp1=vbcrlf&"<tr align=center>"
sql="select top "&cs_tnum&" id,topic,pic from news where hidden=1 and ispic=1 and c_id="&cs_sid&" order by id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
tmp_topic=rs(1)
tmp_url="news_view.asp?id="&rs(0)
tmp1=tmp1&vbcrlf&"<td align=center>" & _
vbcrlf&" <table border=0 cellspacing=0 cellpadding=0>" & _
vbcrlf&" <tr><td align=center>"&pic_fk(rs("pic"),1,tmp_url)&"</td></tr>" & _
vbcrlf&" <tr><td align=center height="&dim_num(6)&"><a href='"&tmp_url&"' target=_blank>"&joekoe_cms.code_html(tmp_topic,1,cs_cnum)&"</a></td></tr>" & _
vbcrlf&" </table>" & _
vbcrlf&"</td></tr>"
rs.movenext
loop
rs.close
tmp1="<table border=0 cellspacing=0 cellpadding=2 width='100%'>"&tmp1&vbcrlf&"</table>"
response.write vbcrlf&"<table cellspacing=1 cellpadding=4 class=table>" & _
vbcrlf&"<tr class=bg_td><td align=center>"&tmp1&"</td></tr>" & _
vbcrlf&"</table>"&ukong
end sub
调用:call main_news_pic(4,20,126)
蓝色:图片数量
绿色:标题字数
红色:一级栏目ID
图片新闻的另一种调用方法
作者:cmscn 日期:2006-12-17
引用内容dim tmp1,id,topic,pic,tmp_title,tmp_img
tmp_title="头条报道"
tmp_img="news1"
tmp1=vbcrlf&"<tr align=center>"
sql="select top 1 id,topic,word,pic from news where hidden=1 and ispic=1 order by id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
id=rs("id")
topic=rs("topic")
tmp1=tmp1&vbcrlf&"<td>" & _
vbcrlf&" <table border=0 cellspacing=0 cellpadding=0>" & _
vbcrlf&" <tr><td align=center width=80 rowspan=2>"&pic_fk(rs("pic"),2,"../news/view.asp?id="&id)&"</td><td align=center width=300><a class=h_tilte href='../news/view.asp?id="&id&"' target=_blank alt='"&joekoe_cms.code_html(topic,1,0)&"'><i>"&joekoe_cms.code_html(topic,1,13)&"</i></a></td></tr>" & _
vbcrlf&" <tr><td align=left><a href='../news/view.asp?id="&id&"' target=_blank alt='"&joekoe_cms.code_html(topic,1,0)&"'>"&joekoe_cms.code_html(rs("word"),1,230)&"</a>...... <a href='../news/view.asp?id="&id&"'><font color=red>评论</font></a><a href='../news/view.asp?id="&id&"'><font color=red>全文</font></a></td>"
rs.movenext
loop
rs.close
tmp1=tmp1&vbcrlf&"</tr>"
tmp1="<table border=0 cellspacing=0 cellpadding=2 width=444>"&tmp1&vbcrlf&"</table>"
response.write vbcrlf&"<table cellspacing=1 cellpadding=4 class=#efefef>" & _
vbcrlf&"<tr><td class=tdi> "&img_skin("n_"&tmp_img)&" "&tmp_title&"</td></tr>" & _
&n...
首页调用论坛图片
作者:cmscn 日期:2006-12-17
dim tmp1,id,iid,pic,topic,fid,name,counter
tmp1=vbcrlf&"<tr align=center>"
sql="select top "&n&" upload.id,upload.iid,bbs_topic.topic,bbs_topic.counter,bbs_topic.forum_id,bbs_topic.username,upload.url from upload INNER JOIN bbs_topic ON upload.iid = bbs_topic.id where nsort='forum' and genre='jpg' or genre='gif' or genre='bmp' order by upload.id desc"
set rs=joekoe_cms.exec(sql,1)
do while not rs.eof
id=rs("iid")
pic=rs("url")
topic=rs("topic")
fid=rs("forum_id")
name=rs("username")
counter=rs("counter")
tmp1=tmp1&vbcrlf&" <table border=0 cellspacing=0 cellpadding=0>" & _
vbcrlf&" <tr><td>"&pic_fk(pic,4,"forum/forum_view.asp?forum_id="&fid&"&view_id="&id)&"</td>" & _
vbcrlf&" <td><a href='forum/forum_view.asp?forum_id="&fid&"&view_id="&id&"' target=_blank alt='标题："&joekoe_cms.code_html(topic,1,0)&"<br>人气："&counter&"<br>发 布 人："&name&"'>"&joekoe_cms.code_html(topic,1,30)&"</a></td></td>" & _
rs.movenext
loop
rs.close
tmp1=tmp1&vbcrlf&"</tr>"
tmp1="<table border=0 cellspacing=0 cellpadding=0 width='100%'>"&tmp1&vbcrlf&"</table>"
response.write vbcrlf&"<table cellspacing=0 cellpadding=0 class=table>" & _
vbcrlf&"<tr><td align=center>"&tmp1&"</td></tr>" & _
vbcrlf&"</table>"
end sub
调用方法:<%call forum_pic(1)%>
