📄 list.asp

📁 通用考勤系统
💻 ASP
字号:

<!--#include file="ubbcode.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="webinfo.asp"-->

<%
''''''''''''''''''''''''''''''''''''''''''' 
''''   版权：野马原创                    ''''
''''   联系：ctplr@163.com               ''''
''''   说明：需要新功能联系我            ''''
''''       QQ:2643148                       ''''
'''''''''''''''''''''''''''''''''''''''''' 
%>
<html>
<head>
<title><%=webname%>-察看文章列表</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" href=css.css type="text/css">
</head>

<body   onkeydown="if(event.keyCode==122){event.keyCode=0;return false}"   bgcolor="#CACACA" background="images/index_bj.gif"  leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<div align=CENTER valign=top>
  <table width="750" border="0" cellspacing="0" cellpadding="0">
    <tr>
<!--#include file="top.asp"-->
</table>
 <% 
tid=request("typeid")
num=20
rs.PageSize=num
if Request.QueryString("page")<>"" then 
curpage=cint(Request.QueryString("page")) 
else
curpage=1
end if
sql="select * from artic where typeid="&tid&" order by id desc"
rs.open sql,cn,1,1
pclass=rs("type")
pagenum=rs.PageCount  
if curpage>pagenum then 
curpage=pagenum
end if 

rs.AbsolutePage =curpage
if (rs.eof and rs.bof)  then 
response.write "<center>没有记录</center>"
else
response.write"<table border=0   align=center valign=top width='75%' background=images/Bg_1.jpg  cellspacing=0 cellpadding=0 ><tr><td colspan=4  background='images/bottom_bg.gif' height=10></td></tr><tr><td colspan=4    height=20 background='images/nav_back.gif' >你要查看的<font color=green><b>"&pclass&"</b></font>栏目下面的文章列表</td></tr>"
response.write"<tr><td height=2  background=images/loginLine.gif colspan=4> </td></tr>"
response.write "<tr><td  align=center width='5%'  background='images/TitleTop.gif' height=27></td><td bgcolor=#eeeeee align=center width='65%'  background='images/titlebg.gif'><b>标题</b></td><td bgcolor=#eeeeee align=center  width='15%'  background='images/titlebg.gif'><b>发布者</b></td><td bgcolor=#eeeeee align=center    background='images/TitleTop.gif'> <b>发布时间</b></td></tr>"
      do while not rs.eof and num>0 
aid=rs("id") 
title=rs("title")
zz=rs("publisher")
ptime=rs("time")
%>
<tr>
<td  align=center width='5%'  valign=top height=30><img src=images/a12.gif></td>
<td    align=left  valign=top  ><a href=artview.asp?id=<%=aid%>  title="点击:<%=title%>"  target=_blank>
<%
response.write "&nbsp;&nbsp;&nbsp;&nbsp;"
response.write left(title,30)&"..."
%>

</a></td> 
<td   align=center  >  <%=zz%> </td>
<td   align=center  ><%=ptime%></td>
 <% 
 rs.movenext
num=num-1
loop
response.write"<tr><td height=2   colspan=4  background=images/loginLine.gif> </td></tr>"
response.write"</table>"
end if

rs.close
set rs=nothing



 
Response.Write "<center><table width=750 border=0 cellspacing=0 cellpadding=0 ><tr><td height=50 background='images/bottom_bg.gif' align=center ><br><font color=green>一共有[<font color=red>"&pagenum&"</font>]页  "



Response.Write "[<a href=?typeid="&tid&"&page=1>首 页</a>]  "
if curpage>1 then 
Response.Write "[<b><a name=up href=?typeid="&tid&"&page=" & (curpage-1) & " >上一页</a></b> ]&nbsp;"
end if

if curpage<pagenum then
Response.Write "[<b><a name=down href=?typeid="&tid&"&page=" & (curpage+1) & " >下一页</a></b>] "
end if 

Response.Write "  [<a href=?typeid="&tid&"&page="&pagenum&">尾 页</a>]"
Response.Write "  当前是第[<font color=red>"&curpage&"</font>]页</font></td></tr>"
rs.Close 
set rs=nothing
cn.close
set cn=nothing
 
%>
<tr><td><!--#include file='foot.asp'--></td></tr></table></center>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -