复制代码 代码如下:
rs.open sql,conn,1,1
if rs.eof and rs.bof then
response.write "p align='center'>还没找到文章/p>"
else
totalPut=rs.recordcount
maxperpage=18
if currentpage1 then
currentpage=1
end if
if (currentpage-1)*maxperpage>totalput then
if (totalput mod maxperpage)=0 then
currentpage=totalput\maxperpage
else
currentpage=totalput\maxperpage+1
end if
end if
if currentpage=1 then
showpage1 totalput,maxperpage,"infotype.asp?id="request("id")
showcontent()
showpage totalput,maxperpage,"infotype.asp?id="request("id")
else
if (currentpage-1)*maxperpagetotalput then
rs.move (currentpage-1)*maxperpage
dim bookmark
bookmark=rs.bookmark
showpage1 totalput,maxperpage,"infotype.asp?id="request("id")
showcontent
showpage totalput,maxperpage,"infotype.asp?id="request("id")
else
currentpage=1
showpage1 totalput,maxperpage,"infotype.asp?id="request("id")
showcontent
showpage totalput,maxperpage,"infotype.asp?id="request("id")
end if
end if
end if
%>
%
sub showcontent()
%>
tr>
td height="20" class="blueback2">div align="center">ID/div>/td>
td class="blueback2">div align="center">a href="javascript:selectall()">font color="#FFFFFF">选择/font>/a>/div>/td>
td width="355" class="blueback2">div align="center">信息标题/div>/td>
td width="84" class="blueback2">div align="center">更新日期/div>/td>
td width="40" class="blueback2">div align="center">点击/div>/td>
td width="55" class="blueback2">div align="center">添加人/div>/td>
td width="44" class="blueback2">div align="center">编辑/div>/td>
td width="43" class="blueback2">div align="center">删除/div>/td>
td width="62" class="blueback2">div align="center">生成[a href="javascript:void(null)" onClick="window.open('cshengcheng.asp','','width=0,height=0')">font color="#FFFFFF">归零/font>/a>]/div>/td>
/tr>
%
i=1
do while not rs.eof
%>
tr>
td width="39" height="25" bgcolor="#D6DFF7">div align="center">%=rs("id")%>/div>/td>
td width="34" bgcolor="#D6DFF7">div align="center">
input type="checkbox" name="dxyid" value="%=rs("id")%>">
/div>/td>
td bgcolor="#D6DFF7">a href="Article_show.asp?id=%=rs("id")%>" target="_blank">[%=rs("type_id")%>]%thetitle1=rs("title")
strcounts=truelen(thetitle1)
response.write thetitle1
%>/a>/td>
%
datetime=rs("datetime")
yname=year(datetime)
mname=month(datetime)
if len(mname)2 then mname="0"mname
dname=month(datetime)
if len(dname)2 then dname="0"dname
foldername=ynamemname
%>
td bgcolor="#D6DFF7">div align="center">a href="%=htmlfolder%>%=foldername%>/%=rs("id")%>.htm" title="查看生成的静态页面" target="_blank">%=rs("datetime")%>/a>/div>/td>
td bgcolor="#D6DFF7">div align="center">%=rs("hits")%>/div>/td>
td bgcolor="#D6DFF7">div align="center">%=rs("author")%>/div>/td>
td bgcolor="#D6DFF7">div align="center">a href="news_edit.asp?dxy_id=%=rs("id")%>">修改/a>/div>/td>
td bgcolor="#D6DFF7">div align="center">a href="javascript:delxx(%=rs("id")%>)">删除/a>/div>/td>
td bgcolor="#D6DFF7">div align="center">a href="javascript:makehtml(%=rs("id")%>)">生成(a href="javascript:void(null)" onClick="window.open('cshengcheng.asp?id=%=rs("id")%>','','width=0,height=0')">%=rs("shengcheng")%>)/a>/div>/td>
/tr>
%
i=i+1
if i>maxperpage then exit do
rs.movenext
loop
%>
tr>
td height="20" class="blueback2">div align="center">ID/div>/td>
td class="blueback2">div align="center">a href="javascript:selectall()">font color="#FFFFFF">选择/font>/a>/div>/td>
td class="blueback2">div align="center">信息标题/div>/td>
td class="blueback2">div align="center">更新日期/div>/td>
td class="blueback2">div align="center">点击/div>/td>
td class="blueback2">div align="center">添加人/div>/td>
td class="blueback2">div align="center">编辑/div>/td>
td class="blueback2">div align="center">删除/div>/td>
td class="blueback2">div align="center">生成/div>/td>
/tr>
%
end sub
%>
tr>
td height="20" colspan="9" bgcolor="#D6DFF7">label>
input type="button" name="dxydo" value="全选" onClick="javascript:selectall()">
input type="submit" name="dxydo" value="删除" onClick="{if(confirm('确定要删除选择的信息吗')){document.formselect.submit();return true;}return false;}">
input type="submit" name="dxydo" value="生成">
input type="submit" name="dxydo" value="移动">
/label>/td>
/tr>
%
function showpage(totalnumber,maxperpage,filename)
%>
tr>
td height="20" colspan="9" bgcolor="#D6DFF7">
%
dim n
if totalnumber mod maxperpage=0 then
n=totalnumber\maxperpage
else
n=totalnumber\maxperpage+1
end if
%>
div align="center">共有%=totalnumber%>/%=maxperpage%>条，
当前页%=currentpage%>/%=n%>nbsp;
%if currentpage2 then%>
[首页]nbsp;[上一页]
%else%>
a href="%=filename%>">font color="red">[首页]/font>/a>nbsp;a href="%=filename%>page=%=currentpage-1%>">font color="red">[上一页]/font>/a>
%end if%>% if n-currentpage1 then%>
[下一页]nbsp;[尾页]%else%>a href="%=filename%>page=%=currentpage+1%>">font color="red">[下一页]/font>/a>nbsp;a href="%=filename%>page=%=n%>">font color="red">[尾页]/font>/a>
%end if%>
转到：select name="dd" class="sle"
onChange="location.href=this.options[this.selectedIndex].value">
%for j=1 to n
if currentpage=j then
%>option value="%=filename%>page=%=j%>" selected>%=j%>/option>
%
else
%>
option value="%=filename%>page=%=j%>">%=j%>/option>
%
end if
next
%>
/select>
/div> /td>
/tr>
%
end function
%>
%
function showpage1(totalnumber,maxperpage,filename)
%>
tr>
td height="20" colspan="9" bgcolor="#D6DFF7">
%
dim b
if totalnumber mod maxperpage=0 then
b=totalnumber\maxperpage
else
b=totalnumber\maxperpage+1
end if
%>
div align="center">共有%=totalnumber%>/%=maxperpage%>条，
当前页%=currentpage%>/%=b%>nbsp;
%
dxystart=currentpage-5
if dxystart1 then dxystart=1
dxyend=currentpage+5
if dxyend>b then dxyend=b
for dxy=dxystart to dxyend
if dxy=currentpage then
response.write "[a href="filename"page="dxy">""font color=red>"dxy"/font>""/a>]""nbsp;"
else
response.write "[a href="filename"page="dxy">"dxy"/font>""/a>]""nbsp;"
end if
next
%>
/div> /td>
/tr>
%
end function
%>
/form>
/table>
%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
