www.gusucode.com > 木犁IT产品管理系统 1.0 beta1码程序 > manage/editnews3.asp
<!--#include file="conn.asp"--> <% if not session("check")="checked" then response.Redirect "login.asp" end if %> <html> <head> <link href="images/private.css" rel="stylesheet" type="text/css" /> <script language='javascript' src='images/private.js'></SCRIPT> <meta http-equiv="Content-Type" content="text/html; charset=gb2312"> <title>管理图片</title> </head> <body > <form method=Post action="editnews3.asp"> <table border=0 cellspacing=1 align=center class=navi> <tr> <th>当前位置:图片管理 >> 图片管理</th> </tr> </table> <br> <table width="75%" border="0" align="center" cellpadding="0" cellspacing="1" class="list"> <tr> <th width="100%" height="25" align="center" bgcolor="#FF0000" colspan="5"> 图片管理</th> </tr> <tr> <td width="5%" height="25" align="center" bgcolor="#FF0000"><span class="style1">ID</span></td> <td width="39%" align="center" bgcolor="#FF0000"><span class="style1">图片名称</span></td> <td width="28%" align="center" bgcolor="#FF0000">广告图片类型</td> <td width="14%" align="center" bgcolor="#FF0000"><span class="style1">发布日期</span></td> <td width="10%" align="center" bgcolor="#FF0000"><span class="style1">操作</span></td> </tr> <% page=clng(request("page")) Set rs=Server.CreateObject("ADODB.RecordSet") sql="select * from pic" rs.Open sql,conn,1,1 if rs.eof and rs.bof then response.Write("没有记录") else rs.PageSize=28 if page=0 then page=1 pages=rs.pagecount if page > pages then page=pages rs.AbsolutePage=page for j=1 to rs.PageSize %> <tr bgcolor="#FFFFFF"> <td height="22" align="center"><%=rs("id")%></td> <td><%=left(rs("title"),12)%></td> <td align="center"> <% if rs("fl")=0 then response.write "幻灯图片(798X100)" elseif rs("fl")=1 then response.write "顶部图片(798X120)" end if %></td> <td align="center"><%=rs("time")%></td> <td align="center"><a href="admin_infomodi3.asp?id=<%=rs("id")%>">修改</a> <a href="delnews3.asp?id=<%=rs("id")%>">删除</a></td> </tr> <% rs.movenext if rs.eof then exit for next %> </table> <table width="95%" border="0" align="center" cellpadding="0" cellspacing="0" class="list" height="31"> <tr bgcolor="#FFFFFF"> <td height="31" align="center"> <%if Page<2 then response.write "首页 上一页 " else response.write "<a href=editnews3.asp?page=1>首页</a> " response.write "<a href=editnews3.asp?page=" & Page-1 & ">上一页</a> " end if if rs.pagecount-page<1 then response.write "下一页 尾页" else response.write "<a href=editnews3.asp?page=" & (page+1) & ">" response.write "下一页</a> <a href=editnews3.asp?page="&rs.pagecount&">尾页</a>" end if response.write " 页次:<strong><font color=red>"&Page&"</font>/"&rs.pagecount&"</strong>页 " response.write " 共<b><font color='#FF0000'>"&rs.recordcount&"</font></b>条记录 <b>"&rs.pagesize&"</b>条记录/页" response.write " 转到:<input type='text' name='page' size=4 maxlength=10 class=input value="&page&">" response.write " <input class=input type='submit' value=' Goto ' name='cndok'></span>" %> </td> </tr> </table></form> <% end if rs.close set rs=nothing conn.close set conn=nothing %> </body> </html>