文章正文

想问问大侠怎么由程序生产静态html页面！

类型：转载责任编辑：asp.net 日期：2007/05/23

热门软件下载：

就像新浪搜狐等很多大网站一样，页面链接地址等都是html页面，请问是怎么生成的！希望能说详细一点！非常感谢！

网友回答：

发表者：apollosun

我正在写这样一个系统，部分核心代码，你看——


<%
if not chk(session("adminpower"),"管理文章",",") then
goback "你没有管理文章的权限！"
response.end
end if
dim k1,k2,k3,k4,k5,k6,rs,a,b,aa,aaa,p,i,ts,fso,path,aid
k1=killn(request("sclass"))
k2=killw(request("title"))
k6=request("content")&""
if (not isnumeric(request("sclass"))) or k2="" or k6="" or (not isnumeric(request("aid"))) then
goback "无效的分类或标题内容！"
response.end
end if
aid=killn(request("aid"))
k3=killw(request("author"))
k4=killw(request("hotpic"))
%>

<%
conn.execute "editart("&k1&","&k2&","&k3&","&k4&","&aid&")"
set rs=conn.execute("eart("&aid&")")
a=rs.getrows()
rs.close
set rs = nothing
set fso=server.CreateObject("Scripting.FileSystemObject")
set ts = fso.opentextfile(server.MapPath(a(5,0)),2,true,-2)
ts.writeline ""
ts.writeline "<script language=""JavaScript1.2"">var tmessage=""【"&shwebname&"】"&a(2,0)&""";var tmessage=tmessage+"" "";ti=""0"";var temptitle="""";var speed=""150"";function titler(){if (!document.all&&!document.getElementById) return; document.title=temptitle+tmessage.charAt(ti);temptitle=temptitle+tmessage.charAt(ti);ti++;if(ti==tmessage.length){ti=""0"";temptitle="""";}setTimeout(""titler()"",speed);}window.onload=titler;</script>"
ts.writeline "<script>window.status=""精彩世界尽在【"&shwebname&"】！按CTRL＋D键可以收藏本站 "&shweburl&"！ ""</script>"
ts.writeline ""
ts.writeline "<table class=""art"" border=""0"" cellpadding=""2"" cellspacing=""0"" width=""100%"">"
ts.writeline "<tr><td><p align=""left"">&clubs; <b>"&shwebname&"： </b>"&a(13,0)&" >> "&a(10,0)&" >> "&k2&"</p></td></tr>"
ts.writeline "<tr><td bgcolor=""#eeeeff""><p align=""center""><font size=""+1""><b>"
ts.writeline ""
ts.writeline k2
ts.writeline ""
ts.writeline "</b></font></p></td></tr><tr><td bgcolor=""#ffeeee""><p align=""center"">"
ts.writeline ""
ts.writeline k3
ts.writeline ""
ts.writeline "    "
ts.writeline ""
ts.writeline "发布日期："&a(7,0)
ts.writeline ""
ts.writeline "    "
ts.writeline ""
ts.writeline "<script src=""/ArtHit.asp?aid="&a(0,0)&"""></script>"
ts.writeline ""
ts.writeline "</p></td></tr><tr><td>"
ts.writeline ""
ts.writeline k6
ts.writeline ""
ts.writeline "<br></td></tr></table>"
ts.writeline ""
ts.writeline "<table border=""0"" cellpadding=""2"" cellspacing=""0"" width=""100%"">"
ts.writeline "<tr bgcolor=""#eeeeff"" height=""25""><td align=""right"">【<a href=""/ArtCom.asp?aid="&a(0,0)&""" target=""_blank"">发表评论</a>】【<a href=""javascript:window.external.AddFavorite("&shweburl&a(5,0)&","&shwebname&"——"&a(2,0)&")"">收藏本页</a>】【<a href=""/ArtMail.asp?aid="&a(0,0)&""" target=""_blank"">告诉好友</a>】【<a href=""/ArtPrint.asp?path="&a(5,0)&""" target=""_blank"">打印此文</a>】【<a href=""javascript:window.close();"">关闭窗口</a>】</td></tr></table>"
ts.writeline "<table border=""0"" cellpadding=""2"" cellspacing=""0"" width=""100%"">"
ts.writeline "<tr height=""30""><td width=""50%""><font color=""#ff3333"">    <b>"&a(13,0)&" >> "&a(10,0)&" >> 最新10篇</b></font></td><td width=""50%""><font color=""#ff3333"">    <b>"&a(13,0)&" >> "&a(10,0)&" >> 热门10篇</b></font></td><tr>"
ts.writeline "<tr><td width=""50%""><ul>"
set rs=conn.execute("select top 10 title, path, hit from tart where cid="&k1&" and id<>"&a(0,0)&" order by id desc")
if not rs.eof then
aa=rs.getrows()
rs.close
for i=0 to ubound(aa,2)
ts.writeline "<li><a href="""&aa(1,i)&""" target=""_blank"">"&gtopic(aa(0,i),30)&" (<font color=""red"">"&aa(2,i)&"</font>)"&"</a></li>"
next
ts.writeline "</ul></td>"
else
ts.Writeline "<li>没有相关文章</li></ul></td>"
end if
ts.writeline "<td width=""50%""><ul>"
set rs=conn.execute("select top 10 title, path, hit from tart where cid="&k1&" and id<>"&a(0,0)&" order by hit desc")
if not rs.eof then
aaa=rs.getrows()
rs.close
for i=0 to ubound(aaa,2)
ts.writeline "<li><a href="""&aaa(1,i)&""" target=""_blank"">"&gtopic(aaa(0,i),30)&" (<font color=""red"">"&aaa(2,i)&"</font>)"&"</a></li>"
next
ts.writeline "</ul>"
else
ts

发表者：ken1

那个新闻系统，就是用fso，把提交的新闻都声成静态的页面

热门推荐笔记本：明基笔记本

笔记本相关：

IT技术文章：