知识大全 .net生成静态页方法总结

Posted 2022-07-16 文件

篇首语：捐躯赴国难，视死忽如归。本文由小常识网(cha138.com)小编为大家整理，主要介绍了知识大全 .net生成静态页方法总结相关的知识，希望对你有一定的参考价值。

　　第１种方法

　　用server Execute(path As String writer As Sysetem IO TextWriter) 方法这种方法很简单向服务器放松动态网页请求获取页面的客户端代码然后把内容写进文件里．这种方法写起来比较简单

Dim swHtml As StringWriter = New StringWriter() Server Execute( //localhost/newsSzhome/manage/newstemplate aspx swHtml) Dim strContent As String = swHtml ToString() Dim filepath As String = d//news// If Not (System IO Directory Exists(System IO Path GetDirectoryName(filepath))) Then System IO Directory CreateDirectory(System IO Path GetDirectoryName(filepath)) End If Dim sw As StreamWriter = New StreamWriter(filepath False System Text Encoding Default) Try sw Write(strContent ) Catch ex As Exception Throw ex Finally sw Flush() sw Close() End Try　　

　　这种方法是必须读网页地址缺点显而易见速度慢另外如果请求的动态页面有验证控件的话返回的页面却无法进行数据验证如果在同一个项目里的程序用这个还是很好的但是如果是要把生成程序跟网页程序分开（如写成webservice）的话用这个方法就相当与去打开一个外网网页效率肯定会大打折扣（而且我在webservice上用这方法根本运行不了程序出异常！具体原因没有去探索估计应该是权限的问题）．　　第２种方法

　　这个方法跟第１种方法相似(也是需要读取网页内容) 用System Net WebRequest Create（path As String）方法建里一个需要读取的网页的webRequest 再获得它的WebResponse 再以流的形式写入文件．

　　System Net WebRequest 代码实例

Dim wReq As System Net WebRequest = System Net WebRequest Create( //localhost/newsSzhome/manage/newstemplate aspx Dim wResp As System Net WebResponse = wReq GetResponse Dim srs As System IO Stream = wResp GetResponseStream Dim sr As System IO StreamReader = New System IO StreamReader(srs System Text Encoding Default) GetEncoding( gb )) Dim strContent As String = sr ReadToEnd() Dim filepath As String = d://news// If Not (System IO Directory Exists(System IO Path GetDirectoryName(filepath))) Then System IO Directory CreateDirectory(System IO Path GetDirectoryName(filepath)) End If Dim sw As StreamWriter = New StreamWriter(filepath False System Text Encoding Default) Try sw Write(temp) Catch ex as Exception Throw ex Finally sw Flush() sw Close() End Try

　　效果就不多说了跟第１种方法问题一样！（但是我在webservice中用上面这个方法生成时还是可以成功的但是速度慢很多．）

　　第３种

　　就是最常用也最实用的字符替代方法String Replace() 从文件读取模版替换模版中的参数后输出文件这种方法的生成速度上比第一种要快许多而且模版内容可以用工具任意编辑

　　主要代码

　　String Replace方法

Dim sr As New System IO StreamReader( d://newsDetail_template System Text Encoding Default) Dim temp As String = sr ReadToEnd() temp = temp Replace( @$_CREATEDATE_$@ DateTime Now ToString) Dim filepath As String = d://news// If Not (System IO Directory Exists(System IO Path GetDirectoryName(filepath))) Then System IO Directory CreateDirectory(System IO Path GetDirectoryName(filepath)) End If Dim sw As StreamWriter = New StreamWriter(filepath False System Text Encoding Default) Try sw Write(temp) Catch Return false Finally sw Flush() sw Close() End Try cha138/Article/program/net/201311/15243