html_web()
贴出来看看 ,另外,在所有包含文件打开看一下
把类似on error resume next这样的代码注释掉,
再刷新页面,看有没有错误提示!(on error resume next这个代码一般都是写在数据库链接文件里面;如:conn.asp)
你的页面应该是生成了的,只是被覆盖了,这样改一下:
<%if request("action")="shengjing" then
set rs=server.CreateObject("adodb.recordset")
sql="select * from base where hei<>'yes' and html<>'y'"
rs.open sql,conn,1,3
while not rs.eof and not rs.bof
z_page=left(rep(rs("title")),60)&""
title=left(rep(rs("title")),60)
url=rs("url")
uclass=class_axing(rs("class"))
tag=rs("keywords")
addtime=rs("addtime")
if rs("content")="" or isnull(rs("content")) then
content="无"
else
content=left(rs("content"),4000)&"..."
end if
call html_web(rs("id"))
rs("html")="y"
rs.update
rs.movenext
wend
rs.close
set rs=nothing
output("通过审核没生静网址已经全部生静html!")
response.write ""
end if
%>
sub html_web()改为:sub html_web(id)
在程序中加一个参数,用于记录数据库中的静态页面数num,但判断num=num+1时输出显示信息及没有错了
生存静态文件涉及到文件生成。我在你这里没有看到生成静态文件的代码。当然生成不成功了(或许你写在别的地方)。
你在数据库里面能找到rs("html")="y"生成成功 ,那只能说明你写入数据库成功,和生成文件没关系。
你先把静态文件生成练习下在弄吧。
这个对象FileSystemObject文件生成的。建议看看VBSCRIPT手册 看看
标签:asp,批量,高手