/wsj/Manage/Link/Lnk_Manage.asp
https://github.com/hare1987/kaidun180 · ASP · 75 lines · 74 code · 0 blank · 1 comment · 5 complexity · 4970b9a7d3880d32f9b4e3d77b7d86ef MD5 · raw file
- <!-- #include file="../Include/Chk.asp" -->
- <!-- #include file="../Include/Conn.asp" -->
- <head>
- <meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
- <title></title>
- <link href="../Images/font.css" rel="stylesheet" type="text/css">
- </head>
- <body>
- <table width="100%" border="0">
- <tr>
- <td height="25" colspan="4" bgcolor="#3385D1" class="font2 STYLE1"><table width="100%" border="0" cellpadding="0" cellspacing="£°">
- <tr>
- <td width="19%">¡¡<span class="bt2">¹ÜÀíÓÑÇéÁ´½Ó</span></td>
- <td width="81%" align="center"><a href="Lnk_Add.asp">Ìí¼ÓÓÑÇéÁ´½Ó</a></td>
- </tr>
- </table></td>
- </tr>
- <tr>
- <td width="25%" align="center" valign="middle" bgcolor="#efefef" class="font1">Õ¾µãÃû³Æ</td>
- <td width="31%" align="center" valign="middle" bgcolor="#efefef" class="font1">Õ¾µãLogo</td>
- <td width="32%" align="center" valign="middle" bgcolor="#efefef" class="font1">Õ¾µãµØÖ·</td>
- <td width="12%" height="25" align="center" valign="middle" bgcolor="#efefef" class="font1">Ïà¹Ø²Ù×÷</td>
- </tr>
- <%
- sql = "select * from link Order by id desc"
- Set rs=Server.Createobject("ADODB.RECORDSET")
- rs.Open sql, conn, 1, 1
- if not rs.eof then
- pages = 6 '¶¨ÒåÿҳÏÔʾµÄ¼Ç¼Êý
- rs.pageSize = pages '¶¨ÒåÿҳÏÔʾµÄ¼Ç¼Êý
- allPages = rs.pageCount'¼ÆËãÒ»¹²ÄÜ·Ö¶àÉÙÒ³
- page = Request.QueryString("page")'ͨ¹ýä¯ÀÀÆ÷´«µÝµÄÒ³Êý
- 'ifÓï¾äÊôÓÚ»ù±¾µÄÅÅ´í´¦Àí
- if isEmpty(page) or Cint(page) < 1 then
- page = 1
- elseif Cint(page) > allPages then
- page = allPages
- end if
- rs.AbsolutePage = page
- Do while not rs.eof and pages > 0 %>
- <tr>
- <td align="left" valign="middle" bgcolor="#efefef" class="link2"><div align="left"><%=rs("name")%></div></td>
- <td align="center" valign="middle" bgcolor="#efefef" class="link2"><div align="center">
- <%if rs("logo")<>"" then%>
- <img src="<%=rs("logo")%>" width="120" height="50">
- <%end if%></div></td>
- <td align="center" valign="middle" bgcolor="#efefef" class="link2"><div align="left"><a href=<%=rs("url")%> target=_blank><%=rs("url")%></a></div></td>
- <td height="25" align="center" valign="middle" bgcolor="#efefef" class="link2"><a href="Lnk_Edit.asp?id=<%=rs("id")%>">ÐÞ¸Ä</a> | <a href="Lnk_Del.asp?id=<%=rs("id")%>">ɾ³ý</a></td>
- </tr>
- <% pages = pages - 1
- rs.MoveNext
- Loop
- else
- Response.Write("<font color='Red'>Êý¾Ý¿âÔÝÎÞÄÚÈÝ£¡</font>")
- End if
- rs.Close
- Set rs = Nothing
- %>
- <tr>
- <td height="25" colspan="4" align="right" bgcolor="#efefef">
- <%
- For i =1 to allpages
- txt = ""
- txt = txt & "<a href=" & "?" & "page=" & i & ">"
- if i = Cint(Page) then txt = txt & "<font color='bb0000'>"
- txt = txt & (i)
- if i = Cint(Page) then txt = txt & "</font>"
- txt = txt & "</a> "
- Response.Write(txt)
- Next
- %></td>
- </tr>
- </table>
- </body>
- </html>