card.asp

一个非常漂亮的ASP代码编写的单班级网站。管理员和密码均是 admin

		i=i+1
		rs.Movenext
		wend
		rs.close
		set rs=nothing%>
            <%=i%></font> 张</td>
        </tr>
        <tr> 
          <td height="16"></td>
          <td height="16">&nbsp;</td>
        </tr>
        <tr> 
          <td width="91" height="16"> <div align="right">帅哥名片：</div></td>
          <td width="99" height="16"><font color="#FF0000"> 
            <%set rs=Server.CreateObject ("ADODB.RecordSet")
		sql="select id from txluser where sex='男'"
		rs.open sql,conn,1,1
		j=0
		while not rs.eof
		j=j+1
		rs.Movenext
		wend
		rs.close
		set rs=nothing%>
            <%=j%></font> 张</td>
        </tr>
        <tr> 
          <td height="16"></td>
          <td height="16">&nbsp;</td>
        </tr>
        <tr> 
          <td width="91" height="16"> <div align="right">美女名片：</div></td>
          <td width="99" height="16"><font color="#FF0000"><%=i-j%></font> 张</td>
        </tr>
        <tr> 
          <td height="38" colspan="2"> &nbsp;&nbsp; <font color="#0066FF"><strong>※个人信息中的所有资料只为联系之用，请各位朋友不要擅自将资料为做它用,造成的后果由自己承担，与本网站无关。</strong></font> 
          </td>
        </tr>
        <tr> 
          <td height="38" colspan="2">&nbsp;</td>
        </tr>
        <tr align="center">
          <td height="38" colspan="2" onClick="MM_openBrWindow('bandaolianxi.asp','','width=270,height=160')">[<a href="#">班导联系方式</a>]</td>
        </tr>
      </table></td>
  <td valign="top" background="images/index_r7_c5.gif"><img name="index_r7_c5" src="images/index_r7_c5.gif" width="5" height="553" border="0" alt=""></td><td colspan="9" valign="top" bgcolor="#FFFFFF">
  <table width="100%" border="0" class="unnamed1">
    <tr> 
      <td>当前位置：班级名片</td>
    </tr><tr><td>
    <%set rs=server.createobject("ADODB.Recordset")
	sql="select telephone,mobile,truename,oicq,address,headpic,email from txluser order by regtime desc"
	rs.open sql,conn,1,1
	Rs.Pagesize =10

Pageno = CLng(Request("page")) '取得用page信息，并处理
If Pageno < 1 Then Pageno = 1
If Pageno > Rs.PageCount Then Pageno = Rs.PageCount
If pageNo = "" Then Pageno = 1
%>
    <form method="get" name="select" action="card.asp">
      <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber3" height="100"><tr><td width="48%" valign="top">
        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
          <tr> <td width="100%" valign="top">
            <%
Sub Showpage(Rs,pageno) '接受参数，显示记录
Rs.AbsolutePage = Pageno
for i=1 to int(Rs.Pagesize/2)
if rs.eof then
		exit for
		end if%>
            <div align="center"> 
              <table class="unnamed1" height="100" cellSpacing="0" cellPadding="3" width="85%" bgColor="#F7F7F7" border="0" style="border-collapse: collapse" bordercolor="#111111">
                <td width="90%" height="38" align="middle" class="unnamed1"><%=rs("truename")%></td>
                <td align="right"><img src="<%=rs("headpic")%>"></td>
                </tr>
                <tr> 
                  <td colSpan="2"> <p style="line-height: 150%">QQ: <%=rs("oicq")%><br>
                      手机:<%=rs("mobile")%> <br>
                      Tel:<%=rs("telephone")%><br>
                      E-mail:<a href="mailto:<%=rs("email")%>"><%=rs("email")%></a><br>
                      工作单位:<%=rs("address")%> </td></td>
              </table>
              <br>
            </div>
            <%rs.movenext
		next%></td></tr>
        </table></td>
        <td width="3%" height="35"></td><td width="48%" valign="top">
        <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%"><tr><td width="100%" valign="top">
          <%for i=int(Rs.Pagesize/2)+1 to Rs.Pagesize
if rs.eof then
		exit for
		end if%>
          <div align="center"> 
            <table class="unnamed1" height="100" cellSpacing="0" cellPadding="3" width="85%" bgColor="#F7F7F7" border="0" style="border-collapse: collapse" bordercolor="#111111">
              <tbody>
                <tr> 
                  <td width="90%" height="38" align="middle" class="unnamed1"><%=rs("truename")%></td>
                  <td align="right"><img src="<%=rs("headpic")%>"></td>
                </tr>
                <tr> 
                  <td colSpan="2"> <p style="line-height: 150%">QQ: <%=rs("oicq")%><br>
                      手机:<%=rs("mobile")%> <br>
                      Tel:<%=rs("telephone")%><br>
                      E-mail:<a href="mailto:<%=rs("email")%>"><%=rs("email")%></a><br>
                      工作单位:<%=rs("address")%> </td></td></tr></tbody>
            </table>
            <br>
          </div>
          <%rs.movenext
		next
		end sub
		%>
          <% showpage rs,pageno %></td></tr>
        </table></td></tr>
        <tr> 
          <td width="97%" height="15" colspan="3" align="right" valign="bottom"> 
            <img border="0" src="images/alumni_line.gif" WIDTH="264" HEIGHT="3"></td>
        </tr>
      </table>
      <table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber5">
        <tr> 
          <td width="100%" align="right" height="35" class="unnamed1"><%
If Pageno <>1 Then
	Response.Write "&nbsp;<A href=card.asp>首页</A>&nbsp;"
	Response.Write "&nbsp;<A href=card.asp?page=" & (Pageno-1) & ">前页</A>&nbsp;"
Else
	Response.Write "&nbsp;首页&nbsp;"
	Response.Write "&nbsp;前页&nbsp;"
End If
If Pageno <> rs.PageCount Then
	Response.Write "&nbsp;<A href=card.asp?page=" & (Pageno+1) & ">后页</A>&nbsp;"
	Response.Write "&nbsp;<A href=card.asp?page=" & (Rs.PageCount) & ">末页</A>&nbsp;"
Else
	Response.Write "&nbsp;后页&nbsp;"
	Response.Write "&nbsp;末页&nbsp;"
End If
%> &nbsp;&nbsp; 第 <select name="page">
              <%
For I = 1 To Rs.PageCount
Response.Write  "<option>" & I & "</option>"
Next
%>
            </select>
            页&nbsp; <input type="submit" Value="GO"> &nbsp;&nbsp;&nbsp;&nbsp; 
          </td>
        </tr>
      </table>
    </form></td></tr>
  </table>
    <td height="556">&nbsp;</td>
  </tr>
  <tr> 
    <td colspan="12"><table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td align="center" bgcolor="#FFFFFF"> <hr width="100%" noshade style="border:1 green dotted"> 
          </td>
        </tr>
        <tr> 
          <td align="center" class="c"><img src="images/index_r8_c1.gif" width="795" height="71"></td>
        </tr>
      </table></td>
  </tr>
</table>
</body>
</html>