62,041
社区成员
发帖
与我相关
我的任务
分享
Server.Execute("abc.aspx", new StreamWriter(Server.MapPath("abc.html")));
下面的示例可能对楼主有帮助;
这是CreateHtml.aspx文件代码:
<%@ Import Namespace="System.IO" %>
<%@ Import Namespace="System.Text" %>
<script runat="server" language="vb">
'该过程用来生成HTML网页
Sub Enter_Click(Sender As System.Object, E As System.EventArgs)
'下面首先读取模板文件,将其中的全部代码保存到一个字符串中
Dim strTemplate As String
Dim sr As New StreamReader(Server.MapPath("template.htm"), Encoding.GetEncoding("gb2312"))
strTemplate=sr.ReadToEnd()
sr.Close()
'下面利用客户输入的内容替换模板中的相应字符串
strTemplate=strTemplate.Replace("$title$",txtTitle.Text)
strTemplate=strTemplate.Replace("$body$",txtBody.Text)
strTemplate=strTemplate.Replace("$SubmitDate$",Now())
'下面建立一个StreamWriter对象,生成HTML文件
Dim sw As New StreamWriter(Server.MapPath(GetFileName()), False, Encoding.GetEncoding("gb2312"))
sw.Write(strTemplate)
sw.Close()
'下面给出一个浏览超链接
message.Text = "<a href='" & GetFileName() & "' target='_blank'>请查看生成的文件</a>"
End Sub
'该函数用来返回由当前时间组成的文件名称
Function GetFileName()
GetFileName = Now().ToString.Replace("-","").Replace(":","").Replace(" ","")
GetFileName = GetFileName & ".htm"
End Function
</script>
<HTML>
<body>
<h3 align="center">利用模板生成HTML文件</h3>
<form runat="server">
<table width="80%" align="center">
<tr>
<td width="30%" align="right">标题</td>
<td><asp:Textbox id="txtTitle" columns="50" runat="server"/></td>
</tr>
<tr>
<td width="30%" align="right">内容</td>
<td><asp:Textbox id="txtBody" TextMode="MultiLine" rows="8" columns="40" runat="server"/></td>
</tr>
<tr>
<td colspan="2" align="center"><asp:Button id="Enter" Text="确定" Runat="server" OnClick="Enter_Click"/></td>
</tr>
</table>
<asp:Label id="message" Runat="server" />
</form>
</BODY>
</HTML>
这是模版文件代码template.htm:
<html>
<head>
<title>$title$</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
</head>
<body>
<h3 align="center">$title$</h3>
<table height="80%" border="0" width="100%" cellpadding="10" cellspacing="0" bgcolor="#eeeeee"
style="border:1px solid #000000">
<tr valign="top">
<td>$body$</td>
</tr>
</table>
<p align="center">信息中心 $SubmitDate$</p>
</body>
</html>