asp静态页生成类 FSO生成静态类

iteye_6481

于 2008-10-20 21:54:00 发布

阅读量87

点赞数

文章标签： ASP HTML

asp静态页生成类FSO生成静态类

看到好东西怎么能不收藏呢，留下备用，呵呵~~

<%
'/*************************
'/属性设置说明
'/foldename"文件夹名",如果不设置,将自动生成[年月日]时间格式的文件夹名
'/Filename"文件名"(含前后缀),如果不设置,将自动生成[时分秒]时间格式的文件名,后缀为.html
'/Htmlstr"生成的代码内容"
'/*************************

ClassHtmlmaker

PrivateHtmlFolder,HtmlFilename,HtmlContent
Publicpropertyletfoldename(str)
HtmlFolder=str
Endproperty
PublicpropertyletFilename(str)
HtmlFilename=str
Endproperty
PublicpropertyletHtmlstr(str)
HtmlContent=str
Endproperty
'/*************************
'/文件名转换日期函数
'/有点繁索,直接用Right("0"&Year(now),2)，省去了垒碓重复的判断语句!为保留作者代码的完整性，未做修改
'/*************************
PrivateFunctionDatename1(timestr)
dims_year,s_month,s_day
s_year=year(timestr)
iflen(s_year)=2thens_year="20"&s_year
s_month=month(timestr)
ifs_month<10thens_month="0"&s_month
s_day=day(timestr)
ifs_day<10thens_day="0"&s_day
Datename1=s_year&s_month&s_day
EndFunction
PrivateFunctionDatename2(timestr)
dims_hour,s_minute,s_ss
s_hour=hour(timestr)
ifs_hour<10thens_hour="0"&s_hour
s_minute=minute(timestr)
ifs_minute<10thens_minute="0"&s_minute
s_ss=second(timestr)
ifs_ss<10thens_ss="0"&s_ss
Datename2=s_hour&s_minute&s_ss
EndFunction

'/*************************
'/初试化
'/*************************
PrivateSubclass_initialize()
HtmlFolder=Datename1(now)
HtmlFilename=Datename2(now)&".html"
HtmlContent=""
EndSub
PrivateSubclass_terminate()
EndSub

'/*************************
'/Html文件生成
'/*************************
PublicSubHtmlmake()
OnErrorResumeNext
dimfilepath,fso,fout
filepath=HtmlFolder&"/"&HtmlFilename
Setfso=Server.CreateObject("Scripting.FileSystemObject")
Iffso.FolderExists(HtmlFolder)Then
Else
fso.CreateFolder(Server.MapPath(HtmlFolder))
EndIf
Setfout=fso.CreateTextFile(Server.MapPath(filepath),true)
fout.WriteLineHtmlContent
fout.close
EndSub

'/*************************
'/Html文件删除
'/*************************
PublicSubHtmldel()
dimfilepath,fso
filepath=HtmlFolder&"/"&HtmlFilename
Setfso=CreateObject("Scripting.FileSystemObject")
fso.DeleteFile(Server.mappath(filepath))
Setfso=nothing
EndSub

Endclass
%>

示例演示：(MakeTest.asp)


<%
sethtml=newHtmlmaker
html.foldename=Year(now)&"/"&Right("0"&Month(now),2)&"/"&Right("0"&day(now),2)
html.Filename=""&now()&".shtml"
html.Htmlstr="<html><head></head><body>"&now()&"</body></html>"
html.Htmlmake
iferrthen
Response.Write"Error!"
else
Response.Write"OK"
endif
setmyhtml=nothing
%>

iteye_6481

关注

0
点赞
踩
0

收藏

觉得还不错? 一键收藏
0
评论
asp静态页生成类 FSO生成静态类

asp静态页生成类FSO生成静态类看到好东西怎么能不收藏呢，留下备用，呵呵~~ &lt;% '/************************* '/属性设置说明 '/foldename"文件夹名",如果不设置,将自动生成[年月日]时间格式的文件夹名 '/Filename"文件名"(含前后缀),如果不设置,将自动生成[时分秒]时间格式的文件名,后缀为.html '/Htmlstr"生成的代码内...
复制链接

扫一扫