jb51生成所有页面的效果+分页生成 原创
内容导读
互联网集市收集整理的这篇技术教程文章主要介绍了jb51生成所有页面的效果+分页生成 原创,小编现在分享给大家,供广大互联网技能从业者学习和参考。文章包含5039字,纯文字阅读大概需要8分钟。
内容图文
![jb51生成所有页面的效果+分页生成 原创](/upload/InfoBanner/zyjiaocheng/386/5dd80be8d03e4ebca9d0d4ef0d82645a.jpg)
<!--#include file="conn.asp"-->
<style type="text/css">
body,td,th{
color:#000000;
font-size:14px;
background-color:#D6DFF7;
}
</style>
<%
dim rs
set rs=server.CreateObject("adodb.recordset")
if request("type")="date" then
yearstr=request("selyear")
monstr=request("selmonth")
daystr=request("selday")
if daystr<>"" then
theymd=yearstr&"-"&monstr&"-"&daystr
sql="select id from news where datetime like '"&theymd&"%' order by datetime desc"
else
theymd=yearstr&"-"&monstr&"-"
sql="select id from news where datetime like '"&theymd&"%' order by datetime desc"
end if
elseif request("type")="new" then
topnew=request("newcount")
if topnew<>"" then
topnew=cint(topnew)
sql="select top "&topnew&" id from news order by datetime desc"
end if
elseif request("type")="nosh" then
sql="select id from news where shengcheng=0"
elseif request("type")="all" then
sql="select id from news order by id desc"
end if
if sql<>"" then
response.write sql
response.write"<center><b><font color=""#FF0000"">正在生成文章内容页的Html页,请等待......</font></b><span id=showImport></span></center><IE:Download ID=""oDownload"" STYLE=""behavior:url(#default#download)"" />"
if request("p")<>"" then
p=cint(request("p"))
else
p=1
end if
MaxPerPage=100
rs.open sql,conn,1,1
if not rs.eof then
rs.pagesize=MaxPerPage '得到每页数
mpage=rs.pagecount '得到总页数
allshu=rs.recordcount '得到总数
rs.move (p-1)*MaxPerPage
do while not rs.eof
i=i+1
call MakeHtml()
if i>=MaxPerPage then exit do
rs.movenext
loop
end if
rs.close
Sshu=MaxPerPage*p-MaxPerPage+1 '当前已经生成的数量
Tshu=Sshu+i-1 '已生成生成的
if allshu<Sshu then
set rs=nothing
conn.close
set conn=nothing
response.redirect "makehtmlall.asp?type=ok"&"&shu="&request("shu")&"&D="&d&"&p="&p+1
response.end
else
%>
<meta http-equiv="refresh" content="0;url=makehtmlall.asp?type=<%=request("type")%>&newcount=<%=request("newcount")%>&selyear=<%=request("selyear")%>&selmonth=<%=request("selmonth")%>&selday=<%=request("selday")%>&shu=<%=Tshu%>&D=<%=D%>&p=<%=p+1%>">
<div align="center"><br>正在生成:第(<%=Sshu%>/<%=Tshu%>)个 共<%=allshu%>个</div>
<%
end if
Sub MakeHtml()
%>
<script>function onDownloadDone(downDate){showImport.innerHTML=downDate}oDownload.startDownload('makehtml.asp?news_id=<%=rs("id")%>',onDownloadDone)
</script>
<%
end Sub
'-----------------------sql为空-------------------
else
set rstotal=conn.execute("select count(*) from news")
nowtotal=rstotal(0)
rstotal.close
set rstotal=nothing
set nosh=conn.execute("select count(*) from news where shengcheng=0")
nownosh=nosh(0)
nosh.close
set nosh=nothing
'-------------------
if request("type")="ok" then
%><div align="center">
<br><br>操作成功:共生成页面
<font color="#FF0000"><%=request("shu")%></font>个,完成时间<%=now()%>
</center>
<%
end if
'-------------------------
%>
<table width="511" border="0" align="center" cellpadding="10" cellspacing="1" bgcolor="#FFFFFF">
<form action="makehtmlall.asp?type=date" method="post"><tr>
<td width="99" height="25" nowrap bgcolor="#D6DFF7">按日期生成:</td>
<td width="369" nowrap bgcolor="#D6DFF7"><select name="selyear">
<%
for yearstr=2001 to year(date)
if yearstr=year(date) then
response.write "<option value="&yearstr&" selected>"&yearstr&"</option>"
else
response.write "<option value="&yearstr&">"&yearstr&"</option>"
end if
next
%>
</select>-
<select name="selmonth">
<%
for monstr=1 to 12
if monstr=month(date) then
response.write "<option value="&monstr&" selected>"&monstr&"</option>"
else
response.write "<option value="&monstr&">"&monstr&"</option>"
end if
next
%>
</select>-
<select name="selday">
<option value=""""> </option>
<%
for daystr=1 to 31
if daystr=day(date) then
response.write "<option value="&daystr&" selected>"&daystr&"</option>"
else
response.write "<option value="&daystr&">"&daystr&"</option>"
end if
next
%>
</select>
<input type="submit" name="Submit" value="生成"></td>
</tr>
</form>
<form action="makehtmlall.asp?type=new" method="post">
<tr>
<td height="25" nowrap bgcolor="#D6DFF7">按最新的生成:</td>
<td nowrap bgcolor="#D6DFF7">生成最新的
<input name="newcount" type="text" id="newcount" size="10">
个文章
<input type="submit" name="Submit2" value="生成"></td>
</tr>
</form>
<form action="makehtmlall.asp?type=nosh" method="post">
<tr>
<td height="25" nowrap bgcolor="#D6DFF7">没有生成过的:</td>
<td nowrap bgcolor="#D6DFF7">当前需要生成文章[<font color="red"><%=nownosh%></font>]
<input type="submit" name="Submit4" value="生成"></td>
</tr>
</form>
<form action="makehtmlall.asp?type=all" method="post">
<tr>
<td height="25" nowrap bgcolor="#D6DFF7">生成全部:</td>
<td nowrap bgcolor="#D6DFF7">共[<font color="red"><%=nowtotal%></font>]
<input type="submit" name="Submit3" value="生成"></td>
</tr>
</form>
</table>
<%
end if
%>
内容总结
以上是互联网集市为您收集整理的jb51生成所有页面的效果+分页生成 原创全部内容,希望文章能够帮你解决jb51生成所有页面的效果+分页生成 原创所遇到的程序开发问题。 如果觉得互联网集市技术教程内容还不错,欢迎将互联网集市网站推荐给程序员好友。
内容备注
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 gblab@vip.qq.com 举报,一经查实,本站将立刻删除。
内容手机端
扫描二维码推送至手机访问。