index.asp

基于asp的 班级同学录主页源代码

<!--#include file="connaddress.asp"-->
<!--#include file="../const.asp"-->
<% if session("user")="" then
response.redirect "../err.asp"
else
user=session("user")%>
<!--#include file="top.asp"-->
<div align="center">
<center>
<table border="0" cellpadding="3" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" class=xzy>
<tr>
<td width="160" style="border-left-style: solid; border-left-width: 1; border-right-style: solid; border-right-width: 1; border-top-width: 1; border-bottom-width: 1" background="image/gif/001.gif" valign="top">
<div align="center">
<center>
<!--#include  file="left.asp"-->
</center>
</div>
</td>
<td style="border-left-style: solid; border-left-width: 1; border-right-style: solid; border-right-width: 1; border-top-width: 1; border-bottom-width: 1" bgcolor="#FFFFFF" valign="top">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%">
<tr>
<td width="100%" bgcolor="#FFFFFF"> &gt;&gt;&gt; 你好，<%=session("user")%>，你当前所在的通讯录是：
<SELECT name=type style="font-size:9pt">
<option value="所有用户">所有用户</option>
<% rs.movefirst
do while not rs.eof
%>
<% if request("type")=rs("typename") then %>
<option value="<%=rs("id")%>" selected><%=rs("typename")%></option>
<%else%>
<option value="<%=rs("id")%>"><%=rs("typename")%></option>
<% end if %>
<%rs.movenext
loop
rs.close
%>
</SELECT>&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp&nbsp<% if request("type")<>"" then%>
<a href="javascript:openwin('addfriend.asp?typename=<%=trim(request("type"))%>',400,450)">在此组增加好友</a>&nbsp&nbsp&nbsp<a href="deltype.asp?type=<%=trim(request("type"))%>">删除该组</a>
<%end if%>
</td>
</tr><tr>
<td width="100%" height="96" align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align=right width=1> <img  height=20 src="image/misc8.gif" width=4></td>
<td background=image/Bg5.gif valign="middle">
<table width="100%" border="0" cellspacing="1" cellpadding="0">
<tr align="center">
<td width="14%">姓名</td>
<td width="16%">OICQ</td>
<td width="16%">电子邮箱</td>
<td width="14%">工作地点</td>
<td width="22%">联系电话</td>
<td width="10%">信息</td>
<td width="8%">编辑</td>
</tr>
</table>
</td>
<td width="1" background="image/Bg5.gif"></td>
<td width=1><img src="image/Misc22.gif"></td>
</tr>
</table>
<TABLE border=0 cellPadding=0 cellSpacing=0 width=100%>
<TBODY>
<!--通讯录Content显示开始-->
<TR>
<TD class=p1 colSpan=15 align="center">
<%
Set rs1= Server.CreateObject("ADODB.Recordset")
if request("type")="" then
sql1="select id,fname,foicq,femail,fworkaddr,fphone from address where user='"_
&user&"' order by id desc"
else
sql1="select id,fname,foicq,femail,fworkaddr,fphone from address where user='"_
&user&"'and typename='"&request("type")&"' order by id desc"
end if
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,1,1
if not rs1.eof then
totalcount=rs1.recordcount
maxpage=15
page=request("page")
if page="" or page<1 then
page=1
end if
if (totalcount mod maxpage)=0 then
pagecount=totalcount\maxpage
else
pagecount=totalcount\maxpage+1
end if
if Page=1 then
rs1.movefirst
showContent
showpage totalcount,maxpage,"index.asp"
elseif (page-1)*maxpage<totalcount then
rs1.move  (page-1)*maxpage
showContent
showpage totalcount,maxpage,"index.asp"
else
page=1
showContent
showpage totalcount,maxpage,"index.asp"
end if
rs1.close
	
set rs1=nothing
sub showContent
dim i
i=1
%>
<table width=100% cellpadding="0" cellspacing="0" border="0">
<%do while not rs1.eof%>
<tr width=100%>
<td align=center width="15%"><%=rs1("fname")%></td>
<td width=15% align="center"><%=rs1("foicq")%></td>
<td width="16%" align="center"><%=rs1("femail")%></td>
<td width="14%" align="center"><%=rs1("fworkaddr")%></td>
<td width="21%" align="center"><%=rs1("fphone")%></td>
<td width="10%" align="center"><a href="javascript:openwin('friend.asp?id=<%=rs1("id")%>',400,500)">查看</a></td>
<td width="9%"align="center"> <a href="delfriend.asp?id=<%=rs1("id")%>&type=<%=request("type")%>">删除</a></td>
</tr>
<% i=i+1
if i>=maxpage then exit do
rs1.movenext
loop
%></table>
<% end sub%>
<%else%>
<table width="100%">
<tr width=100%>
<td align="center">没有记录</td>
</tr> </table>
<% end if%>
<%
function showpage(totalcount,maxpage,filename)
dim n
if totalcount mod maxpage=0 then
n= totalcount \ maxpage
else
n= totalcount \ maxpage+1
end if
response.write "<table class=s width=95%'><tr><td><form method=Post action="&filename&"?type="&request("type")&">"
response.write "<p align='center'><font color='red'></font>&nbsp;"
if Page<2 then
response.write "<font color='#000080'>首页 上一页</font>&nbsp;"
else
response.write "<a href="&filename&"?page=1&type="&request("type")&">首页</a>&nbsp;"
response.write "<a href="&filename&"?page="&Page-1&"&type="&request("type")&">上一页</a>&nbsp;"
end if
if n-page<1 then
response.write "<font color='#000080'>下一页 尾页</font>"
else
response.write "<a href="&filename&"?page="&(Page+1)&"&type="&request("type")&">"
response.write "下一页</a> <a href="&filename&"?page="&n&"&type="&request("type")&">尾页</a>"
end if
response.write "<font color='#000080'>&nbsp;页次：</font><strong><font color=red>"&Page&"</font><font color='#000080'>/"&n&"</strong>页</font> "
response.write "<font color='#000080'>&nbsp;共<b>"&totalcount&"</b> 条记录<b>&nbsp"&maxpage&"</b>条记录/页</font> "
response.write " <font color='#000080'>转到：</font></td><td><input type='text' name='page' value="&page&" size='2' class=buttonface>"

response.write "</td><td valign=buttom><input type='image'  src='../image/alumni_search.gif'></td></form></tr></table>"
end function
%>
</td>
</TR>
<!--通讯录Content显示结束 -->
<!-- page number begin -->
<!-- page number end -->
</TBODY>
</TABLE>

</td>
</tr>
<tr>
<td width="100%" height="16" bgcolor="#FFFFFF">&nbsp; </td>
</tr>
</table>
</td>
</tr>

</table>
</center>
</div>
<% end if
conn.close
set conn=nothing%>
<!--#include file="../end.asp"-->