关于首页生成静态

[deninghe]

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

[deninghe]

完全解决了 谢谢大家

[grakey]

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

[oomen]

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

[clbaddd]

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

[deninghe]

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

[邦迪代驾]

用fso

[deninghe]

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

[yongfa365]

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

[cqq]

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