asp批量生成htm代码问题
<!--#includefile="Conn.asp"--><!--#includefile="isLogin.asp"--><html><head><metahttp-...
<!--#include file="Conn.asp" -->
<!--#include file="isLogin.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>全自动生成FLASH的HTML页文件</title>
<style>
body{font-size:12pt;line-height:140%}
</style>
</head>
<body>
<%
if request("type")<>"" then
if request("page")<>"" then
page=cint(request("page"))
else
page=1
end if
mpage=1
mpage1=1
MaxPerPage=15
id=request("id")
set rs=server.createobject("adodb.recordset")
if request("type")="all" then
rs.open ("SELECT * FROM flash order by id desc"),conn,1,1
if not rs.eof then
rs.pagesize=1 '得到每页数
mpage1=rs.pagecount '得到总页数
rs.move (page-1)*1
do while not rs.eof
i=i+1
id=rs("id")
if i>=1 then exit do
rs.movenext
loop
rs.close
end if
end if
conn.close
set conn=nothing
response.write"<b><font color=""#FF0000"">"&page&"</font>/<font color=""#FF0000"">"&mpage1&"</font> 正在flash的Html页</b><span id=showImport></span><IE:Download ID=""oDownload"" STYLE=""behavior:url(#default#download)"" />"
for ii=1 to mpage
m=m+1
response.write"<script>function onDownloadDone(downDate){showImport.innerHTML=downDate}oDownload.startDownload('html_makeflash.asp?id="&id&"',onDownloadDone)</script>"
next
if page<mpage1 then
response.write"<meta http-equiv=""refresh"" content=""0;url='html_makeflashall.asp?type="&request("type")&"&page="&page+1&"&m="&request("m")+m&"'"">"
else
response.write"<meta http-equiv=""refresh"" content=""0;url='html_makeflashall.asp?ok="&page&"&m="&request("m")+m&"'"">"
end if
else
response.write"<b>操作完成:共生成页面<font color=""#FF0000"">"&request("m")&"</font>个</b>"
end if
%></body></html>
此代码没生成一页刷新一次 很麻烦 哪位高人帮我改改 每500页刷新一次 展开
<!--#include file="isLogin.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>全自动生成FLASH的HTML页文件</title>
<style>
body{font-size:12pt;line-height:140%}
</style>
</head>
<body>
<%
if request("type")<>"" then
if request("page")<>"" then
page=cint(request("page"))
else
page=1
end if
mpage=1
mpage1=1
MaxPerPage=15
id=request("id")
set rs=server.createobject("adodb.recordset")
if request("type")="all" then
rs.open ("SELECT * FROM flash order by id desc"),conn,1,1
if not rs.eof then
rs.pagesize=1 '得到每页数
mpage1=rs.pagecount '得到总页数
rs.move (page-1)*1
do while not rs.eof
i=i+1
id=rs("id")
if i>=1 then exit do
rs.movenext
loop
rs.close
end if
end if
conn.close
set conn=nothing
response.write"<b><font color=""#FF0000"">"&page&"</font>/<font color=""#FF0000"">"&mpage1&"</font> 正在flash的Html页</b><span id=showImport></span><IE:Download ID=""oDownload"" STYLE=""behavior:url(#default#download)"" />"
for ii=1 to mpage
m=m+1
response.write"<script>function onDownloadDone(downDate){showImport.innerHTML=downDate}oDownload.startDownload('html_makeflash.asp?id="&id&"',onDownloadDone)</script>"
next
if page<mpage1 then
response.write"<meta http-equiv=""refresh"" content=""0;url='html_makeflashall.asp?type="&request("type")&"&page="&page+1&"&m="&request("m")+m&"'"">"
else
response.write"<meta http-equiv=""refresh"" content=""0;url='html_makeflashall.asp?ok="&page&"&m="&request("m")+m&"'"">"
end if
else
response.write"<b>操作完成:共生成页面<font color=""#FF0000"">"&request("m")&"</font>个</b>"
end if
%></body></html>
此代码没生成一页刷新一次 很麻烦 哪位高人帮我改改 每500页刷新一次 展开
1个回答
展开全部
用个FOR 让生成代码重复生成 500 页面后再 到下一页不就行了。
以下是本人做网站时原创的一个生成代码。
<%
'-----------------------文章内容静态生成------------------------------
Public Sub NrcreateHtml()
Dim Tmprs,Tmpsql,Tcontent,Cnol,stm,filePath,ysql,temid
Set objrs=Server.CreateObject("adodb.recordset")
If Request.QueryString("page")=0 Then
ysql="Select top 5 * from Content Where sh=1 order by Id desc"
Else
temid=Request.QueryString("page")*5
ysql="Select top 5 * from Content Where Id not in (Select top "&temid&" Id from Content Where sh=1 order by Id desc) And sh=1 order by Id desc"
End If
objrs.Open ysql,conn,1,1
If objrs.Eof Then
Response.Write"所有页面生成完成！"
Response.End()
End If
Do While Not objrs.Eof
pagec=objrs("FId")
If Instr(objrs("Content"),"[NextPage]")>0 Then '检查内容页是否做了分页设置
nrF=split(objrs("Content"),"[NextPage]")
lcount=Lbound(nrF)
ncount=Ubound(nrF)
'response.Write(lcount)
'response.Write(ncount)
For Ni5=Lbound(nrF) To Ubound(nrF)
Set Tmprs=Server.CreateObject("adodb.recordset")
Tmpsql="Select * from Templet where Id="&GetchannelTId(objrs("FId"),2)&""
Tmprs.Open Tmpsql,conn,1,1
Tcontent=Tmprs("Templet")
Tmprs.Close
Set Tmprs=Nothing
If Ni5=0 Then
filePath="/"&GetCName(objrs("FId"))&"/"&objrs("Id")&".html"
Else
filePath="/"&GetCName(objrs("FId"))&"/"&objrs("Id")&"_"&Ni5&".html"
End If
set stm=Server.CreateObject("adodb.stream")
stm.Type=2 'adTypeText，文本数据
stm.Mode=3 'adModeReadWrite,读取写入，此参数用2则报错
stm.Charset="gb2312"
stm.Open
stm.WriteText Changehtml(Tcontent)
stm.SaveToFile Server.MapPath(filePath),2 'adSaveCreateOverWrite，文件存在则覆盖
stm.Flush
stm.Close
set stm=nothing
response.Write("<a href="&filePath&" target=""_blank"">成功生成页面"&filePath&"</a><br/>")
Next
Else
Ni5=-2
'--------------------------------------------------------------------
'response.Write(objrs("Id")&"<br/>")
'response.Write(GetchannelTId(objrs("Id"),2))
Set Tmprs=Server.CreateObject("adodb.recordset")
Tmpsql="Select * from Templet where Id="&GetchannelTId(objrs("FId"),2)&""
Tmprs.Open Tmpsql,conn,1,1
Tcontent=Tmprs("Templet")
Tmprs.Close
Set Tmprs=Nothing
'--------------根据文章ID生成内容------------------
filePath=Server.MapPath("/"&GetCName(objrs("FId"))&"/"&objrs("Id")&".html")
set stm=Server.CreateObject("adodb.stream")
stm.Type=2 'adTypeText，文本数据
stm.Mode=3 'adModeReadWrite,读取写入，此参数用2则报错
stm.Charset="gb2312"
stm.Open
stm.WriteText Changehtml(Tcontent)
stm.SaveToFile filePath,2 'adSaveCreateOverWrite，文件存在则覆盖
stm.Flush
stm.Close
set stm=nothing
response.Write("<a href=""/"&GetCName(objrs("FId"))&"/"&objrs("Id")&".html"" target=""_blank"">成功生成页面"&objrs("Id")&".html"&"</a><br/>")
'-----------------------------------------------------
End If
objrs.MoveNext
Loop
objrs.Close
Set objrs=Nothing
Response.Write("<br/><br/>3秒后将继续生成下一页，如果遇到内容页分页，请耐心等等！。")
%>
<script type="text/javascript">
function GetUrlParms()
{
var args=new Object();
var query=location.search.substring(1);//获取查询串
var pairs=query.split("&");//在逗号处断开
for(var i=0;i<pairs.length;i++)
{
var pos=pairs[i].indexOf('=');//查找name=value
if(pos==-1) continue;//如果没有找到就跳过
var argname=pairs[i].substring(0,pos);//提取name
var value=pairs[i].substring(pos+1);//提取value
args[argname]=unescape(value);//存为属性
}
return args;
}
var args=new Object();
args=GetUrlParms();
var page=args["page"];
page=parseInt(page)+1
window.setTimeout(document.location="Tohtml.asp?Id=3&page="+page+"",3000);
</script>
<%
End Sub%>
以下是本人做网站时原创的一个生成代码。
<%
'-----------------------文章内容静态生成------------------------------
Public Sub NrcreateHtml()
Dim Tmprs,Tmpsql,Tcontent,Cnol,stm,filePath,ysql,temid
Set objrs=Server.CreateObject("adodb.recordset")
If Request.QueryString("page")=0 Then
ysql="Select top 5 * from Content Where sh=1 order by Id desc"
Else
temid=Request.QueryString("page")*5
ysql="Select top 5 * from Content Where Id not in (Select top "&temid&" Id from Content Where sh=1 order by Id desc) And sh=1 order by Id desc"
End If
objrs.Open ysql,conn,1,1
If objrs.Eof Then
Response.Write"所有页面生成完成！"
Response.End()
End If
Do While Not objrs.Eof
pagec=objrs("FId")
If Instr(objrs("Content"),"[NextPage]")>0 Then '检查内容页是否做了分页设置
nrF=split(objrs("Content"),"[NextPage]")
lcount=Lbound(nrF)
ncount=Ubound(nrF)
'response.Write(lcount)
'response.Write(ncount)
For Ni5=Lbound(nrF) To Ubound(nrF)
Set Tmprs=Server.CreateObject("adodb.recordset")
Tmpsql="Select * from Templet where Id="&GetchannelTId(objrs("FId"),2)&""
Tmprs.Open Tmpsql,conn,1,1
Tcontent=Tmprs("Templet")
Tmprs.Close
Set Tmprs=Nothing
If Ni5=0 Then
filePath="/"&GetCName(objrs("FId"))&"/"&objrs("Id")&".html"
Else
filePath="/"&GetCName(objrs("FId"))&"/"&objrs("Id")&"_"&Ni5&".html"
End If
set stm=Server.CreateObject("adodb.stream")
stm.Type=2 'adTypeText，文本数据
stm.Mode=3 'adModeReadWrite,读取写入，此参数用2则报错
stm.Charset="gb2312"
stm.Open
stm.WriteText Changehtml(Tcontent)
stm.SaveToFile Server.MapPath(filePath),2 'adSaveCreateOverWrite，文件存在则覆盖
stm.Flush
stm.Close
set stm=nothing
response.Write("<a href="&filePath&" target=""_blank"">成功生成页面"&filePath&"</a><br/>")
Next
Else
Ni5=-2
'--------------------------------------------------------------------
'response.Write(objrs("Id")&"<br/>")
'response.Write(GetchannelTId(objrs("Id"),2))
Set Tmprs=Server.CreateObject("adodb.recordset")
Tmpsql="Select * from Templet where Id="&GetchannelTId(objrs("FId"),2)&""
Tmprs.Open Tmpsql,conn,1,1
Tcontent=Tmprs("Templet")
Tmprs.Close
Set Tmprs=Nothing
'--------------根据文章ID生成内容------------------
filePath=Server.MapPath("/"&GetCName(objrs("FId"))&"/"&objrs("Id")&".html")
set stm=Server.CreateObject("adodb.stream")
stm.Type=2 'adTypeText，文本数据
stm.Mode=3 'adModeReadWrite,读取写入，此参数用2则报错
stm.Charset="gb2312"
stm.Open
stm.WriteText Changehtml(Tcontent)
stm.SaveToFile filePath,2 'adSaveCreateOverWrite，文件存在则覆盖
stm.Flush
stm.Close
set stm=nothing
response.Write("<a href=""/"&GetCName(objrs("FId"))&"/"&objrs("Id")&".html"" target=""_blank"">成功生成页面"&objrs("Id")&".html"&"</a><br/>")
'-----------------------------------------------------
End If
objrs.MoveNext
Loop
objrs.Close
Set objrs=Nothing
Response.Write("<br/><br/>3秒后将继续生成下一页，如果遇到内容页分页，请耐心等等！。")
%>
<script type="text/javascript">
function GetUrlParms()
{
var args=new Object();
var query=location.search.substring(1);//获取查询串
var pairs=query.split("&");//在逗号处断开
for(var i=0;i<pairs.length;i++)
{
var pos=pairs[i].indexOf('=');//查找name=value
if(pos==-1) continue;//如果没有找到就跳过
var argname=pairs[i].substring(0,pos);//提取name
var value=pairs[i].substring(pos+1);//提取value
args[argname]=unescape(value);//存为属性
}
return args;
}
var args=new Object();
args=GetUrlParms();
var page=args["page"];
page=parseInt(page)+1
window.setTimeout(document.location="Tohtml.asp?Id=3&page="+page+"",3000);
</script>
<%
End Sub%>
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
