增加文章排行，一个函数在library.asp 增加相关日志 增加远程图片本地化 /class/cls_article.asp 修改很多，广告，引用地址 /blogedit.asp与/blogpost.asp 添加分页提示 修改blogpost.asp 在发帖第二步也可以选择栏目 修改function.asp 增加新函数，防止复制产生乱码 修改cls_article.asp 自动复制地址和网站 增加调用函数 修改common.js 增加自动复制代码 修改header.asp 修改body防止复制 增加最大人数统计，数据库表 blog_info必需增加2个字段blog_MaxNums,MaxNumsTime library.asp 184行 修改’输出日志统计信息 增加以下内容 ‘菊开那夜添加最大在线人数统计开始 Dim vOnline,Rs_Max,blog_MaxNums,MaxNumsTime vOnline=getOnline Set Rs_Max=Conn.Execute(“SELECT blog_MaxNums,MaxNumsTime from blog_Info”) SQLQueryNums=SQLQueryNums+1 blog_MaxNums=Rs_Max(“blog_MaxNums”) MaxNumsTime=Rs_Max(“MaxNumsTime”) MaxNumsTime=year(MaxNumsTime)&”-“&month(MaxNumsTime)&”-“&day(MaxNumsTime)&” “&hour(MaxNumsTime)&”:”&minute(MaxNumsTime)&”:”&second(MaxNumsTime) if vOnline>blog_MaxNums then conn.execute(“update blog_info set blog_MaxNums='”&vOnline&”‘,MaxNumsTime=Now()”) end if str=replace(str,”$blog_MaxNums$”,blog_MaxNums)’菊开那夜添加最大人数统计 str=replace(str,”$MaxNumsTime$”,MaxNumsTime)’菊开那夜添加最大人数统 ‘结束 cache.asp 修改日志存档样式 274行 第一处增加变量 Dim com_archive com_archive=0 第二修改数组形式 Month_array=Array(“01月”,”02月”,”03月”,”04月”,”05月”,”06月”,”07月”,”08月”,”09月”,”10月”,”11月”,”12月”) 第三读取日志归档缓存for循环换成下面的形式 ‘—————–读取日志归档缓存——————– if action<>2 then Dim archive_item_Len,Month_array Dim com_archive,count_num com_archive=0 count_num=1 if ubound(blog_archive,1)=0 then archive=””:exit function Month_array=Array(“01月”,”02月”,”03月”,”04月”,”05月”,”06月”,”07月”,”08月”,”09月”,”10月”,”11月”,”12月”) archive_item_Len=ubound(blog_archive,2) For i=0 to archive_item_Len if blog_archive(1,i)<>com_archive then archive=archive&”“&blog_archive(1,i)&”年” count_num=1 end if archive=archive&”“&Month_array(blog_archive(2,i)-1)&”” if count_num mod 6 =0 then archive=archive&”
” com_archive=blog_archive(1,i) count_num=count_num+1 Next end if ================================================== member.asp 修改用户显示样式 136行增加actions定义,接着 actions=request.QueryString(“actions”) if actions=”” then actions=”mem_RegTime” 修改sql语句 SQL=”SELECT * FROM blog_Member order by “&actions&” desc” 改变每页显示 blog_Mem.PageSize=50 146行
改为
增加登陆次数 数据库增加mem_Logins字段 151行
169行
修改checkUser.asp 55,60,142.147行sql语句增加 mem_Logins 78,97,160行增加memLogin(“mem_Logins”)=memLogin(“mem_Logins”)+1 广告 class/cls_article.asp中添加 template/article.asp静态