ASP.Net產生靜態HTML頁

最後更新：2018-12-07 來源：互聯網

上載者：User

創建阿里雲帳戶，並獲得超過 40 款產品的免費試用版；而企業帳戶則可以享有總值 $1200 的免費試用版。立即註冊！

環境:Microsoft .NET Framework SDK v1.1
OS:Windows Server 2003 中文版
ASP.Net產生靜態HTML頁
在Asp中實現的產生靜態頁用到的FileSystemObject對象!
在.Net中涉及此類操作的是System.IO
以下是程式碼注:此代碼非原創!參考別人代碼
Code:
//產生HTML頁
public static bool WriteFile(string strText,string strContent,string strAuthor)
{
string path = HttpContext.Current.Server.MapPath("/news/");
Encoding code = Encoding.GetEncoding("gb2312");
// 讀模數板檔案
string temp = HttpContext.Current.Server.MapPath("/news/text.html");
StreamReader sr=null;
StreamWriter sw=null;
string str="";
try
{
sr = new StreamReader(temp, code);
str = sr.ReadToEnd(); // 讀取檔案
}
catch(Exception exp)
{
HttpContext.Current.Response.Write(exp.Message);
HttpContext.Current.Response.End();
sr.Close();
}

string htmlfilename=DateTime.Now.ToString("yyyyMMddHHmmss")+".html";
// 替換內容
// 這時,模板檔案已經讀入到名稱為str的變數中了
str =str.Replace("ShowArticle",strText); //模板頁中的ShowArticle
str = str.Replace("biaoti",strText);
str = str.Replace("content",strContent);
str = str.Replace("author",strAuthor);
// 寫檔案
try
{
sw = new StreamWriter(path + htmlfilename , false, code);
sw.Write(str);
sw.Flush();
}
catch(Exception ex)
{
HttpContext.Current.Response.Write(ex.Message);
HttpContext.Current.Response.End();
}
finally
{
sw.Close();
}
return true;

此函數放在Conn.CS基類中了
在添加新聞的代碼中引用註：工程名為Hover

if(Hover.Conn.WriteFile(this.Title.Text.ToString(),this.Content.Text.ToString(),this.Author.Text.ToString()))
{
Response.Write("添加成功");
}
else
{
Response.Write("產生HTML出錯!");
}

模板頁Text.html代碼
Code:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >
<HTML>
<HEAD>
<title>ShowArticle</title>
<body>
biaoti
<br>
content<br>
author
</body>
</HTML>
biaoti
<br>
content<br>
author
</body>
</HTML>

提示添加成功後會出以目前時間為檔案名稱的html檔案!上面只是把傳遞過來的幾個參數直接寫入了HTML檔案中,在實際應用中需要先添加資料庫，然後再寫入HTML檔案

產生靜態網頁的一種方法　　

下面代碼可以幫您產生靜態頁面，如：list.asp是讀資料庫的頁面，要生在list.htm靜態頁面，你的網域名稱是xxx.com，可以用下面代碼，使用方法：

if SaveFile("/htm/list.htm","http://www.xxx.com/asp/list.asp") then
Response.write "已產生"
else
Response.write "沒有產生"
end if

如產生失敗，請把代碼On Error Resume Next封了，查看具體錯誤資訊

代碼如下：

<%
if SaveFile("/htm/list.htm","http://www.xxx.com/asp/list.asp") then
Response.write "已產生"
else
Response.write "沒有產生"
end if

function SaveFile(LocalFileName,RemoteFileUrl)
Dim Ads, Retrieval, GetRemoteData
On Error Resume Next
Set Retrieval = Server.CreateObject("Microso" & "ft.XM" & "LHTTP")
With Retrieval
  .Open "Get", RemoteFileUrl, False, "", ""
  .Send
  GetRemoteData = .ResponseBody
End With
Set Retrieval = Nothing
Set Ads = Server.CreateObject("Ado" & "db.Str" & "eam")
With Ads
  .Type = 1
  .Open
  .Write GetRemoteData
  .SaveToFile Server.MapPath(LocalFileName), 2
  .Cancel()
  .Close()
End With
Set Ads=nothing
if err <> 0 then
  SaveFile = false
  err.clear
else
  SaveFile = true
end if
End function
%>

本文章原先以中文撰寫並發佈於 aliyun.com，亦設英文版本，僅作資訊用途。本網站不對文章的準確性，完整性或可靠性或其任何翻譯作出任何明示或暗示的陳述或保證。如對該文章有任何疑慮或投訴，請傳送電郵至 info-contact@alibabacloud.com 並提供相關疑慮或投訴的詳細說明。職員會於 5 個工作天內與您聯絡，一經驗證之後，即會刪除該侵權內容。

A Free Trial That Lets You Build Big!

Start building with 50+ products and up to 12 months usage for Elastic Compute Service

Get Started for Free

Sales Support

1 on 1 presale consultation

Chat Contact Sales
After-Sales Support

24/7 Technical Support 6 Free Tickets per Quarter Faster Response

Open a Ticket
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.

Learn More