破解网站发布系统 ASP生成静态页面方法

核心提示： 引用:On Error Resume Next达到自欺欺人、掩耳盗铃的效果，当然规矩的用法是判断文件夹的有无引用:＜%Set fso = Server.CreateObject("Scripting.FileSystemObject")if (fso.FolderExi

引用:

On Error Resume Next

达到自欺欺人、掩耳盗铃的效果。

当然规矩的用法是判断文件夹的有无

引用:

＜%
Set fso = Server.CreateObject("Scripting.FileSystemObject")
if (fso.FolderExists(Server.MapPath(folder))) then
'判断如果存在就不做处理
else
'判断如果不存在则建立新文件夹
fso.CreateFolder(Server.MapPath(folder))
end if
%＞

iii、文件夹是建立了，文件该如何建立呢？主要也就是文件名的生成。当然这个就需要自己来写个函数，功能就是如何生成文件名：

引用:

＜%
function makefilename(fname)
fname = fname '前fname为变量，后fname为函数参数引用
fname = replace(fname,"-","")
fname = replace(fname," ","")
fname = replace(fname,":","")
fname = replace(fname,"PM","")
fname = replace(fname,"AM","")
fname = replace(fname,"上午","")
fname = replace(fname,"下午","")
makefilename = fname & ".html"
end function
%＞

引用函数则：

＜%fname = makefilename(now())%＞

其实嘛，就是以年月日时分秒命名的文件。

iv、最后，生成的文件该如何查看到？当然需要把生成文件的路径保存的数据库中，并且添加到相对应的记录集中了。当然，这在下面的数据库设计时会提及到。