求:生成静态页面,该怎么解决
日期：2014-05-17 浏览次数：21161 次
求:生成静态页面
问个问题,顺便散点分,一个数据库表里有一些产品信息,要求每个产品生成一个静态页面,页面格式是固定的,变动的就是产品信息部分,请问有没有好的方法实现..谢谢
------解决方案--------------------
希望对你有帮助
fcontent= "HTML代码 "
call chtm()
function chtm()
dim forumid
'保存文件名
filename= "top_ "&request( "forumid ")& ".htm "
set MyFileObject=server.createobject( "Scripting.FileSystemObject ")
set MyTextFile=MyFileObject.CreateTextFile(server.mappath( " "&filename& " "))
MyTextFile.WriteLine(fcontent)
MyTextFile.close
response.write "已经生成 "
end function
------解决方案--------------------
1、xmlhttp抓取指定产品id对应的页面，然后fso保存，记录文件名到数据库。
2、也可以直接从数据库读取产品信息，并将信息与你预先定义的格式摸板合在一起生成文件，并记录文件名。
------解决方案--------------------
先生成文件名，然后保存进数据库，最后按照这个文件名生成页面
------解决方案--------------------
用伪静态来实现好了，呵呵
isapi_urlRewrite
------解决方案--------------------
我这有个很简单的例子，利用FSO+摸板生成静态页，你可以参考下
要的话留下你的email，我发给你。
------解决方案--------------------
我这有利用FSO+摸板生成静态页，你可以参考下,要的话留下你的email，我发给你
------解决方案--------------------
人呢,楼上二位仁兄呢,帮我发一份吧
--------------------------
已经发送
------解决方案--------------------
给我也来一份吧!
nevercried@hotmail.com
------解决方案--------------------
<!--模块文件(template.htm)-->
<html>
<head>
<title> %TITLE% </title>
</head>
<body>
%CONTENT%
</body>
</html>
<!--TestTemplate.asp-->
<%
Dim fso,f
Dim strTitle,strContent,strOut
'创建文件系统对象
Set fso=Server.CreateObject( "Scripting.FileSystemObject ")
'打开网页模板文件，读取模板内容
Set f=fso.OpenTextFile(Server.MapPath( "Template.htm "))
strOut=f.ReadAll
f.close
strTitle= "这是生成的网页标题1 "
strContent= "这是生成的网页内容1 "
'用真实内容替换模板中的标记
strOut=Replace(strOut, "%TITLE% ",strTitle)
strOut=Replace(strOut, "%CONTENT% ",strContent)
'创建文件夹
if (fso.FolderExists(Server.MapPath(View_BaiZhaoID))) then
'判断如果存在就不做处理
else
'判断如果不存在则建立新文件夹
fso.CreateFolder(Server.MapPath(View_BaiZhaoID))
end if
'创建要生成的静态页
Set f=fso.CreateTextFile(Server.MapPath(View_BaiZhaoID& "/Z_Music_New.htm "),true)
'写入网页内容
f.WriteLine strOut
f.close
Response.Write "生成静态页成功！ "
'释放文件系统对象
set f=Nothing
set fso=Nothing
%>
问个问题,顺便散点分,一个数据库表里有一些产品信息,要求每个产品生成一个静态页面,页面格式是固定的,变动的就是产品信息部分,请问有没有好的方法实现..谢谢
------解决方案--------------------
希望对你有帮助
fcontent= "HTML代码 "
call chtm()
function chtm()
dim forumid
'保存文件名
filename= "top_ "&request( "forumid ")& ".htm "
set MyFileObject=server.createobject( "Scripting.FileSystemObject ")
set MyTextFile=MyFileObject.CreateTextFile(server.mappath( " "&filename& " "))
MyTextFile.WriteLine(fcontent)
MyTextFile.close
response.write "已经生成 "
end function
------解决方案--------------------
1、xmlhttp抓取指定产品id对应的页面，然后fso保存，记录文件名到数据库。
2、也可以直接从数据库读取产品信息，并将信息与你预先定义的格式摸板合在一起生成文件，并记录文件名。
------解决方案--------------------
先生成文件名，然后保存进数据库，最后按照这个文件名生成页面
------解决方案--------------------
用伪静态来实现好了，呵呵
isapi_urlRewrite
------解决方案--------------------
我这有个很简单的例子，利用FSO+摸板生成静态页，你可以参考下
要的话留下你的email，我发给你。
------解决方案--------------------
我这有利用FSO+摸板生成静态页，你可以参考下,要的话留下你的email，我发给你
------解决方案--------------------
人呢,楼上二位仁兄呢,帮我发一份吧
--------------------------
已经发送
------解决方案--------------------
给我也来一份吧!
nevercried@hotmail.com
------解决方案--------------------
<!--模块文件(template.htm)-->
<html>
<head>
<title> %TITLE% </title>
</head>
<body>
%CONTENT%
</body>
</html>
<!--TestTemplate.asp-->
<%
Dim fso,f
Dim strTitle,strContent,strOut
'创建文件系统对象
Set fso=Server.CreateObject( "Scripting.FileSystemObject ")
'打开网页模板文件，读取模板内容
Set f=fso.OpenTextFile(Server.MapPath( "Template.htm "))
strOut=f.ReadAll
f.close
strTitle= "这是生成的网页标题1 "
strContent= "这是生成的网页内容1 "
'用真实内容替换模板中的标记
strOut=Replace(strOut, "%TITLE% ",strTitle)
strOut=Replace(strOut, "%CONTENT% ",strContent)
'创建文件夹
if (fso.FolderExists(Server.MapPath(View_BaiZhaoID))) then
'判断如果存在就不做处理
else
'判断如果不存在则建立新文件夹
fso.CreateFolder(Server.MapPath(View_BaiZhaoID))
end if
'创建要生成的静态页
Set f=fso.CreateTextFile(Server.MapPath(View_BaiZhaoID& "/Z_Music_New.htm "),true)
'写入网页内容
f.WriteLine strOut
f.close
Response.Write "生成静态页成功！ "
'释放文件系统对象
set f=Nothing
set fso=Nothing
%>
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
