?? card.asp
字號:
<!--#include file="syssetup.asp"-->
<!--#include file="inc/func.INC"-->
<!--#include file="inc/chkonline.asp"-->
<%call online()
userid=session("myuserid")
password=session("mypwd")
if isuser(userid,password)=0 then
%>
<script>
alert("你還沒有登錄，無權進入！");
parent.location.href="index.asp";
</script>
<%
response.end
end if%>
<html>
<head>
<title>:::長沙理工大學土木試點班:::</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<!-- Fireworks MX Dreamweaver MX target. Created Sat Oct 25 08:11:34 GMT+0800 (?D1ú±ê×?ê±??) 2003-->
<style type="text/css">
<!--
@import url("css.css");
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
</head>
<body bgcolor="#CCCCCC" leftmargin="0" topmargin="0">
<script language="VBScript" src="jscs/LOAD.JS"></script>
<table width="774" border="0" align="center" cellpadding="0" cellspacing="0">
<!-- fwtable fwsrc="txl2.png" fwbase="index.gif" fwstyle="Dreamweaver" fwdocid = "742308039" fwnested="0" -->
<tr>
<td><img src="images/spacer.gif" width="6" height="1" border="0" alt=""></td>
<td><img src="images/spacer.gif" width="60" height="1" border="0" alt=""></td>
<td><img src="images/spacer.gif" width="98" height="1" border="0" alt=""></td>
<td><img src="images/spacer.gif" width="28" height="1" border="0" alt=""></td>
<td><img src="images/spacer.gif" width="5" height="1" border="0" alt=""></td>
<td><img src="images/spacer.gif" width="16" height="1" border="0" alt=""></td>
<td><img src="images/spacer.gif" width="38" height="1" border="0" alt=""></td>
<td><img src="images/spacer.gif" width="94" height="1" border="0" alt=""></td>
<td><img src="images/spacer.gif" width="97" height="1" border="0" alt=""></td>
<td><img src="images/spacer.gif" width="105" height="1" border="0" alt=""></td>
<td><img src="images/spacer.gif" width="103" height="1" border="0" alt=""></td>
<td><img src="images/spacer.gif" width="101" height="1" border="0" alt=""></td>
<td><img src="images/spacer.gif" width="15" height="1" border="0" alt=""></td>
<td><img src="images/spacer.gif" width="2" height="1" border="0" alt=""></td>
<td><img src="images/spacer.gif" width="6" height="1" border="0" alt=""></td>
<td><img src="images/spacer.gif" width="1" height="1" border="0" alt=""></td>
</tr>
<tr>
<td colspan="15"><img name="index_r1_c1" src="images/index_r1_c1.gif" width="774" height="25" border="0" alt=""></td>
<td><img src="images/spacer.gif" width="1" height="25" border="0" alt=""></td>
</tr>
<tr>
<td><img name="index_r2_c1" src="images/index_r2_c1.gif" width="6" height="77" border="0" alt=""></td>
<td colspan="5"><img name="index_r2_c2" src="images/index_r2_c2.gif" width="207" height="77" border="0" alt=""></td>
<td colspan="7"><a href="http://txl.bob365.net/" target="_blank"><img name="index_r2_c7" src="images/index_r2_c7.gif" width="553" height="77" border="0" alt=""></a></td>
<td colspan="2"><img name="index_r2_c14" src="images/index_r2_c14.gif" width="8" height="77" border="0" alt=""></td>
<td><img src="images/spacer.gif" width="1" height="77" border="0" alt=""></td>
</tr>
<tr>
<td colspan="15"><img name="index_r3_c1" src="images/index_r3_c1.gif" width="774" height="9" border="0" alt=""></td>
<td><img src="images/spacer.gif" width="1" height="9" border="0" alt=""></td>
</tr>
<tr>
<td colspan="2"><img name="index_r4_c1" src="images/index_r4_c1.gif" width="66" height="19" border="0" alt=""></td>
<td><a href="index.asp" target="_parent"><img name="index_r4_c3" src="images/index_r4_c3.gif" width="98" height="19" border="0" alt=""></a></td>
<td colspan="4"><a href="int.asp" target="_parent"><img name="index_r4_c4" src="images/index_r4_c4.gif" width="87" height="19" border="0" alt=""></a></td>
<td><a href="modify.asp" target="_parent"><img name="index_r4_c8" src="images/index_r4_c8.gif" width="94" height="19" border="0" alt=""></a></td>
<td><a href="note.asp" target="_parent"><img name="index_r4_c9" src="images/index_r4_c9.gif" width="97" height="19" border="0" alt=""></a></td>
<td><a href="card.asp" target="_parent"><img name="index_r4_c10" src="images/index_r4_c10.gif" width="105" height="19" border="0" alt=""></a></td>
<td><a href="showpic.asp" target="_parent"><img name="index_r4_c11" src="images/index_r4_c11.gif" width="103" height="19" border="0" alt=""></a></td>
<td><a href="guest.asp" target="_parent"><img name="index_r4_c12" src="images/index_r4_c12.gif" width="101" height="19" border="0" alt=""></a></td>
<td colspan="3"><img name="index_r4_c13" src="images/index_r4_c13.gif" width="23" height="19" border="0" alt=""></td>
<td><img src="images/spacer.gif" width="1" height="19" border="0" alt=""></td>
</tr>
<tr>
<td colspan="15"><img name="index_r5_c1" src="images/index_r5_c1.gif" width="774" height="4" border="0" alt=""></td>
<td><img src="images/spacer.gif" width="1" height="4" border="0" alt=""></td>
</tr>
<tr>
<td><img name="index_r6_c1" src="images/index_r6_c1.gif" width="6" height="202" border="0" alt=""></td>
<td colspan="13"><img name="index_r6_c2" src="images/index_r6_c2.gif" width="762" height="202" border="0" alt=""></td>
<td><img name="index_r6_c15" src="images/index_r6_c15.gif" width="6" height="202" border="0" alt=""></td>
<td><img src="images/spacer.gif" width="1" height="202" border="0" alt=""></td>
</tr>
<tr>
<td valign="top" background="images/index_r7_c1.gif"><img name="index_r7_c1" src="images/index_r7_c1.gif" width="6" height="553" border="0" alt=""></td>
<td colspan="3" valign="top" bgcolor="#FFFFFF" class="unnamed1"><table width="100%" height="98" border="0" cellpadding="0" cellspacing="0" bordercolor="#111111" class="unnamed1" style="border-collapse: collapse">
<tr>
<td height="17"></td>
<td height="17"> </td>
</tr>
<tr>
<td width="48%" height="17"><div align="right">名片總數：</div></td>
<td width="52%" height="17"><font color="#FF0000">
<%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%></font> 張</td>
</tr>
<tr>
<td height="16"></td>
<td height="16"> </td>
</tr>
<tr>
<td width="48%" height="16"><div align="right">帥哥名片：</div></td>
<td width="52%" 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"> </td>
</tr>
<tr>
<td width="48%" height="16"><div align="right">美女名片：</div></td>
<td width="52%" height="16"><font color="#FF0000"><%=i-j%></font> 張</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 " <A href=card.asp>首頁</A> "
Response.Write " <A href=card.asp?page=" & (Pageno-1) & ">前頁</A> "
Else
Response.Write " 首頁 "
Response.Write " 前頁 "
End If
If Pageno <> rs.PageCount Then
Response.Write " <A href=card.asp?page=" & (Pageno+1) & ">后頁</A> "
Response.Write " <A href=card.asp?page=" & (Rs.PageCount) & ">末頁</A> "
Else
Response.Write " 后頁 "
Response.Write " 末頁 "
End If
%> 第<select name="page">
<%
For I = 1 To Rs.PageCount
Response.Write "<option>" & I & "</option>"
Next
%>
</select>頁 <input type="submit" Value="GO"> </td>
</tr>
</table></form></td>
</tr>
</table></td>
<td background="images/index_r7_c15.gif"><img name="index_r7_c15" src="images/index_r7_c15.gif" width="6" height="553" border="0" alt=""></td>
<td><img src="images/spacer.gif" width="1" height="553" border="0" alt=""></td>
</tr>
<tr>
<td colspan="15"><img name="index_r8_c1" src="images/index_r8_c1.gif" width="774" height="71" border="0" alt=""></td>
<td><img src="images/spacer.gif" width="1" height="71" border="0" alt=""></td>
</tr>
</table>
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -