person.asp

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

<!--#include file="conn.asp"-->
<!--#include file="const.asp"-->
<% if session("user")="" then
response.redirect "../err.asp"
else
user=session("user")%>
<%
set rs=server.createobject("ADODB.recordset")
sql="select * from user where user='"&user&"'"
rs.open sql,conn,1,1
if rs.bof or rs.eof then
err=true
errstr="<br><br><br><br><br><br><b>对不起，找不到该用户"
else
realname=rs("realname")
sex=rs("sex")
if sex="1" then
sex="先生"
else
sex="小姐"
end if
bbscount=rs("bbscount")
photocount=rs("photocount")
logincount=rs("logincount")
money=rs("usermoney")
if money>10000 then
level="<img src=image/level7.gif>"
elseif money>8000 then
level="<img src=image/level6.gif>"
elseif money>5000 then
level="<img src=image/level5.gif>"
elseif money>1000 then
level="<img src=image/level4.gif>"
elseif money>500 then
level="<img src=image/level3.gif>"
elseif money>200 then
level="<img src=image/level2.gif>"
else
level="<img src=image/level1.gif>"
end if
userimage="<img src="&rs("userimage")&">"
addinfo=rs("addinfo")
rs.close
end if%>
<!--#include file="top.asp"-->
<script language="javaScript" type="text/javascript"    SRC="mynews/pz_chromeless_2.1.js"></SCRIPT>
<script language="javaScript" type="text/javascript" SRC="mynews/openScript.js"></script>
<table width=100% class=bk border="0" cellpadding="0" cellspacing="0">
<tr>
<td bgcolor="#666666" valign="top" align="center">
<table width="96%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="center"><img src="image/person1.gif" alt="待增"><br>
<a href="address/index.asp"><img src="image/person2.gif" border="0"></a><br>
<a href="bookmark/index.asp"><img src="image/person3.gif" border="0"></a><br>
<a href="alumni/userperson.asp?lookuser=<%=session("user")%>"><img src="image/person4.gif" border="0"></a><br>
<img src="image/person5.gif" alt="待增"><br>
<a href="usermod.asp" target="_blank"><img src="image/person6.gif" border=0></a></td>
</tr>
</table>
<br>
<table border=0 cellpadding=0 cellspacing=0 height=250
width="94%">
<tbody>
<tr>
<td width=42 bgcolor="#FFFFFF">&nbsp;</td>
<td bgcolor=#ffffff height=40 valign=bottom width="119"><img
src="image/rido0.gif"></td>
<td bgcolor=#FFFFFF height=40 valign=bottom width="39">&nbsp;</td>
</tr>
<tr>
<td height="7" width="42" bgcolor="#FFFFFF"></td>
<td align=middle background=image/rido2.gif
height=7 width="119"></td>
<td align=middle
height=7 width="39" bgcolor="#FFFFFF"></td>
</tr>
<tr>
<td height=200 width=42 bgcolor="#FFFFFF">&nbsp;</td>
<td align=middle background=image/rido2.gif width="119" valign=top>
<table align=center border=0 cellpadding=2 cellspacing=0
width=136>
<tbody>
<%
set rs1=server.createobject("ADODB.recordset")
sql1="SELECT TOP 10 realname from user ORDER BY logincount DESC"
rs1.open sql1,conn,1,3
%>
<%
for i=1 to 10
if rs1.eof or rs1.bof then exit for
response.write "<tr class=tss><td align=middle height=18 valign=top><img src=image/number/"&i&".gif></td><td align=middle valign=center>"&rs1("realname")&"</td></tr>"
rs1.movenext
next
rs1.close
%>
</tbody>
</table>
</td>
<td align=middle width="39" bgcolor="#FFFFFF">&nbsp;</td>
</tr>
<tr>
<td width=42 bgcolor="#FFFFFF">&nbsp;</td>
<td bgcolor=#ffffff height=15 valign=top width="119"><img
src="image/rido3.gif"></td>
<td bgcolor=#FFFFFF height=15 valign=top width="39">&nbsp;</td>
</tr>
</tbody>
</table>
</td>
<td valign="top" width="404" class=z bgcolor=#ffffff align="center"></td>
<td valign="top" width="200" class=z bgcolor=#FFFFFF align="center">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td colspan="2"><img src="image/fouse.gif"></td>
</tr>
<tr>
<td height="93" valign="top" colspan="2">&nbsp;</td>
</tr>
<tr>
<td align="center" class=sx colspan="2" bgcolor="#FFcccc"><img src="image/jiao.gif" width="6" height="10">&nbsp;&nbsp;IP
地址追捕</td>
</tr>
<form name="form1" method="post" action="findwhere/find.asp" target=_blank>
<tr bgcolor="#FFECEC">
<td align="right" valign="bottom">
<input type="text" name="ipaddr" size=16 class=buttonface>
</td>
<td align="left" valign="bottom" bgcolor="#FFECEC">
<input type="image" src="image/btn_search.gif" width="61" height="15" name="image">
</td>
</tr>
</form>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#FFCCCC" align="center">网 站 导 航</td>
</tr>
<tr>
<td align="center" height="205" valign="top">
<table width="100%" border="0" cellspacing="2" cellpadding="2" bgcolor="#FFFFFF">
<tr>
<td width="17" bgcolor="#FFFFFF"><img src="image/ip.gif" width="17" height="17"></td>
<td width="41%" bgcolor="#FFECEC"><a href="http://www.163.com" target="_blank">网易</a></td>
<td width="17" bgcolor="#FFFFFF"><img src="image/ip.gif" width="17" height="17"></td>
<td width="36%" bgcolor="#FFECEC"><a href="http://www.chinaren.com" target="_blank">中国人</a></td>
</tr>
<tr>
<td width="17" bgcolor="#FFFFFF"><img src="image/ip.gif" width="17" height="17"></td>
<td width="41%" bgcolor="#FFECEC"><a href="http://www.sina.com.cn" target="_blank">新浪</a></td>
<td width="17" bgcolor="#FFFFFF"><img src="image/ip.gif" width="17" height="17"></td>
<td width="36%" bgcolor="#FFECEC"><a href="http://www.china.com" target="_blank">中华网</a></td>
</tr>
<tr>
<td width="17" bgcolor="#FFFFFF"><img src="image/ip.gif" width="17" height="17"></td>
<td width="41%" bgcolor="#FFECEC"><a href="http://www.sohu.com" target="_blank">搜狐</a></td>
<td width="17" bgcolor="#FFFFFF"><img src="image/ip.gif" width="17" height="17"></td>
<td width="36%" bgcolor="#FFECEC"><a href="http://www.newhua.com" target="_blank">华军软件园</a></td>
</tr>
<tr>
<td width="17" bgcolor="#FFFFFF"><img src="image/ip.gif" width="17" height="17"></td>
<td width="41%" bgcolor="#FFECEC"><a href="http://www.tg002.com" target="_blank">无限音乐空间</a></td>
<td width="17" bgcolor="#FFFFFF"><img src="image/ip.gif" width="17" height="17"></td>
<td width="36%" bgcolor="#FFECEC">人心论坛</td>
</tr>
<tr>
<td width="17" height="19" bgcolor="#FFFFFF"><img src="image/ip.gif" width="17" height="17"></td>
<td width="41%" height="19" bgcolor="#FFECEC">&nbsp;</td>
<td width="17" height="19" bgcolor="#FFFFFF"><img src="image/ip.gif" width="17" height="17"></td>
<td width="36%" height="19" bgcolor="#FFECEC">&nbsp;</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#FFCCCC" align="center">版 权 说 明</td>
</tr>
<tr>
<td height="75" align="center"><img src="image/copyright.gif" width="160" height="60"></td>
</tr>
</table>
</td>
</tr>
</table>
</td>
</tr>
</table>

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