Imports System.IO
Public Function WriteFile(ByVal strText As String, ByVal strContent As String, ByVal strAuthor As String) As Boolean
Dim path As String = HttpContext.Current.Server.MapPath("/news/")
Dim code As System.Text.Encoding = System.Text.Encoding.GetEncoding("gb2312")
'读取模板文件
Dim temp As String = HttpContext.Current.Server.MapPath("/news/text.html")
Dim sr As StreamReader
Dim sw As StreamWriter
Dim str As String = ""
Try
sr = New StreamReader(temp, code)
str = sr.ReadToEnd() ' 读取文件
Catch ex As Exception
HttpContext.Current.Response.Write(ex.Message)
HttpContext.Current.Response.End()
sr.Close()
End Try
Dim htmlfilename As String = 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 ex As Exception
HttpContext.Current.Response.Write(ex.Message)
HttpContext.Current.Response.End()
Finally
sw.Close()
End Try
Return True
Response.Write("<script for=window event=onload>window.alert('添加成功!');</script>")
End Function
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
WriteFile(TextBox1.Text, TextBox2.Text, TextBox3.Text)
End Sub
test.html
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN" >
<HTML>
<HEAD>
<title>ShowArticle</title>
<body>
biaoti
<br>
content<br>
author
</body>
</HTML>
提示添加成功后会出以当前时间为文件名的html文件!上面只是把传递过来的几个参数直接写入了HTML文件中,在实际应用中需要先添加数据库,然后再写入HTML文件
而且需要把生成的文件名等写入数库以便以后调用等,此实例只是实现了根据提交过来参数替换模板中的相应的字段! 需要完善的地方很多!哪位有高见,欢迎赐教!