请教高手。如何把数据库里的4000条记录的文章内容批量生成静态页html?用循环么? 用哪个循环?for each next ? 谁能发一个完整的代码?谢谢备注:我考虑用一个模板页temp.html(替换方法),从data数据库读取记录,生成4000个以时间顺序为文件名的页面(2007070412319.html)。生成方法我会的,就是不知道如何循环生成一个个页面。生成的页面:包含标题、内容、日期,就是像新闻网站一样的静态页。请提示!!
调试欢乐多
Dim title = dr.Item("title")
Dim clsss = dr.Item("class")
Dim t = dr.Item("t")
Dim laiyuan = dr.Item("laiyuan")
Dim content = dr.Item("content")
Dim smallclass = dr.Item("smallclass")
Dim file_name = dr.Item("file_name")
'下面首先读取模板文件,将其中的全部代码保存到一个字符串中
Dim strTemplate As String
Dim sr As New IO.StreamReader(Server.MapPath("template.htm"), Encoding.GetEncoding("gb2312"))
strTemplate = sr.ReadToEnd()
sr.Close()
'下面利用客户输入的内容替换模板中的相应字符串
strTemplate = strTemplate.Replace("$title$", title)
strTemplate = strTemplate.Replace("$class$", clsss)
strTemplate = strTemplate.Replace("$t$", t)
strTemplate = strTemplate.Replace("$laiyuan$", laiyuan)
strTemplate = strTemplate.Replace("$content$", content)
strTemplate = strTemplate.Replace("$smallclass$", smallclass)
strTemplate = strTemplate.Replace("$file_name$", file_name)
'下面建立一个StreamWriter对象,生成HTML文件
Dim sw As New IO.StreamWriter(Server.MapPath(file_name), False, Encoding.GetEncoding("gb2312"))
sw.Write(strTemplate)
sw.Close()
Loop我准备这周结帖子,大家只要回复就有分。散分啦!
建议采用分页或者多线程方式。
循环2W也没有故障。你已经知道用循环语句了,就差点点就能实现了,最好不要依赖人家,这样才有成就感。