asp自动批量生成htm文件 5
现有一个多级目录，每个文件夹内有几个pdf文件，现要为每一个pdf文件自动生成一个同名的htm文件，htm文件内要写入该文件的地址，请问用asp能不能实现？请给出相应的代...
现有一个多级目录，每个文件夹内有几个pdf文件，现要为每一个pdf文件自动生成一个同名的htm文件，htm文件内要写入该文件的地址，请问用asp能不能实现？请给出相应的代码
感谢tianzilanyu的回答，但是我的情况是没有数据库的，不能通过调用数据库的数据生成。我只有pdf文件，要根据pdf文件名生成html文件，请tianzilanyu再帮我想想 展开
感谢tianzilanyu的回答，但是我的情况是没有数据库的，不能通过调用数据库的数据生成。我只有pdf文件，要根据pdf文件名生成html文件，请tianzilanyu再帮我想想 展开
展开全部
一般是这样来实现的，在数据库里保存好页面的模板，分上和下两部分。
把要生成的内容加上上下两部分，然后用FSO输出为HTML文件就可以了。
一个例子：
...
pTop=rs("pTop") '页面头
pEnd=rs("pEnd") '页面尾
...
pContent="...." '中间内容
Content=pTop & pEnd &pContent
...
fName="..." '文件名
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile( fName &".html", True) '路径要注意
f1.Write (Content)
...
把要生成的内容加上上下两部分，然后用FSO输出为HTML文件就可以了。
一个例子：
...
pTop=rs("pTop") '页面头
pEnd=rs("pEnd") '页面尾
...
pContent="...." '中间内容
Content=pTop & pEnd &pContent
...
fName="..." '文件名
Set fso = CreateObject("Scripting.FileSystemObject")
Set f1 = fso.CreateTextFile( fName &".html", True) '路径要注意
f1.Write (Content)
...
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
展开全部
已测试，可以使用
<!--#include file="Conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql = "select * from aaa order by ID asc"
rs.open sql,conn,1,1
do while not rs.eof
Set fso = CreateObject("Scripting.FileSystemObject")
File=Server.MapPath(rs("ID")&".htm")'文件名
Set txt=fso.OpenTextFile(File,8,True)
data1="<html><head><title>"&rs("name")&"</title></head><body>"
txt.WriteLine data1
data2=rs("txt")&"</body></html>"
txt.Write data2
txt.Close
'txt.fso
rs.movenext
loop
rs.close
%>
<!--#include file="Conn.asp"-->
<%
set rs=server.createobject("adodb.recordset")
sql = "select * from aaa order by ID asc"
rs.open sql,conn,1,1
do while not rs.eof
Set fso = CreateObject("Scripting.FileSystemObject")
File=Server.MapPath(rs("ID")&".htm")'文件名
Set txt=fso.OpenTextFile(File,8,True)
data1="<html><head><title>"&rs("name")&"</title></head><body>"
txt.WriteLine data1
data2=rs("txt")&"</body></html>"
txt.Write data2
txt.Close
'txt.fso
rs.movenext
loop
rs.close
%>
本回答被网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
