|
asp中批量生成html
来源：
互联网
日期：2006-12-2
<!--＃i nclude file="conn.asp" -->
<%
Dim weburl
sql = "SELECT * FROM movie order by id desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,db,1,3
do while not rs.eof
weburl="<!--＃i nclude file=view.asp?id="&rs("id")&"-->"
body=getHTTPPage(weburl)’
Set fso = CreateObject("Scripting.FileSystemObject")
File=Server.MapPath("/html/"&rs("id")&".htm")
Set txt=fso.OpenTextFile(File,8,True)
txt.WriteLine weburl
txt.Close
txt.fso
rs.movenext
loop
rs.close
set rs=nothing
%>
更多的asp中批量生成html请到论坛查看: http://BBS.TC711.COM
【 双击滚屏 】 【 评论 】 【 收藏 】 【 打印 】 【 关闭 】
来源：
互联网
日期：2006-12-2
|
|
|
|
| 精品推荐 |
|
|
| 本月推荐 |
|
|
| 友情赞助 |
|
|
|
|
