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