利用FSO生成静态页

 利用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>"

 

评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值