利用FSO生成静态页

Filename=now()
Filename=replace(Filename,"-","")
Filename=replace(Filename," ","")
Filename=replace(Filename,":","")
Filename=replace(Filename,"PM","")
Filename=replace(Filename,"AM","")
Filename=replace(Filename,"上午","")
Filename=replace(Filename,"下午","")
Dim Title,Content,Fso,Shtml
Title=Replace(Request("title"),"'","‘")
Content=Replace(Request("content"),"'","‘")
Rem 显示页面在这里,最好是做成一个模板,直观而且便于修改
Shtml=Shtml&"<html><meta http-equiv=""Content-Type"" content=""text/html; charset=gb2312"">"
Shtml=Shtml&"<title>"&Title&"</title>"
Shtml=Shtml&"<style>td{font-size:12px;line-height:20px;}</style>"
Shtml=Shtml&"<body>"
Shtml=Shtml&"<table width=""500"" border=""0"" align=""center"" cellpadding=""0"" cellspacing=""0"">"
Shtml=Shtml&"<tr>"
Shtml=Shtml&"<td height=25 bgcolor=#F5F5F5><b>"&Title&"</b>[发布时间:"&Now()&"]</td>"
Shtml=Shtml&"</tr>"
Shtml=Shtml&"<tr>"
Shtml=Shtml&"<td>"&content&"</td>"
Shtml=Shtml&"</tr>"
Shtml=Shtml&"</table>"
Shtml=Shtml&"</body>"
Shtml=Shtml&"</html>"
Set Fso=Server.CreateObject("Scripting.Filesystemobject")
IF Not Fso.Folderexists(Server.MapPath("news/"&date())) Then
Fso.CreateFolder(Server.MapPath("news/"&date()))
End IF
Set oFile=Fso.Createtextfile(server.mappath("news/"&date()&"/"&Filename&".shtml"),true)
oFile.Write Shtml
Set oFile=Nothing
Set Fso=Nothing
Sql="Insert into [article] (title,content,[filepath],fbdate) values ('"&title&"','"&content&"','news/"&date()&"/"&Filename&".shtml','"&now()&"')"
Conn.Execute(Sql)
Response.Write "<script>alert('发布成功');location.href='add.asp'</script>"
593

被折叠的 条评论
为什么被折叠?



