tome_index.asp

不错的ASP整站源代码。在IIS环境下运行都没有问题

<table border="0" cellspacing="0" cellpadding="2" width="100%">
  <tr> 
    <td height="26"><font color="#000000"><b>有如下网友向您提出交友请求</b></font></td>
  </tr>
</table>
<table border="0" cellspacing="1" cellpadding="2" bgcolor="#E32D3F" width="100%">
  <tr bgcolor="#FFD9EC"> 
    <td align="center"><font color="#000000">日期</font></td>
    <td align="center"><font color="#000000">姓名</font></td>
    <td align="center"><font color="#000000">性别</font></td>
    <td align="center"><font color="#000000">年龄</font></td>
    <td align="center"><font color="#000000">来自</font></td>
    <td align="center"><font color="#000000">网名</font></td>
    <td bgcolor="#FFD9EC" align="center"><font color="#000000">态度</font></td>
  </tr>
        <!----------------主体部分开始------------------------------------->
        <!--#include file="../conn.asp"-->
        <%
        AccountID=session("u_id")
        Set Rs = Server.CreateObject("ADODB.Recordset")
	Dim PageSize,AllCount,MaxPage,PageNo
	PageNO		=	Request.QueryString("PageNO")
	SQLStr	=	"select * from apply where for_id=" & session("u_id")
	PageSize	=	10
	Rs.PageSize =	PageSize
	Rs.Open SQLStr,conn,1,3
	AllCount	=	Rs.RecordCount
	MaxPage		=	Rs.PageCount 
	If Rs.RecordCount > 0 Then
	Rs.MoveFirst 
	If PageNO = "" Then PageNO=1
	If PageNO+1 < 1 Then PageNO=1
	If PageNO+1 > MaxPage+1 Then PageNO = MaxPage
	Rs.AbsolutePage = PageNO
	End If
	i=0
	DO While Not Rs.EOF and	i < PageSize
		i=i+1
%>
<% if i mod 2 <> 0 then %>
  <tr bgcolor="#FFFFFF"> 
    <td><font color="#000000"><%=Rs("apply_date")%></font></td>
    <td><font color="#000000"><a href="read.asp?user_id=<%=Rs("user_id")%>"><%=Rs("user_name")%></a></font></td>
    <td><font color="#000000"><%=Rs("user_sex")%></font></td>
    <td><font color="#000000"><%=Rs("user_age")%></font></td>
    <td><font color="#000000"><%=Rs("user_home")%></font></td>
    <td><font color="#000000"><%=Rs("user_netname")%></font></td>
    <td align="center"><font color="#000000"><a href="accept.asp?id=<%=Rs("id")%>&user_id=<%=Rs("user_id")%>">√愿意</a> ┊ <a href="refuse.asp?id=<%=Rs("id")%>&user_id=<%=Rs("user_id")%>">×拒绝</a></font></td>
  </tr>
<% else %>
  <tr bgcolor="#FFFFFF"> 
    <td background="images/bg2.gif"><font color="#000000"><%=Rs("apply_date")%></font></td>
    <td background="images/bg2.gif"><font color="#000000"><a href="read.asp?user_id=<%=Rs("user_id")%>"><%=Rs("user_name")%></a></font></td>
    <td background="images/bg2.gif"><font color="#000000"><%=Rs("user_sex")%></font></td>
    <td background="images/bg2.gif"><font color="#000000"><%=Rs("user_age")%></font></td>
    <td background="images/bg2.gif"><font color="#000000"><%=Rs("user_home")%></font></td>
    <td background="images/bg2.gif"><font color="#000000"><%=Rs("user_netname")%></font></td>
    <td align="center" background="images/bg2.gif"><font color="#000000"><a href="accept.asp?id=<%=Rs("id")%>&user_id=<%=Rs("user_id")%>">√愿意</a> ┊ <a href="refuse.asp?id=<%=Rs("id")%>&user_id=<%=Rs("user_id")%>">×拒绝</a></font></td>
  </tr>
<% end if %>
<%
		Rs.MoveNext
	Loop
	Rs.Close()
%>
        </table><br>
        <table border="0" cellpadding="0" cellspacing="0" width="100%" height="25">
          <tr> 
            <td> 共有个 <font color=red><b><%=AllCount%></b></font> 好友&nbsp;&nbsp;页次: <font color=red><b><%=PageNO%></b></font> / <b><%=MaxPage%></b> 页
            </td>
            <td align="right"> 
              <%if PageNO-1>0 then %>
              <A href=list_tome.asp?pageNO=1>首页</a> <A href=list_tome.asp?pageNO=<%=pageNO-1%>>上一页</a>
              <% 
else    
%>
              首页 上一页
              <% 
end if %>
              <% 
	if PageNo+1<=MaxPage then  
%>
              <A href=list_tome.asp?pageNO=<%=pageNO+1%>>下一页</a> <A href=list_tome.asp?pageNO=<%=MaxPage%>>末页</a> 
              <% 
	else    
%>
              下一页 末页
              <% 
	end if 
%>
            </td>
          </tr>
        </table>
<!----------------主体部分结束-------------------------------------->
<table border="0" cellpadding="0" width="100%" cellspacing="0">
    <tr> 
      <td height="1" background="images/hline.gif"></td>
    </tr>
    <tr>
      <td height="28" align="right"><a href="list_meto.asp">我所追求的</a>┊<a href="list_friend.asp">我的朋友</a></td>
    </tr>
</table>