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