简单的ASP生成HTML程序

最新推荐文章于 2021-06-04 00:28:49 发布

weixin_33911824

最新推荐文章于 2021-06-04 00:28:49 发布

阅读量257

点赞数

原文链接：https://my.oschina.net/anhoo/blog/373909

版权

为什么80%的码农都做不了架构师？>>>

方法一:

set fso=server.CreateObject("scripting.filesystemobject")

set f1=fso.opentextfile(server.MapPath("demo.htm"),2,true)

f1.write("<html>")

f1.write("<head>")

f1.write("<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>")

f1.write("<title>哈哈~~~！</title>")

f1.write("<link href='style.css' rel='stylesheet' type='text/css'>")

f1.write("<script language='javascript' src='function.js'></script>")

f1.write("</head>")

f1.write("<body>")

f1.write("<a href='' target='_blank'>啊啊阿</a>提供最新下载《<a href='menu.asp'>管理</a>》<br/>")

f1.write(str)

f1.write("</body>")

f1.write("</html>")

f1.close

set fso=nothing

response.Redirect("demo.htm")

方法二:

现在到处都流行动态网站页面生成静态页，总的说我不是很赞同，认为有误导初学者之嫌，可我也不是圣人用户有要求，自然也不能免俗。

我这里提供一个简单的不用模板可以直接生成HTML静态页的方法.

如一个正常的index.asp动态页面，

新建一个文件 makeasp2html.asp

<form method="post" action="">
    <textarea name="asp2html" style="display:none"></textarea>
    <input type="submit" value="生成html页"/>
</form>

<%
If request.Form("asp2html")<>"" then
    filename="index.html"

    set fso = Server.CreateObject("Scripting.FileSystemObject")
    set fout = fso.CreateTextFile(server.mappath(""&filename&""))

    fout.write request.form("asp2html")
    fout.close

    set fout=nothing
    set fso=nothing

end if
%>

这样index.html文件就生成了，连模板都用不着，只要服务器要支持FSO,将正常情况下使用的ASP文件读取到textarea里就可以了。

方法三:

<%
If(Request.QueryString("Page")="") Then
Page=1
Else
Page=Request.QueryString("Page")
End If

SQL="Select ID,LTitle,LPostTime,LHits From Log_List order By ID DESC"
Set Rs = Server.CreateObject("Adodb.RecordSet")
Rs.Open SQL,Conn,1,1
If(Rs.EOF) Then
   strList="没有内容"
Else
   Rs.pagesize=30
   Rs.AbsolutePage=Page
   TotalPage=Rs.PageCount
   For i=0 To rs.pagesize-1 '显示具体的数据内容了,i+(page*13-13)+1 这个解决分页后显示具体的编号
     If Rs.eof Then Exit For
   strList = strList & i+(Page*13-13)+1 & ":<A href='"&Rs(0)&".html'>"&Rs(1)&"</a><br>"
   Rs.movenext
   Next
   If(Int(Page)=1) Then
   PageFirst="[首页"
   Else
   PageFirst="[<a href=""Index_1.html"">首页</a>"
   End If

   If(Int(Page)=1)Then
   PageBack=" 上一页 "
   Else
   PageBack=" <a href=""Index_"&Page-1&".html"">上一页</a> "
   End If

   If(Int(Page)=TotalPage)Then
   PageNext=" 下一页 "
   Else
   PageNext=" <a href=""Index_"&Page+1&".html"">下一页</a> "
   End If

   If(Int(Page)=TotalPage)Then
   PageLast="尾页]"
   Else
   PageLast="<a href=""Index_"&TotalPage&".html"">尾页</a>]"
   End If

   AbsPage="第<select οnchange=""window.location='Index_'+this.options[this.selectedIndex].value+'.html'"">"
   For j=1 To TotalPage
   AbsPage=AbsPage&"<option value="&j
   If(Cstr(j)=Cstr(Page))Then
     AbsPage=AbsPage&" selected"
   End If
   AbsPage=AbsPage&">"&j&"</option>"
   Next
   AbsPage=AbsPage&"</select>页"

   PageNav=PageFirst&PageBack&PageNext&PageLast&AbsPage
End If

TempContent=Conn.Execute("Select TempContent From Templet Where TempID=1")(0)
TempContent=replace(TempContent,"$ArticleList$",strList)
TempContent=replace(TempContent,"$PageNav$",PageNav)

Set FSO = Server.CreateObject("Scripting.FileSystemObject")
Set Fout = FSO.CreateTextFile(Server.MapPath("Article/Index_"&Page&".html"))
Fout.Write TempContent
Fout.Close
%>
<%If(Int(Page)<Int(TotalPage))Then%>
<html>
<head><title>完成</title>
<meta http-equiv="refresh" content="0;url=CreateHtml_List.asp?Page=<%=Page+1%>">
</head>
<body>
第<font color=red><b><%=Page%></b></font>页生成完毕！
</body>
</html>
<%Else%>
生成文章分类完毕，共生成<font color=red><b><%=TotalPage%></b></font>页
<%End If%>