用server.Execute(path As String,writer As Sysetem.IO.TextWriter) 方法,这种方法很简单,向服务器放松动态网页请求,获取页面的客户端html代码,然后把内容写进文件里.这种方法写起来比较简单:
2 Server.Execute("http://localhost/newsSzhome/manage/newstemplate.aspx, swHtml)
3 Dim strContent As String = swHtml.ToString()
4
5 Dim filepath As String = "d//news//001.html"
6 If Not (System.IO.Directory.Exists(System.IO.Path.GetDirectoryName(filepath))) Then
7 System.IO.Directory.CreateDirectory(System.IO.Path.GetDirectoryName(filepath))
8 End If
9 Dim sw As StreamWriter = New StreamWriter(filepath, False, System.Text.Encoding.Default)
10 Try
11 sw.Write(strContent )
12 Catch ex As Exception
13 Throw ex
14 Finally
15 sw.Flush()
16 sw.Close()
17 End Try
第2种方法:
这个方法跟第1种方法相似(也是需要读取网页内容),用System.Net.WebRequest.Create(path As String)方法建里一个需要读取的网页的webRequest,再获得它的WebResponse,再以流的形式写入文件.
1Dim wReq As System.Net.WebRequest = System.Net.WebRequest.Create("http://localhost/newsSzhome/manage/newstemplate.aspx"
2 Dim wResp As System.Net.WebResponse = wReq.GetResponse
3 Dim srs As System.IO.Stream = wResp.GetResponseStream
4 Dim sr As System.IO.StreamReader = New System.IO.StreamReader(srs, System.Text.Encoding.Default) 'GetEncoding("gb2312"))
5 Dim strContent As String = sr.ReadToEnd()
6Dim filepath As String = "d://news//0001.html"
7 If Not (System.IO.Directory.Exists(System.IO.Path.GetDirectoryName(filepath))) Then
8 System.IO.Directory.CreateDirectory(System.IO.Path.GetDirectoryName(filepath))
9 End If
10 Dim sw As StreamWriter = New StreamWriter(filepath, False, System.Text.Encoding.Default)
11 Try
12 sw.Write(temp)
13 Catch ex as Exception
14 Throw ex
15 Finally
16 sw.Flush()
17 sw.Close()
18 End Try
第3种,就是最常用也最实用的字符替代方法String.Replace(),从文件读取模版,替换模版中的参数后输出文件,这种方法的生成速度上比第一种要快许多,而且模版内容可以用工具任意编辑
主要代码:
1 Dim sr As New System.IO.StreamReader("d://newsDetail_template.htm", System.Text.Encoding.Default)
2 Dim temp As String = sr.ReadToEnd()
3 temp = temp.Replace("@$_CREATEDATE_$@", DateTime.Now.ToString)
4 Dim filepath As String = "d://news//001.html"
5 If Not (System.IO.Directory.Exists(System.IO.Path.GetDirectoryName(filepath))) Then
6 System.IO.Directory.CreateDirectory(System.IO.Path.GetDirectoryName(filepath))
7 End If
8 Dim sw As StreamWriter = New StreamWriter(filepath, False, System.Text.Encoding.Default)
9 Try
10 sw.Write(temp)
11 Catch
12 Return false
13 Finally
14 sw.Flush()
15 sw.Close()
16 End Try