----------------------
在asp.net里面替换$htmlformat
<%@ Page Language="vb" Debug="True" %>
<%@ Import Namespace="System" %>
<%@ Import Namespace="System.io" %>
<Script language="vb" Runat="Server">
sub Page_Load(Sender as object, E as EventArgs)
dim format(3) as String
dim htmltext as String
dim file2 as system.io.file
dim sr as StreamReader = file2.opentext(server.mappath("template.htm"))
dim line as string
line=sr.ReadLine()
do while not line=nothing
htmltext=htmltext & line
line=sr.ReadLine()
loop
sr.Close()
format(0)="#ffccff"
format(1)= "#990099"
format(2)="9px"
format(3)= "<font size=9pt>生成的模板html页面</font>"
dim i as integer
for i=0 to 3
htmltext=htmltext.Replace("$htmlformat[" & i & "]",format(i))
next
dim file1 as system.io.file
dim sw as StreamWriter=new StreamWriter(server.mappath("3.htm"),false,System.Text.Encoding.GetEncoding("GB2312"))
sw.WriteLine(htmltext)
sw.Flush()
sw.Close()