www.gusucode.com > 黑鹰友情链接交换系统美化版 1.2 黑码程序 > index.asp
<%@ Language=VBScript %> <!--#INCLUDE FILE="conn.asp" --> <!--#INCLUDE FILE="config.asp" --> <% user=request("user") set rs=server.createobject("adodb.recordset") sql="select * from link order by id desc" rs.open sql,conn,1,1 %> <html> <head> <title><%=tit%></title> <link rel="stylesheet" href="style.css" type="text/css"> <meta http-equiv="Content-Type" content="text/html; charset=utf-8"> <style type="text/css"> <!-- .style1 {color: #D4D0C8} .style2 {color: #939393} --> </style> </head> <style type=text/css> body {cursor: default;} </style> <style fprolloverstyle> A:hover {color: #A851FF} .style3 {font-size: 9px} .style4 {font-size: 12px} </style> <body text="#000000" link="#000000" vlink="#000000" style="text-align: right"> <div align="center"> <center> <table width="700" height="25" border="0" cellpadding="0" cellspacing="1" bordercolor="0" background="bg1.gif" bgcolor="#F0f0f0" id="AutoNumber2" style="border-collapse: collapse"> <tr> <td width="300" height="20" align="left" nowrap> <p align="left"><font face="Arial" size="2"> <a href="http://www.97507.net/">首页</a> | <a href="http://www.97507.net/about.htm">关于</a> | <a href="http://www.97507.net/photo">相册</a> | <a href="http://www.97507.net/music">音乐</a> | <a href="http://www.97507.net/diary">微博</a> | <a href="http://www.97507.net/gb">留言</a> | <a href="http://www.97507.net/link">链接</a></span></font></td> <td width="250" align="right" nowrap><span class="style3"><span class="style4"><a href="add.asp">加入</a>│<a href="tj.asp?user=y">推荐</a>│<span lang="zh-cn"><a href="login.asp">管理</a>│<a href="index.asp">全部</a><font face="Arial">│<a href="pic.asp">图片</a>│<a href="text.asp">文字</a></font></span></span></td> </tr> </table> <br> </center> </div> <div align="center"> <table border="0" cellpadding="0" cellspacing="1" width="700" id="AutoNumber1" bgcolor="#f0f0f0" height="70"> <tr bgcolor="#FFFFFF"> <td height="25" colspan="5" align="center"> <p align="left"> 七号目前有了<font color="#009900"><%=rs.RecordCount%></font>位朋友!下一位是你吗?</td> </tr> <tr bgcolor="#F9f9f9"> <td height="25" valign="middle"> <p align="center" class="style6">网站图标或名称</td> <td width="440" height="25"> <p align="center" class="style6">网站简介</td> <td width="130" height="25" nowrap> <p align="center" class="style6">加入时间</td> </tr> <% if rs.recordcount=0 then %> <br> <table width="250" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#D4D0C8"> <tr> <td height="30" align=center bgcolor="#FFFFFF"><font color="red">数据库找不到信息,请查看该文件!</font></td> </tr> </table> <% else rs.PageSize =15'每页记录条数 iCount=rs.RecordCount '记录总数 iPageSize=rs.PageSize maxpage=rs.PageCount page=request("page") if Not IsNumeric(page) or page="" then page=1 else page=cint(page) end if if page<1 then page=1 elseif page>maxpage then page=maxpage end if rs.AbsolutePage=Page if page=maxpage then x=iCount-(maxpage-1)*iPageSize else x=iPageSize end if %> <% for i=1 to x %> <tr bgcolor="#FFFFFF"> <td height="40" align="center" width="130"><% If rs("logo")<>"" Then %> <a href=<%=rs("homepage")%> target="_blank"> <img border="0" src="<%=rs("logo")%>" width="88" height="31" alt="<%=rs("site")%>"></a><% Else %> <a href=<%=rs("homepage")%> target="_blank"><span class="style6"><%=rs("site")%></span></a> <% End If %></td> <td height="25" align="left" width="440"><%=rs("jj")%></td> <td height="25" align="center" width="130"><%=rs("linktime")%></td> </tr> <% if request.cookies("adminok") <> "" then %> <tr bgcolor="#FFFFFF"> <td height="25" colspan="5" align="left" nowrap> <p align="center"><span lang="zh-cn"><a href="del.asp?id=<%=rs("id")%>" onClick="return confirm('确定要删除吗?');">删除</a> <span class="style3"><span class="style4"><font face="Arial">│</font></span></span> <a href="com.asp?id=<%=rs("id")%>">推荐</a> <span class="style3"><span class="style4"><font face="Arial">│</font></span></span> <a href="out.asp" onClick="return confirm('确定要退出管理吗?');">退出</a></span></td> <% end if %> </tr> <% rs.movenext next %> <tr bgcolor="#f9f9f9"> <td height="25" colspan="5" align="center"><% call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>") end if rs.close set rs=nothing Sub PageControl(iCount,pagecount,page,table_style,font_style) '生成上一页下一页链接 Dim query, a, x, temp action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME") query = Split(Request.ServerVariables("QUERY_STRING"), "&") For Each x In query a = Split(x, "=") If StrComp(a(0), "page", vbTextCompare) <> 0 Then temp = temp & a(0) & "=" & a(1) & "&" End If Next Response.Write("<table " & Table_style & ">" & vbCrLf ) Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR>" & vbCrLf ) Response.Write("<TD align=right>" & vbCrLf ) Response.Write(font_style & vbCrLf ) if page<=1 then Response.Write ("首页 " & vbCrLf) Response.Write ("上一页 " & vbCrLf) else Response.Write("<A HREF=" & action & "?" & temp & "Page=1>首页</A> " & vbCrLf) Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上一页</A> " & vbCrLf) end if if page>=pagecount then Response.Write ("下一页 " & vbCrLf) Response.Write ("尾页 " & vbCrLf) else Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下一页</A> " & vbCrLf) Response.Write("<A HREF=" & action & "?" & temp & "Page=" & pagecount & ">尾页</A> " & vbCrLf) end if Response.Write(" 页次:" & page & "/" & pageCount & "页" & vbCrLf) Response.Write(" 共有" & iCount & "条" & vbCrLf) Response.Write(" 转到" & "<INPUT TYEP=TEXT NAME=page SIZE=1 Maxlength=5 VALUE=" & page & ">" & "页" & vbCrLf & "<INPUT type=submit style=""font-size: 9pt"" value=GO class=b2>") Response.Write("</TD>" & vbCrLf ) Response.Write("</TR></form>" & vbCrLf ) Response.Write("</table>" & vbCrLf ) End Sub %></td> </tr> </table> </div> <br> <!--#include file="root.asp"--> </body> </html>