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文件而且需要把生成的文件名等写入数库以便以后调用等，此实例只是实现了根据提交过来参数替换模板中的相应的字段! 需要完善的地方很多！哪位有高见，欢迎赐教！
