ASP 生成HTML 如何实现下图 选择ID生成
<%
if request("soft")<>"" then
if cint(request("soft"))<1 then
currentPage=1
else
currentPage=cint(request("soft"))
end if
else
currentPage=1
end if
response.write "开始生成网页"
set rs=server.CreateObject("ADODB.RecordSet")
'***生成HTML
MaxPerPage=1
rs.open ("select * from [vod] order by id desc"),conn,1,1
if not rs.eof then
rs.pagesize=MaxPerPage
mpage=rs.pagecount
rs.move (currentPage-1)*MaxPerPage
end if
response.write "<br><br>已生成"¤tPage-1&" / 要生成: <font color=#FF0000>"¤tPage-1&"</font>/<font color=#FF0000><b>"&mpage&"</b></font>个。"
if mpage<currentPage then
response.write "操作完成!"
else
response.write "<meta http-equiv=Refresh content='0; URL=soft.asp?soft="¤tPage+1&"'>"
idd=rs("id")
%>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from [vod] where id="&idd
rs.open sql,conn,1,1
title=rs("mingcheng")
daoyan=rs("daoyan")
niandai=rs("niandai")
name=rs("name")
pic=rs("pic")
url=rs("url")
jieshao=rs("jieshao")
t_title=replace(mingcheng,"_"," ")
typeid=rs("classid")
rs.close
set rs=server.createobject("adodb.recordset")
sql="select * from [vod] where classid="&typeid&" and id>"&idd
rs.open sql,conn,1,1
if rs.eof then
H_next="javascript:void(0)"
else
H_next=rs("id")&".html"
end if
rs.close
set rs=server.createobject("adodb.recordset")
sql="select * from [vod] where classid="&typeid&" and id<"&idd&" order by id desc"
rs.open sql,conn,1,1
if rs.eof then
H_previous="javascript:void(0)"
else
H_previous=rs("id")&".html"
end if
rs.close
set rs=server.createobject("adodb.recordset")
sql="select * from [class] where classid="&typeid
rs.open sql,conn,1,1
htype=rs("classname")
rs.close
FilePath = Server.MapPath("make/mb_vod.html")
set fso = server.CreateObject("scripting.filesystemobject")
if not fso.FileExists(FilePath) then
Response.Write"<br/><font color=red>错误提示：没有发现模版文件.</font>"
response.end
end if
Set fso = Server.CreateObject("Scripting.FileSystemObject")
set fout = fso.opentextfile(FilePath,1,true)
pencat = fout.readall
fout.close
folder=server.mappath("../Vod")
Set fso = CreateObject( "Scripting.FileSystemObject ")
if not(fso.fileexists(Server.mappath(filepath))) then
fso.createfolder(folder)
end if
'## 输出模版
pencat=replace(pencat,"{$title$}",title)
pencat=replace(pencat,"{$daoyan$}",daoyan)
pencat=replace(pencat,"{$name$}",name)
pencat=replace(pencat,"{$pic$}",pic)
pencat=replace(pencat,"{$url$}",url)
pencat=replace(pencat,"{$niandai$}",niandai)
pencat=replace(pencat,"{$classname$}",htype)
pencat=replace(pencat,"{$jieshao$}",jieshao)
pencat=replace(pencat,"{$H_title$}",title&"_"&htype)
pencat=replace(pencat,"{$description$}",description)
pencat=replace(pencat,"{$weizhi$}","<a href=""../Art/Art_"&typeid&"_1.html"">"&htype&"</a> >> "&mingcheng&"")
pencat=replace(pencat,"{$biaoti$}",""&htype&" "&title&"　作者："&zuozhe&"")
pencat=replace(pencat,"{$web$}",Webz)
pencat=replace(pencat,"{$zuozhe$}",zuozhe)
pencat=replace(pencat,"{$next$}",H_next)
pencat=replace(pencat,"{$previous$}",H_previous)
pencat=replace(pencat,"{$home$}","../Art/Art_"&typeid&"_1.html")
pencat=replace(pencat,"{$html$}",html)
pencat=replace(pencat,"{$year$}",year(now()))
Set fout = fso.CreateTextFile(server.mappath("../Vod/iJiaDy_"&idd&".html"))
fout.Write pencat
fout.close
set fso = nothing
%>
<%
rs.close
end if
%>