修改方法：

1、找到admin_nsort.asp

添加一个定义分类页面的函数，你的页面与我的未必相同，请根据自己的不同板块页面修改：

function nsort_formastUrl(v_nsort,v_cid,v_sid)
dim tmp,tmp_cid,tmp_sid
tmp=web_dim(6)&v_nsort&"/"&v_nsort&"_list.asp?"
tmp_cid="c_id="&v_cid
if v_sid>0 then tmp_sid="&s_id="&v_sid
tmp=tmp&tmp_cid&tmp_sid
select case v_nsort
case "art"
tmp=web_dim(6)&"article/article_list.asp?action=more&"&tmp_cid&tmp_sid
case "shop","photo"
tmp=web_dim(6)&v_nsort&"/"&v_nsort&"_list.asp?"&tmp_cid&tmp_sid
case "news"
tmp=web_dim(6)&v_nsort&"/"&"class/c"&v_cid&".shtml"
if v_sid>0 then tmp=web_dim(6)&v_nsort&"/"&v_nsort&"_list.asp?"&tmp_cid&tmp_sid
case "gall"
tmp=web_dim(6)&"gallery/gallery.asp?types=paste&"&tmp_cid&tmp_sid
case "flash","film"
tmp=web_dim(6)&"gallery/gallery.asp?types="&v_nsort&"&"&tmp_cid&tmp_sid
end select
nsort_formastUrl=tmp
end function


2、修改过程：joekoe_chk_js()
可以把下面代码直接覆盖原来过程

sub joekoe_chk_js()
  dim rs2,sql2,ncid,temp1,file_name,c_num
  dim temp2,file_name2,temp3,file_name3
  file_name=web_dim(6)&"style/data_sort_"&nsort&".asp"
  file_name2=web_dim(6)&"nsort/ul_sort_"&nsort&".htm"
  file_name3=web_dim(6)&"nsort/ul_sort_"&nsort&".js"
  i=0
  ncid=0
  c_num=5
  sql="select count(c_id) from jk_class where nsort='"&nsort&"'"
  set rs=joekoe_cms.exec(sql,1)
  if not rs.eof then
    c_num=int(rs(0))-1
  end if
  rs.close
  temp1=temp1&"<"&"%" & _
      vbcrlf&"redim sort_dim("&c_num&")"
  sql="select c_id,c_name from jk_class where nsort='"&nsort&"' order by c_order,c_id"
  set rs=joekoe_cms.exec(sql,1)
  do while not rs.eof
    cid=rs(0)
    cname=rs("c_name")
    temp1=temp1&vbcrlf&"sort_dim("&i&")="""&code_fso(cname,1,1)&":"&cid
    temp2=temp2&vbcrlf&"<ul>"&vbcrlf&" <li&n...

查看更多...

该日志是私密日志，只有管理员或发布者可以查看！

写在前面的话:此篇还是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中:

 

查看更多...

缓存数
Application.Contents.count

http://www.tianqi123.com/

http://mimg.163.com/tianqi/city/wet_set.html

For...Next 语句 
以指定次数重复执行一组语句。 

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 

查看更多...

1、天气预报插件（yahoo）

作者：舜子， 日期：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、外国天气预报代码

打开数据库article 添加字段pic 100
打开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>" & _
   ...

查看更多...

sub main_news_pic(cs_tnum,cs_cnum,cs_sid)   
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

查看更多...