標籤：
方法一:
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"><!--#include file="index.asp"--></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裡就可以了。
方法三:
<!--#include file="Include/Conn.asp"-->
<%
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 onchange=""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%>
簡單的ASP產生HTML程式
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
