in_topmb.asp

一个超级漂亮的班级主页asp代码

<%

dim u_ID,u_sex,u_power,u_newmsg
dim u_regdate
dim u_icn,u_sf

sqlstr="SELECT ID,sex,regdate,power,fobdate,newmsg FROM tblmates WHERE name='"&u_name&"'"
rs.open sqlstr,conn,1,1
		'判断是否存在
		if rs.eof AND rs.bof then
			Session.Abandon
			Response.Redirect "log_err.asp?cmd=twosys"
		end if
	u_ID=rs("ID")
	u_sex=rs("sex")
	u_regdate=FormatDateTime(rs("regdate"),2)
	u_power=rs("power")
	u_fobdate=rs("fobdate")
	if isNULL(rs("newmsg")) then
		u_newmsg=0
	else
		u_newmsg=rs("newmsg")
	end if
rs.close



IF u_power<2 THEN
	if u_sex=true then
		u_icn="img/icn_gg.gif"
	else
		u_icn="img/icn_mm.gif"
	end if
ELSE
	u_icn="img/icn_adm1.gif"
END IF

Select Case u_power
	Case 0
		u_sf="待审"
	Case 2
		u_sf="管理员"
	Case Else
		u_sf="成员"
End Select

'总管判断
IF u_name=DEF_sysadm THEN
	u_icn="img/icn_admsys.gif"
	u_sf="总管"
END IF
%>

<table align="center" width="700" height="95" border="0" cellspacing="0" cellpadding="0"><tr>
	<td width="100" height="100%" align="center">
		<img align="absmiddle" src="<% =DEF_logo %>" width="100" height="90" border="0" vspace="0" hspace="0">
	</td>
	<td width="300" align="center">
		<%
			IF right(DEF_top,3)="swf" THEN
		%>
<OBJECT classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
 codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,0,0"
 WIDTH="<% =DEF_top_w %>" HEIGHT="<% =DEF_top_h %>" id="welcome" ALIGN="">
 <PARAM NAME=movie VALUE="<% =DEF_top %>"> 
 <PARAM NAME=quality VALUE=high>
 <EMBED src="<% =DEF_top %>" quality=high  WIDTH="<% =DEF_top_w %>" HEIGHT="<% =DEF_top_h %>" NAME="welcome" ALIGN="" TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/go/getflashplayer"></EMBED>
</OBJECT>
		<%  ELSE %>
				<img align="absmiddle" src="<% =DEF_top %>" border="0" onMouseOver="javascript:if(this.width>280)this.width=280;" onLoad="javascript:if(this.width>280)this.width=280;">
		<%
			END IF %>
	</td>
	<td>
		<table align="center" width="100%" height="86" cellspacing="0" cellpadding="0" style="border:2px solid <% =bg1 %>; background-color:<% =bg3 %>" class="intbl"><tr>
			<td width="200" height="100%">
				<table width="100%" height="100%" border="0" cellspacing="0" cellpadding="0" style="padding-left:4px; padding-top:1px">
					<tr><td width="100%" height="25%">
					<img src="<% =u_icn %>" border="0" align="absmiddle">&nbsp;<font class="ft1"><% =u_name %></font>
					<% if u_name=DEF_sysadm then %>
						<a href="sys_confirm.asp" class="ccjh">【后台】</a>
					<% end if %>

					</td></tr>
					<tr><td width="100%" height="25%">
					<img src="img/icn_sms.gif" border="0" align="absmiddle">
					<% if u_newmsg=0 then %>
					<a href="msgbox.asp">新 消 息 [0]</a>
					<% else %>
						<% if InStr(1,Request.ServerVariables("URL"),"msg",1)=0 then %>
							<bgsound src="sound/msg.wav" loop="1">
						<% end if %>
					<a href="msgbox.asp" target="_blank"><span style="behavior:url(font.htc)">有 消 息 </span>[<font class="ft1"><b><% =u_newmsg %></b></font>]</a>
					<% end if %>
					
					&nbsp;&nbsp;<img src="img/icn_fj.gif" border="0" align="absmiddle">&nbsp;<a href="fjlist.asp">共享附件</a>
					</td></tr>
					<tr><td width="100%" height="25%">
					<img src="img/icn_info.gif" border="0" align="absmiddle">&nbsp;<a href="uinfo.asp">成员中心</a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
					<img src="img/icn_help.gif" border="0" align="absmiddle">&nbsp;<a href="uhelp.asp">班级规则</a>
					</td></tr>
					<tr><td width="100%" height="25%" align="right">
					[身份：<font class="ft1"><% =u_sf %></font>]
					&nbsp;&nbsp;&nbsp;&nbsp;<a href="logout.asp">[退出登录]</a>
					&nbsp;&nbsp;
					</td></tr>
				</table>
			</td>
			<td height="100%">
					<table width="100%" height="100%" border="0" cellspacing="0" cellpadding="0" class="intbl">
					<tr><td width="100%"><a href="phbook.asp" class="btn"><img src="img/skin/<% =defstyle %>/btn_photo.gif" border="0" alt="班级相册<br>(正式成员版面)"></a></td></tr>
					<tr><td width="100%"><a href="txbook.asp" class="btn"><img src="img/skin/<% =defstyle %>/btn_txb.gif" border="0" alt="班级通讯簿<br>(正式成员版面)"></a></td></tr>
					<tr><td width="100%"><a href="talkbook.asp" class="btn"><img src="img/skin/<% =defstyle %>/btn_bbs.gif" border="0" alt="班级讨论区"></a></td></tr>
					</table>
			</td>
		</tr></table>
	</td>
</tr></table>

<table align="center" width="700" height="25" border="0" cellspacing="0" cellpadding="0" style="border:2px solid <% =bg1 %>; border-bottom:none; background-color:<% =bg3 %>"><tr>
	<td width="50%" height="100%">
		<b>&nbsp;<% =DEF_classname %></b>
	</td>
	<td width="50%" align="right">
		<b>班级网址：<a href="index.asp"><% =DEF_weburl %></a>&nbsp;</b>
	</td>
</tr></table>