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

 711网络 网页编程ASP代码

无限分类生成HTML文件

来源: 互联网    日期:2008-7-5
 
无限分类生成HTML文件


'接收传递过来的文章路径参数

 set rsHtmlFileCode=server.CreateObject ("ADODB.RecordSet")
 sql4="select * from Article where ID="&CurrentArticleID
 rsHtmlFileCode.Open sql4,conn,1,3
 if rsHtmlFileCode.EOF and rsHtmlFileCode.bof then
  response.Write("alert('没有找到需要生成HTML的文章数据内容');history.go(-1);")
  response.End()
 else
  
  ClassDepth=rs("ClassDepth")
  ClassID=rs("ClassID")
  ParentID=rs("ParentID")
  '获取当前文章路径
  if ClassDepth=0 then
  CurrentClassDir="/"&sClassDir
  else
  sClassDepth=ClassDepth-1
  sParentID=ParentID
  CurrentClassDir=""
  GetCurrentClassDirPath sClassDepth,sParentID,CurrentClassDir   
  end if
  '建立当前文章目录
  CreatHtmlFolder CurrentClassDir
  
 end if
 rsHtmlFileCode.close
 set rsHtmlFileCode=nothing
 
'获取文章对应的静态生成页面文件路径 
Function GetCurrentClassDirPath(CurrentClassDepth,CurrentClassID,CurrentClassDir)

 set rsClsssDirPath=server.CreateObject ("ADODB.RecordSet")
 sqlClsssDirPath="select * from ArticleClass where ParentID="&CurrentClassID
 rsClsssDirPath.Open sqlClsssDirPath,conn,1,3
 if rsClsssDirPath.EOF and rsClsssDirPath.bof then
  response.Write("alert('没有找到需要生成HTML的文章数据内容');history.go(-1);")
  response.End()
 else
  
  sClassDepth=rsClsssDirPath("ClassDepth")-1
  sParentID=rsClsssDirPath("ParentID")
  sClassDir=rsClsssDirPath("ClassDir")
  
  if sClassDepth=0 then
  
   if CurrentClassDir="" then
   '当前文章的类别是顶类下的文章的路径
   StrClassDir="/"&sClassDir
   else
   '多级类别下的文章的路径
   StrClassDir=sClassDir&"/"&CurrentClassDir   
   end if
   Exit Function
  else
  CurrentClassDir=sClassDir&"/"&CurrentClassDir
  GetCurrentClassDirPath sClassDepth,sParentID,CurrentClassDir  
  end if   
 end if
 rsClsssDirPath.close
 set rsClsssDirPath=nothing

end Function

'建立对应的文件夹
Function  CreatHtmlFolder(CurrentFolderName)
  CurrentFolderPath=Server.MapPath(CurrentFolderName)
  Set FolderObject=Server.CreateObject("Scripting.FileSystemObject")
        if not FolderObject.FolderExists(CurrentFolderPath)  then  
    FolderObject.CreateFolder(CurrentFolderPath)
  response.Write(CurrentFolderPath&"文件夹创建完成")
  else
  response.Write(CurrentFolderPath&"文件夹已存在")  
        end  if   
  set FolderObject=nothing
end Function

'建立对应的文件内容
Function  CreatHtmlFile(ClassDirPath,FileName,FileExt,ArticleID,HtmlContentCode)
Set fso = CreateObject("scripting.FileSystemObject")
HtmlFileName=ClassDirPath&"/"&HtmlFileName&"."&HtmlFileExt
HtmlFileNamePath=Server.MapPath(HtmlFileNamePath)
Set ObjHtmlFile=fso.OpenTextFile(HtmlFileNamePath,8,True)

ObjHtmlFile.WriteLine HtmlContentCode

ObjHtmlFile.Close
Set ObjHtmlFile=Nothing
end Function



更多的无限分类生成HTML文件请到论坛查看: http://BBS.TC711.COM



【 双击滚屏 】 【 评论 】 【 收藏 】 【 打印 】 【 关闭 】 来源: 互联网    日期:2008-7-5   

发 表 评 论
查看评论

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

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