Readygo技术搜索引擎 网络搜索 efish 2008-1-19 4:50:05

关于首页生成静态

楼主deninghe（毛毛虫ァ野战军->挺进中原）2006-05-26 11:26:25 在 Web 开发 / ASP 提问

我的首页有10几个栏目   动态时需要好几次数据库连接，速度很慢  
  现在想做成静态的  
  原理就是会员在发布文章的时候   提交完成后   再转到一个处理页面  
  把首页的模板从数据库里调出来，模板里每个栏目都做了特殊标记，处理中依次打开数据库，把各个栏目的信息取出来，做特殊标记的替换，  
  这样首页可以生成静态的   ，但是会员操作的这一步肯定要多次数据库的连接，  
  不知道这样的稳定性的怎么样，我的想法是不是合理    
  请大家帮忙   指点一下   谢了 问题点数：20、回复次数：9Top

1 楼grakey（透明的深蓝）回复于 2006-05-26 11:30:37 得分 0

你可以下一个：52w.net   Newsboy1.0   新闻发布系统     拿来改！Top

2 楼oomen（酸酸甜甜就是我）回复于 2006-05-26 11:46:04 得分 10

我觉得可以用xmlhttp的方式　把你现在的首页抓取来成声静态的　就没那么麻烦了  
  再把默认后缀改为.htmlTop

3 楼clbaddd（No Money，No Women，Poor）回复于 2006-05-26 11:49:54 得分 0

我的想法是这样的,首页做为.shtml的页面,里边把你的版块使用include包含进来,当有用户对这个版块进行了更新,则只需要对这个版块的页面进行更新处理就可以了,首页跟着会更新Top

4 楼deninghe（毛毛虫ァ野战军->挺进中原）回复于 2006-05-26 12:38:21 得分 0

To:oomen(酸酸甜甜就是我)      
  我用的asp，现在可以用xmlhttp抓取到动态的首页，  
  但是我怎么把xmldoc.responseText返回的内容   传递给asp程序  
  利用fso生成index.htm呢？？？Top

5 楼taolixiang（飞扬 怎么还不升级！！...... 哦 ...... 原来是要答对题才能升！）回复于 2006-05-26 12:45:53 得分 0

用fsoTop

6 楼deninghe（毛毛虫ァ野战军->挺进中原）回复于 2006-05-26 12:54:35 得分 0

To:oomen(酸酸甜甜就是我)    
  你把你的说法   讲清楚一点啊Top

7 楼yongfa365（http://www.yongfa365.com）回复于 2006-05-26 12:55:52 得分 0

是呀,给个说法,一个例子也行Top

8 楼cqq（脑电波）回复于 2006-05-26 12:56:23 得分 10

Sub   WriteToFile(strFile,str)  
  "向一个文本文件写入内容  
        Dim   fso,   f  
        Set   fso   =   CreateObject("Scripting.FileSystemObject")  
        Set   f   =   fso.OpenTextFile(strfile,   2,   True)  
        f.Write   str  
        set   f=   nothing  
        set   fso=nothing  
  End   Sub  
   
   
  Function   bytes2BSTR(vIn)  
  Dim   strReturn  
  Dim   i  
  Dim   ThisCharCode,NextCharCode  
  strReturn   =   ""  
  For   i   =   1   To   LenB(vIn)  
  ThisCharCode   =   AscB(MidB(vIn,i,1))  
  If   ThisCharCode   <   &H80   Then  
  strReturn   =   strReturn   &   Chr(ThisCharCode)  
  Else  
  NextCharCode   =   AscB(MidB(vIn,i+1,1))  
  strReturn   =   strReturn   &   Chr(CLng(ThisCharCode)   *   &H100   +   CInt(NextCharCode))  
  i   =   i   +   1  
  End   If  
  Next  
  bytes2BSTR   =   strReturn  
  End   Function  
   
   
  Function   OpenUrl(strUrl)    
       
  "on   Error   Resume   Next  
  Dim   xmlhttp  
      Set   xmlhttp   =   CreateObject("Microsoft.XMLHTTP")  
  xmlhttp.open   "GET",(strUrl   ),false  
        xmlhttp.send        
  OpenUrl=bytes2BSTR(xmlhttp.ResponseBody)  
   
        Set   xmlhttp   =   Nothing          
  End   Function        
  Top

9 楼deninghe（毛毛虫ァ野战军->挺进中原）回复于 2006-05-26 15:31:43 得分 0

完全解决了   谢谢大家Top