📄 ecard.asp

📁 西风班级信息管理系统 v1.1的源码
💻 ASP
字号:
<!--#include file="syssetup.asp"-->
<!--#include file="inc/func.INC"-->
<!--#include file="inc/chkonline.asp"-->
<%call online()%>
<html>
<head>
<title>班级名片</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<LINK href="jscs/css.CSS" type=text/css rel=stylesheet>
</head>

<body topmargin=0>
<%bgcolor="#DCE9D6"%>
<!--#include file="header.inc"-->
<script language="VBScript" src="jscs/LOAD.JS"></script>
<br>
<TABLE width='98%' border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
  <TR>
      <TD bgColor=#717171 height=20><font color="#FFFFFF">&nbsp;&nbsp;<img src="IMAGES/arrow.gif" width="4" height="8">本班共有名片<%set rs=Server.CreateObject ("ADODB.RecordSet")
		sql="select id from txluser"
		rs.open sql,conn,1,1
		i=0
		while not rs.eof
		i=i+1
		rs.Movenext
		wend
		rs.close
		set rs=nothing%><%=i%>张&nbsp;帅哥<%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%>张&nbsp;美女<%=i-j%>张</font></TD>
    </TR></TBODY></TABLE>
<TABLE width='98%' border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
  <TR>
    <TD width=25 align=right vAlign=top background="IMAGES/alumni_left_bg.gif"><IMG height=84 
      src="images/shim.gif" width=1><BR><BR><BR><img src="IMAGES/alumni2.gif" width="24" height="210"> </TD>
    <TD style="LINE-HEIGHT: 150%" vAlign=top align=middle width=81 
    background=images/alumni_left_bg2.gif><IMG 
      src="images/alumni_namecard1.gif"><BR>
        <img src="IMAGES/alumni_namecard2.gif" width="81" height="76"> <BR>
        <A 
      href="note.asp">班级留言</A><BR>班级名片<BR><A 
      href="showpic.asp">班级相册</A><BR><a href="loveword.asp">个人赠言</a><BR>

      <a href="resume.asp">个人简历</A><BR>
	  <a href="http://www.3doing.com/bbs">班级论坛</A><BR></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 =8

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="ecard.asp"><TD style="PADDING-LEFT: 5px;PADDING-top: 8px" vAlign=top width=318 bgColor=#ffffff>
      <DIV style="TEXT-INDENT: 10px">
	第<select 

name="page">
                                      <%
For I = 1 To Rs.PageCount
Response.Write  "<option>" & I & "</option>"
Next
%>
                                    </select>页&nbsp;<input type="submit" Value="GO">
<BR><IMG src="IMAGES/alumni_line.gif" width="264" height="3"></DIV><BR>
<%
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=carborder height=100 cellSpacing=0 cellPadding=3 width="85%" 
      bgColor=#f2f2f2 border=0>
        <TBODY>
        <TR>
          <TD width="90%" height="38" align=middle class=3dfont><%=rs("truename")%></TD>
          <TD align=right><IMG src="<%=rs("headpic")%>"></TD></TR>
        <TR>
          <TD colSpan=2>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%>
         </TD></form>
    <TD width=8 background=images/righ-center-bg.gif></TD>
    <TD style="PADDING-RIGHT: 5px" vAlign=top width=318 bgColor=#ffffff><BR>
      <DIV align=right>班级名片册<BR><IMG 
      src="IMAGES/alumni_line.gif" width="264" height="3"></DIV>
      <br><%for i=int(Rs.Pagesize/2)+1 to Rs.Pagesize
if rs.eof then
		exit for
		end if%>      
<DIV align=center>
      <TABLE class=carborder height=100 cellSpacing=0 cellPadding=3 width="85%" 
      bgColor=#f2f2f2 border=0>
        <TBODY>
        <TR>
          <TD width="90%" height="38" align=middle class=3dfont><%=rs("truename")%></TD>
          <TD align=right><IMG src="<%=rs("headpic")%>"></TD></TR>
        <TR>
          <TD colSpan=2>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 %>
      <DIV align=right><IMG 
      src="images/alumni_line.gif"><br>
<%
If Pageno <>1 Then
	Response.Write "&nbsp;<A href=ecard.asp>首页</A>&nbsp;"
	Response.Write "&nbsp;<A href=ecard.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=ecard.asp?page=" & (Pageno+1) & ">后页</A>&nbsp;"
	Response.Write "&nbsp;<A href=ecard.asp?page=" & (Rs.PageCount) & ">末页</A>&nbsp;"
Else
	Response.Write "&nbsp;后页&nbsp;"
	Response.Write "&nbsp;末页&nbsp;"
End If
%><BR></DIV></TD>
    <TD width=6 bgColor=#717171></TD></TR>
  <TR>
    <TD width=25 background=images/alumni_left_bg.gif></TD>
    <TD vAlign=top width=81><IMG 
src="images/alumni_bottom1.gif"></TD>
    <TD width=318 background=images/alumni_bottom2.gif></TD>
    <TD width=8 background=IMAGES/alumni_bottom4.gif></TD>
    <TD width=318 background=images/alumni_bottom3.gif></TD>
    <TD width=6 bgColor=#717171></TD></TR></TBODY></TABLE>
<TABLE width='98%' border=0 align="center" cellPadding=0 cellSpacing=0>
  <TBODY>
  <TR>
    <TD bgColor=#717171 height=8></TD></TR></TBODY></TABLE>
<!--#include file="inc/footer.inc"--></body>
</html>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -