SEO首页>>网站建设>>程序开发>>fso批量生成html原理

<%
dim   cid,sql,msql  
  cid=cint(request.QueryString("cid"))''分类id号  
  msql="select   *   from   moban   where   id=1"     ''打开摸板内容．就一个摸板，显示新闻内容的  
  set   rs1=Server.CreateObject("adodb.recordset")  
        rs1.open  msql,conn,1,1  
        mb_code=rs1("moban")  
   
  ''提取某一子栏目下的所有新闻．  
  sql="select   *   from   helpcenter   where   classid="&cid&"   order   by   newsid,sortid"  
  rs.open   msql,conn,1,3  
  do   while   not   rs.eof  
   
   
  ''response.Write(rs("title")&"<br>")  
        ''//循环替换摸板内容  
    mb_code=replace(mb_code,"{title}",rs("title"))  
    mb_code=replace(mb_code,"{writer}",rs("adders"))  
    mb_code=replace(mb_code,"{content}",rs("content"))  
    mb_code=replace(mb_code,"{comefrom}",rs("laiyuan"))  
    mb_code=replace(mb_code,"{addtime}",date())  
    mb_code=replace(mb_code,"{hits}",rs("hits"))  
  　　''///这里好象有问题，mb-code内容为空，没有替换过来．  
  　　　　　下面在重新生成的时候，页面内容为空了，  
   
  ''生成HTML页面  
  　　Set   fso   =   Server.CreateObject("Scripting.FileSystemObject")  
          Set   fout   =   fso.CreateTextFile(Server.MapPath(rs("newspath")))  
            fout.WriteLine   mb_code  
            fout.close  
         
  rs.movenext  
  loop  
  rs.close    
   
  rs1.close  
  set   rs1=nothing  
   
  conn.close  
  set   conn=nothing  
   
  %> 

内容来源：EX工作室-SEO资料站
浏览次数：0
ex 发布于 2008-1-27

你的姓名：
评论主题：
支持UBB：
评论内容：
验 证 码：