ASP 关于首页生成HTML要怎么写

Question

公司简介页面是这样写的

Set AnRowItEsms = New EsmsMain
AnRowItEsms.ChkSqlIn '检查SQL恶意注入

if lcase(LanguageOption)="cn" then
LanguageSet="Cn"
Call MakeHtmlPage("About")
elseif lcase(LanguageOption)="en" then
LanguageSet="En"
Call MakeHtmlPage("About")
else
LanguageSet="Cn"
Call MakeHtmlPage("About")
LanguageSet="En"
Call MakeHtmlPage("About")
end if
Response.Write "<font color=red><b>全部完成</b></font>"

Sub MakeHtmlPage(FileName)
Call GetLanguageSet()
TplStr=AnRowItEsms.ReadFile("../Template/"&LanguageSet&"/About.Html")&"" '读取模板
TplStr=replace(TplStr,"{PageHead}",AnRowItEsms.ReadFile("../Template/"&LanguageSet&"/Head.Html")&"") '读取页头模板
TplStr=replace(TplStr,"{PageFoot}",AnRowItEsms.ReadFile("../Template/"&LanguageSet&"/Foot.Html")&"") '读取页尾模板
TplStr=RepSiteInfo(TplStr) '替换模板－网站配置信息
TplStr=AnRowItEsms.ProcessCustomTags(TplStr)&"" '主模板多维循环

Sql="select * from [AboutUs]"
Set Rs=Server.CreateObject("adodb.recordset")
Rs.Open Sql,Conn,1,1
Ai=0
Do Until Rs.Eof
Ai=Ai+1
AboutStr=""
AboutStr=Replace(Tplstr,"{AboutTitle}",rs(LanguageSet&"Title")&"")
AboutStr=Replace(AboutStr,"{AboutContent}",Rs(LanguageSet&"Content")&"")
if Ai=1 then
AboutStr=replace(AboutStr,"{HtmlPage}",FileName&".html")
AnRowItEsms.SaveHtmlPageFile Server.MapPath("../Html/"&LanguageSet&"/"&FileName&".html"),AboutStr
Response.Write "成功生成《"&Rs(LanguageSet&"Title")&"》： <a href='../Html/"&LanguageSet&"/"&FileName&".html' target=_blank>../Html/"&LanguageSet&"/"&FileName&".html</a><br>"
AnRowItEsms.SaveHtmlPageFile Server.MapPath("../Html/"&LanguageSet&"/"&FileName&"_ID"&Rs("Id")&".html"),AboutStr
Response.Write "成功生成《"&Rs(LanguageSet&"Title")&"》： <a href='../Html/"&LanguageSet&"/"&FileName&"_ID"&Rs("Id")&".html' target=_blank>../Html/"&LanguageSet&"/"&FileName&"_ID"&Rs("Id")&".html</a><br>"
response.write "<script>window.scroll(0,50000);</script>"
else
AboutStr=replace(AboutStr,"{HtmlPage}",FileName&"_ID"&Rs("Id")&".html")
AnRowItEsms.SaveHtmlPageFile Server.MapPath("../Html/"&LanguageSet&"/"&FileName&"_ID"&Rs("Id")&".html"),AboutStr
Response.Write "成功生成《"&Rs(LanguageSet&"Title")&"》： <a href='../Html/"&LanguageSet&"/"&FileName&"_ID"&Rs("Id")&".html' target=_blank>../Html/"&LanguageSet&"/"&FileName&"_ID"&Rs("Id")&".html</a><br>"
response.write "<script>window.scroll(0,50000);</script>"
end if
Rs.MoveNext
Loop
Rs.Close
Set Rs=Nothing

End Sub

Set AnRowItEsms=Nothing
Response.End
%>

请问首页要怎么写，程序是这一个，请下载后看一下，感谢，对我提问不明白的话请加QQ133924
原程序在站长站下载的，http://down.chinaz.com/soft/27204.htm
不明白我的问题的请下载一下看一下就知道了，少了一个首页生成HTML文件，要的就是这个文件

Answer 1

aboutus 这张表里是不是少条记录，就是生成首页的记录

参考资料：www.taotechinfo.com

Answer 2

生成首页用ajax

主要是 xmlhttp与 stream 的用法
这是生成html的代码：参考一下吧；
网上也有很多 ，都是这样的
看一下这个函数： SaveFile(LocalFileName,RemoteFileUrl)

<%

set conn=server.CreateObject("adodb.connection")

conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.MapPath("/test1/test.mdb")

set rs=server.CreateObject("adodb.recordset")

sql="select * from test order by time desc "
rs.open sql,conn,1,1
rs.PageSize=4

if SaveFile("index.html","http://"&Request.ServerVariables("server_name")&"/test1/index.asp") then
Response.write "<div style='text-align:center;width:100%;color:Green;margin:20px auto;font-size:16px'><br>index.html首页生成成功！<br></div>"
else
Response.write "<div style='text-align:center;width:80%;color:Green;margin:20px auto;font-size:16px'><br>对不起！<br><br>index.html首页生成失败！<br></div>"
end if

for i=1 to rs.pagecount
if SaveFile("index_"&i&".html","http://"&Request.ServerVariables("server_name")&"/test1/index.asp?page="&i&"") then
Response.write "<div style='text-align:center;width:100%;color:Green;margin:20px auto;font-size:16px'><br>index_"&i&".html生成成功！<br></div>" '生成列表页！
else
Response.write "<div style='text-align:center;width:80%;color:Green;margin:20px auto;font-size:16px'><br>index_"&i&".html生成失败！<br></div>"
end if
next

function SaveFile(LocalFileName,RemoteFileUrl)
Dim Ads, Retrieval, GetRemoteData
On Error Resume Next
Set Retrieval = Server.CreateObject("Microso" & "ft.XM" & "LHTTP")
With Retrieval
.Open "Get", RemoteFileUrl, False, "", ""
.Send
GetRemoteData = .ResponseBody
End With
Set Retrieval = Nothing
Set Ads = Server.CreateObject("Ado" & "db.Str" & "eam")
With Ads
.Type = 1
.Open
.Write GetRemoteData
.SaveToFile Server.MapPath(LocalFileName), 2
.Cancel()
.Close()
End With
Set Ads=nothing
if err <> 0 then
SaveFile = false
err.clear
else
SaveFile = true
end if
End function
%>