无限分类的html,无限分类生成HTML文件

'无限分类生成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.CloseSet ObjHtmlFile=Nothingend Function