UC知道ASP批量生成静态页面
来源：百度知道 编辑：UC知道 时间：2024/06/06 08:56:47
以下是我批量生成静态页面的程序，现在有个问题就是，我每次运行这个程序的时候，每次都是重新生成，我希望的是，如果该静态页面已经存在的话，就读取该静态页面，直接更新这个页面，如果不存在在直接生成，因为我的静态页面的路径是存在数据库中的，模板也是数据库中的，如果重新生成的话，静态的页面的名字是根据时间命名的，所以也会改变，请高手帮忙指点
<!--#include file="conn.asp"-->
<!--#include file="lib.asp" -->
<%
fname = makefilename(now()) 'makefilename为自定义函数
folder = "../newsfile/"&date()&"/"
filepath = folder&fname
dim cid,sql,msql
''cid=cint(request.QueryString("cid"))''分类id号
msql="select m_id,m_html from c_moban where m_id=1" ''打开摸板内容．就一个摸板，显示新闻内容的
set rs1=Server.CreateObject("adodb.recordset")
rs1.open msql,conn,1,1
mb_code=rs1("m_html")
start = request("start") ''获取本轮指针的开始位置
If IsNumeric(start) Then start = CLng(start) Else start=1
If start=0 Then start = 1 ''
''提取某一子栏目下的所有新闻．
<!--#include file="conn.asp"-->
<!--#include file="lib.asp" -->
<%
fname = makefilename(now()) 'makefilename为自定义函数
folder = "../newsfile/"&date()&"/"
filepath = folder&fname
dim cid,sql,msql
''cid=cint(request.QueryString("cid"))''分类id号
msql="select m_id,m_html from c_moban where m_id=1" ''打开摸板内容．就一个摸板，显示新闻内容的
set rs1=Server.CreateObject("adodb.recordset")
rs1.open msql,conn,1,1
mb_code=rs1("m_html")
start = request("start") ''获取本轮指针的开始位置
If IsNumeric(start) Then start = CLng(start) Else start=1
If start=0 Then start = 1 ''
''提取某一子栏目下的所有新闻．
<!--#include file="conn.asp"-->
<!--#include file="lib.asp" -->
<%
Function RemoveHTML(strHTML)
Dim objRegExp, Match, Matches
Set objRegExp = New Regexp
objRegExp.IgnoreCase = True
objRegExp.Global = True
'取闭合的<>
objRegExp.Pattern = "<.+?>"
'进行匹配
Set Matches = objRegExp.Execute(strHTML)
' 遍历匹配集合，并替换掉匹配的项目
For Each Match in Matches
strHtml=Replace(strHTML,Match.Value,"")
strHtml=Replace(strHTML," ","")
Next
RemoveHTML=strHTML
Set objRegExp = Nothing
End Function
'调用
str=RemoveHTML(str)
%>
<%
fname = makefilename(now()) 'makefilename为自定义函数
folder = "../newsfile/"&date()&"/"
filepath = folder&fname
dim cid,sql,msql
''cid=cint(request.QueryString(&quo