首页 | 站长免费中心 | 新手上路 | 网站运营 | 网页制作 | 图片设计 | 动画设计 | 网页编程 | 网页特效 | 本站专题 | 虚拟主机 | 域名注册 | 网站建设 | 程序下载
       免费空间资源 | 新闻咨询 | 免费域名 | 免费网盘 | 网站推广 | 网站策划 | 建站经验 | 网站优化 | 网页代码 | 源码下载 | 音乐小偷 | 网络赚钱 | 论坛交流
网站建设
网站建设
虚拟主机
虚拟主机
域名注册
域名注册
711网络首页
站长工具
站长工具
网站源码
网站源码
站长论坛
站长论坛

 711网络 网页编程ASP代码

生成全部分类补丁(蓝雨HTML2.0)

来源: 互联网    日期:2007-2-15
 
功能说明:
一次就是生成全部分类生成大分类及大分类下的所有小分类!!

注意:使用此功能后将自动生成栏目首页及网站首页,无须再次生成首页!

以后的操作将是生成全部分类,生成全部文章 完成!!

修改方法
查找admin/inc/function.asp里面function fat(a,b,c,d,e)把相关代码替换成下面代码就可以了!

function fat(a,b,c,d,e)
ds=timer()
tab=tab+"<span id=showimport><font color=red><b>全部分类和首页生成中,请稍候……</b></font></span><ie:download id=""odownload"" style=""behavior:url(#default#download)"" />"
If e="" then
set rs=conn.execute("select id from ["&a&"]")
else
set rs=conn.execute("select id from ["&a&"] where ty="&e&" or id="&e&"")
end If
do while not rs.eof '总循环开始
ly=""
tid=int(rs(0))
fid=""&rs(0)&""
set list=conn.execute("select id from ["&a&"] where ty="&tid&"") '获取该分类是否含有二级分类,有则取的二级分类所有id
do while not list.eof
ly=ly+" or ty="&list(0)&""
list.movenext
loop
list.close
set list=nothing
sql="select id from ["&b&"] where (ty="&tid&ly&")"
set rs1=server.createobject("adodb.recordset")
rs1.open sql,conn,1,1
rs1.pagesize=c
mpage=rs1.pagecount
for i=1 to mpage
tab=tab+"<script>function ondownloaddone(downdate){showimport.innerhtml=downdate}odownload.startdownload('fso_ty_"&d&".asp?tid="&fid&"&page="&i&"',ondownloaddone)</script>"
k=mpage
Next
rs1.close
set rs1=Nothing
m=m+k
l=l+1
rs.movenext '总循环结束
Loop
tab=tab+"<script>function ondownloaddone(downdate){showimport.innerhtml=downdate}odownload.startdownload('fso_"&d&".asp?i="&d&"',ondownloaddone)</script>"
tab=tab+"<script>function ondownloaddone(downdate){showimport.innerhtml=downdate}odownload.startdownload('fso_index.asp',ondownloaddone)</script>"
tab=tab+"<meta http-equiv=refresh content='0; url=fso_ty_"&d&".asp?type=ok&kid="&l&"&tid=1&d="&ds&"&page="&m&"'>"
'tab=tab+"<br><p><b>生成成功!</b>完成时间"&m&"("&now()&")</p><a href=""javascript:history.back()"">返回上一页</a>"
rs.close
set rs=nothing
fat=tab
end function


更多的生成全部分类补丁(蓝雨HTML2.0)请到论坛查看: http://BBS.TC711.COM



【 双击滚屏 】 【 评论 】 【 收藏 】 【 打印 】 【 关闭 】 来源: 互联网    日期:2007-2-15   

发 表 评 论
查看评论

  您的大名:
  • 尊重网上道德,遵守中华人民共和国的各项有关法律法规
  • 承担一切因您的行为而直接或间接导致的民事或刑事法律责任
  • 本站管理人员有权保留或删除其管辖留言中的任意内容
  • 本站有权在网站内转载或引用您的评论
  • 参与本评论即表明您已经阅读并接受上述条款
认证编码: 刷新验证码
点评内容: 字数0
  精品推荐  
  本月推荐  
  友情赞助  

关于我们 | 联系我们 | 广告投放 | 留言反馈 | 免费程序 | 虚拟主机 | 网站建设 |  网站推广 |  google_sitemap baidu_sitemap RSS订阅
本站所有资源均来自互联网,如有侵犯您的版权或其他问题,请通知管理员,我们会在最短的时间回复您
Copyright © 2005-2015 Tc711.Com All Rights Reserved 版权所有·711网络   蜀ICP备05021915号
110网监备案 信息产业备案 不良信息举报