关于恶魔天使的电影:ASP批量生成html问题.....急救..
来源:百度文库 编辑:高校问答 时间:2024/05/08 13:01:55
小弟想把我站的信息浏览页面批量转换成htm的...
代码如下..
<!--#i nclude file="conn.asp" -->
<%
Dim weburl
sql = "SELECT * FROM movie order by id desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,db,1,3
do while not rs.eof
weburl="<!--#i nclude file=display.asp?id="&rs("id")&"-->"
body=getHTTPPage(weburl)’
Set fso = CreateObject("Scripting.FileSystemObject")
File=Server.MapPath("/html/"&rs("id")&".htm")
Set txt=fso.OpenTextFile(File,8,True)
txt.WriteLine weburl
txt.Close
txt.fso
rs.movenext
loop
rs.close
set rs=nothing
%>
可是没用啊..
显示.
Microsoft VBScript 编译器错误 错误 '800a0408'
无效字符
/mlist.asp,行 19
body=getHTTPPage(weburl)’
-----------------------^
有哪位哥哥知道怎么修改..麻烦告诉我..万分感谢..
有asp转换htm的高手请留个QQ.小弟想指教指教.
把引号去掉了就变成
ADODB.Recordset 错误 '800a0bb9'
参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。
/mlist.asp,行 16
16行是rs.OPEN sql,db,1,3
搞不懂了.55555555555555555 谁教我啊
那我应该怎么弄啊..谁可以说清楚一点啊.
可以弄好.我花点钱也可以..留个QQ
代码如下..
<!--#i nclude file="conn.asp" -->
<%
Dim weburl
sql = "SELECT * FROM movie order by id desc"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.OPEN sql,db,1,3
do while not rs.eof
weburl="<!--#i nclude file=display.asp?id="&rs("id")&"-->"
body=getHTTPPage(weburl)’
Set fso = CreateObject("Scripting.FileSystemObject")
File=Server.MapPath("/html/"&rs("id")&".htm")
Set txt=fso.OpenTextFile(File,8,True)
txt.WriteLine weburl
txt.Close
txt.fso
rs.movenext
loop
rs.close
set rs=nothing
%>
可是没用啊..
显示.
Microsoft VBScript 编译器错误 错误 '800a0408'
无效字符
/mlist.asp,行 19
body=getHTTPPage(weburl)’
-----------------------^
有哪位哥哥知道怎么修改..麻烦告诉我..万分感谢..
有asp转换htm的高手请留个QQ.小弟想指教指教.
把引号去掉了就变成
ADODB.Recordset 错误 '800a0bb9'
参数类型不正确,或不在可以接受的范围之内,或与其他参数冲突。
/mlist.asp,行 16
16行是rs.OPEN sql,db,1,3
搞不懂了.55555555555555555 谁教我啊
那我应该怎么弄啊..谁可以说清楚一点啊.
可以弄好.我花点钱也可以..留个QQ
getHTTPPage,你没有加载相关的协议,就直接调用,当然是无效字符啦。
body=getHTTPPage(weburl)’
最后这个引号去掉
getHTTPPage
有这个函数吗?没吧...