ASP无限级分类生成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