急求新闻页面动态生成代码!!!!!!!!!

[沙枣花开-沁人的香]

本以为这部分不是很难,没想到在这遇到麻烦了,做作了模板asp页面,每次从数据库里读新闻内容,但是总不能自动分段等,只是内容的堆砌,说要改成HTML,用了网上的转换函数也不行,又看到要用FSO,彻底没谱了,高手快帮忙吧

[qizhicong2]

楼主慢慢调试吧。

[lzp4881]

按模板生成网站首页


<%
Response.Expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
Response.Buffer = True
Response.Clear
Server.ScriptTimeOut=999999999
on error resume next
'***************************************************************
'* 定义 从模板从读取首页 函数
'* 说明:模板文件名为:index_Template.asp
'***************************************************************
Function GetPage(url)
Set Retrieval = CreateObject("Microsoft.XMLHTTP")
With Retrieval
.Open "Get", url, False, "", ""
.Send
GetPage = BytesToBstr(.ResponseBody)
End With
Set Retrieval = Nothing
End Function
Function BytesToBstr(body)
dim objstream
set objstream = Server.CreateObject("adodb.stream")
objstream.Type = 1
objstream.Mode =3
objstream.Open
objstream.Write body
objstream.Position = 0
objstream.Type = 2
objstream.Charset = "GB2312"
BytesToBstr = objstream.ReadText
objstream.Close
set objstream = nothing
End Function

'***************************************************************
'* 生页首页,文件名为:default.htm
'***************************************************************
dim Tstr
Tstr = GetPage("http://www.adhome.net/index_Template.asp")
Set fso = Server.CreateObject("Scripting.FileSystemObject")
Set fout = fso.CreateTextFile(Server.MapPath(".")&"/default.htm")
fout.Write Tstr
fout.close
Response.write"<script>alert(""生成首页成功！\n\n文件名为：default.htm"");location.href="http://www.adhome.net";</script>"
Response.end
%>

[凡夫与俗子]

顶一楼，楼主慢慢调试吧。

[沙枣花开-沁人的香]

没用模板,就是用符号间的转换做了,这样简单点.功能是实现了.

[落日听风]

http://download.csdn.net/source/1383075 我资源里有

[沙枣花开-沁人的香]

谢谢,去下,顶了

[x196231222]

学习了。。。。。