如何批量将asp 程序生成的数量众多的文件生成html文件,有想有没有现成的程序!
我的程序是asp+sql2000的。我将实现将比如show.asp?id=10等,都自动从1号生成到100号,生成100个静态文件。有没有这样的程序可以自动实现。我用飞鸟...
我的程序是asp+sql2000的。我将实现将比如show.asp?id=10 等,都自动从1号生成到100号,生成100个静态文件。
有没有这样的程序可以自动实现。
我用飞鸟的,上传后,提示:
Microsoft VBScript 运行时错误 错误 '800a0046'
没有权限
/bird-html/functions.asp,行 284
权限我给的是,everyone 全部权限。 展开
有没有这样的程序可以自动实现。
我用飞鸟的,上传后,提示:
Microsoft VBScript 运行时错误 错误 '800a0046'
没有权限
/bird-html/functions.asp,行 284
权限我给的是,everyone 全部权限。 展开
3个回答
展开全部
要有fso的权限,如果可以,你按照这个程序去改改,生成html了的asp程序。
<!--#include file="conn.asp"-->
<%
filename="../html/pinpai.html"
set fso=server.createobject("scripting.filesystemobject")
set ffile=fso.createtextfile(server.mappath(""&filename&""))
set rs=server.createobject("adodb.recordset")
sql="select top 1 * from mb order by id desc"
rs.open sql,conn,1,1
mb1=rs("pinpai")
rs.close
classjs="<table height=56 border=0 cellpadding=0 cellspacing=0>"
set rsclassjs=server.CreateObject("adodb.recordset")
sql="select * from bigclass order by paixu"
rsclassjs.open sql,conn,1,1
if rsclassjs.eof then
classjs=classjs&"暂时没有商品分类"
else
do while not rsclassjs.eof
xsid=rsclassjs("bcid")
classname=rsclassjs("name1")
classjs=classjs&"<tr><td><a href="&url&"class/"&classname&"/index1.htm><b>"&rsclassjs("bcname")&"</b></a>"
set rs1classjs=server.createobject("adodb.recordset")
sql1="select * from smallclass where bcid="&xsid
rs1classjs.open sql1,conn,1,1
if rs1classjs.eof then
classjs=classjs&"</td></tr>"
else
classjs=classjs&"<tr><td><TABLE cellSpacing=10 cellPadding=0 border=0><TR><td>"
i=0
do while not rs1classjs.eof
i=i+1
dim scnamezhi
scnamezhi=rs1classjs("scname")
text=rs1classjs("scname")
tar=10
if len(text)>tar then
text=left(text,tar)
else
text=left(text,tar)
end if
classjs=classjs&"<td>·<a href="&url&"class/"&rs1classjs("name2")&"/index1.htm alt="&scnamezhi&">"&text&"</a>"
if i mod 1=0 then
classjs=classjs&"</td>"
end if
rs1classjs.movenext
loop
classjs=classjs&"</tr></table>"
end if
rs1classjs.close
set rs1classjs=nothing
rsclassjs.movenext
loop
end if
rsclassjs.close
classjs=classjs&"</td></tr></table>"
mb1=replace(mb1,"[classjs]",classjs)
ffile.write""&mb1&""
ffile.close
set ffile=nothing
set fso=nothing
response.write"<script language=javascript>alert('网站品牌成功生成');this.location.href='mb-pinpai.asp';</script>"
%>
模板里面有这个[classjs]就行了
<!--#include file="conn.asp"-->
<%
filename="../html/pinpai.html"
set fso=server.createobject("scripting.filesystemobject")
set ffile=fso.createtextfile(server.mappath(""&filename&""))
set rs=server.createobject("adodb.recordset")
sql="select top 1 * from mb order by id desc"
rs.open sql,conn,1,1
mb1=rs("pinpai")
rs.close
classjs="<table height=56 border=0 cellpadding=0 cellspacing=0>"
set rsclassjs=server.CreateObject("adodb.recordset")
sql="select * from bigclass order by paixu"
rsclassjs.open sql,conn,1,1
if rsclassjs.eof then
classjs=classjs&"暂时没有商品分类"
else
do while not rsclassjs.eof
xsid=rsclassjs("bcid")
classname=rsclassjs("name1")
classjs=classjs&"<tr><td><a href="&url&"class/"&classname&"/index1.htm><b>"&rsclassjs("bcname")&"</b></a>"
set rs1classjs=server.createobject("adodb.recordset")
sql1="select * from smallclass where bcid="&xsid
rs1classjs.open sql1,conn,1,1
if rs1classjs.eof then
classjs=classjs&"</td></tr>"
else
classjs=classjs&"<tr><td><TABLE cellSpacing=10 cellPadding=0 border=0><TR><td>"
i=0
do while not rs1classjs.eof
i=i+1
dim scnamezhi
scnamezhi=rs1classjs("scname")
text=rs1classjs("scname")
tar=10
if len(text)>tar then
text=left(text,tar)
else
text=left(text,tar)
end if
classjs=classjs&"<td>·<a href="&url&"class/"&rs1classjs("name2")&"/index1.htm alt="&scnamezhi&">"&text&"</a>"
if i mod 1=0 then
classjs=classjs&"</td>"
end if
rs1classjs.movenext
loop
classjs=classjs&"</tr></table>"
end if
rs1classjs.close
set rs1classjs=nothing
rsclassjs.movenext
loop
end if
rsclassjs.close
classjs=classjs&"</td></tr></table>"
mb1=replace(mb1,"[classjs]",classjs)
ffile.write""&mb1&""
ffile.close
set ffile=nothing
set fso=nothing
response.write"<script language=javascript>alert('网站品牌成功生成');this.location.href='mb-pinpai.asp';</script>"
%>
模板里面有这个[classjs]就行了
展开全部
貌似不是你的程序问题
是空间给你的权限太低了
你看看你到底都有什么权限
是不是可以创建文件等等
是空间给你的权限太低了
你看看你到底都有什么权限
是不是可以创建文件等等
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
展开全部
如果你的网页是每个看的都可以SHOW。ASP,那么应该每个人都有在你空间写的权限,但一般空间不会这样给权限,他不怕着黑啊?你用动态分页技术试一下。
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询