📄 replylistall1.asp
字号:
<%@ LANGUAGE = VBScript.Encode %>
<%Admin="InfoMake"%>
<!--#include file="mdb_path_info.asp"-->
<!--#include file="config.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta copy="程序制作：xoyu（QQ：5964887）www.xoyu.com">
<title>刷新分类HTML页</title>
<style>
td{font-size:9pt;line-height:140%}
body{font-size:9pt;line-height:140%}
a:link { color: #0033CC; text-decoration: none }
a:visited { color: #0033CC; text-decoration: none }
a:active { color: #FF0000; text-decoration: none }
a:hover { color: #000000; text-decoration: underline}
</style>
</head>
<body>
<%
if request("type")<>"" then
if request("page")<>"" then
page=cint(request("page"))
D=request("D")
else
page=1
D=timer()
end if
mpage=1
mpage1=1
id=request("id")
ts=request("ts")
last=request("last")
MaxPerPage=request("MaxPerPage")
infoid=request("infoid")
set rs=server.createobject("adodb.recordset")
if request("type")="all" then
rs.open ("select id,ts,last,MaxPerPage from infotype where ts like '"&request("ts")&"%' 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")
ts=rs("ts")
last=rs("last")
MaxPerPage=rs("MaxPerPage")
if i>=1 then exit do
rs.movenext
loop
rs.close
end if
end if
if id<>"" then
if last="2" then
mpage=1
end if
if last="1" then
sql="select * from infotype where ts like '"&ts&"%'"
rs.open sql,conn,1,1
if not rs.eof then
do while not rs.eof
sqqq=sqqq& ""&rs("id")&", "
rs.MoveNext
loop
end if
rs.close
rs.open ("select * from info where tid in("&sqqq&")"),conn,1,1
if not rs.eof then
rs.pagesize=MaxPerPage '得到每页数
mpage=rs.pagecount '得到总页数
else
mpage=1
end if
rs.close
end if
end if
set rs=nothing
conn.close
set conn=nothing
response.write"<b>刷新终极文章分类(ID"&infoid&")的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('makelist.asp?MaxPerPage="&MaxPerPage&"&tid="&id&"&page="&ii&"',onDownloadDone)</script>"
next
if page<mpage1 then
response.write"<meta http-equiv=""refresh"" content=""0;url='replylistall.asp?infoid="&infoid&"&type="&request("type")&"&ts="&request("ts")&"&page="&page+1&"&m="&request("m")+m&"&D="&D&"'"">"
else
response.write"<meta http-equiv=""refresh"" content=""0;url='replylistall.asp?infoid="&infoid&"&ok="&page&"&m="&request("m")+m&"&D="&D&"'"">"
end if
else
response.write"<b>刷新完成！</b>"
response.end
end if
%></body></html>
<script LANGUAGE="JavaScript">
<!--
setTimeout('window.close();', 500);
// -->
</script>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -