indexhead.asp

功能强大的一个b/s工作站

<!--#include file="skintop.asp"-->	<!-- 数码修改-增加头部皮肤 -->
<table cellspacing=1 cellpadding=2 align=center class=tableBorder1 border=0>
<tr height=24>
	<th colspan="4" id="TableTitleLink" width="100%">
			<SCRIPT LANGUAGE='JavaScript' SRC='js/fader.js' TYPE='text/javascript'></script>
			<SCRIPT LANGUAGE='JavaScript' TYPE='text/javascript'></script>
<marquee scrollamount=3 onmouseover=this.stop(); onmouseout=this.start();>
<%
sql="select top 10 title,addtime from bbsnews where boardid="&boardid&"  order by id desc"
set rs=conn.execute(sql)
if rs.bof and rs.eof then
 response.write "<b><a href='announcements.asp?boardid="& boardid &"' target=_blank><ACRONYM TITLE='当前没有公告'>当前没有公告</ACRONYM></a></b> ("& now() &")"
else
 do while (not rs.eof)
 response.write "◆&nbsp;<b><a href='announcements.asp?boardid="& boardid &"' target=_blank>"& rs("title") &"</a></b>("& rs("addtime") &")&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
%>     
<%  
rs.movenext 
  loop%><%

end if
set rs=nothing
%> 
	</th>
</tr>
<tr>
<%	if not founduser then
		response.Write "<td class=tableBody1 align=center valign=middle><img src=""images/noface.gif"" width=""80"" border=0></td>"&_
					"<td class=tableBody1 align=center valign=middle>欢迎您来参观,<a href=reg.asp class=cblue>注册</a>或<a href=login.asp class=cblue>登陆</a>后才能查看您的信息!</td>"
	else 
		response.Write "<td class=tableBody1 align=center valign=middle><img src="""&myface&""" width=""80"" border=0></td>"&_
					"<td class=tableBody1 align=center valign=top>"
%>	
			<TABLE border=0 width="98%" align=center>
        <td width=65% > 欢迎您<font color="#FF0000"><B> <%=membername%> </B></font><% dim username
username=membername
set rs=server.createobject("adodb.recordset")
sql="select * from [user] where username='"&UserName&"'"
rs.open sql,conn,1,1 %>
这是你第 <%=rs("logins")%> 次光临
<%
rs.close
set rs=nothing
%>
</td>
<tr><td height="1" bgcolor="<%=Forum_body(27)%>"></td></tr>   
<TR><td><a href="javascript:openScript('messanger.asp?action=new',500,400)">发短信</a> <FONT COLOR=#0000FF>※</font>


<%
	if Cint(newincept())>Cint(0) then
		if Cint(forum_setting(10))=1 then%>
			<script language=JavaScript>openScript('messanger.asp?action=read&id=<%=inceptid(1)%>&sender=<%=inceptid(2)%>',500,400)</script>
<%		end if	%>
		<bgsound src="<%=Forum_info(7)&Forum_statePic(8)%>" border=0>
		<img src=<%=Forum_info(7)&Forum_boardpic(9)%>><a href="usersms.asp?action=inbox">我的收件箱</a> (<a href="javascript:openScript('messanger.asp?action=read&id=<%=inceptid(1)%>&sender=<%=inceptid(2)%>',500,400)"><font color="<%=Forum_body(8)%>"><%=newincept()%> 新</font></a>)
<%	else	%>
		<a href="usersms.asp?action=inbox">我的收件箱</a> (<font color=gray>0 新</font>)
<%
	end if
	'call getRe()			
%>			<font face=Wingdings color=blue>v</font> <font color="red"><%=myClass%></font></td>	
			</TR>
			<tr><td height="1" bgcolor="<%=Forum_body(27)%>"></td></tr>
			<TR><td><a href="topicwithme.asp?s=2">发表的主题</a> ※ <a href="topicwithme.asp?s=3">被回复的主题</a> ※ <a href="topicwithme.asp?s=1">参与的主题</a></td></TR>
			<TR><td>文章数：<%=myArticle%> ※ 现金：<%=mymoney%> ※ 威望：<font color="red"><%=mypower%></font></td></TR>  
<!--			<TR><td width="100%" align="center">  
				<table border="0" cellpadding="0" cellspacing="0" width="98%">
				 <tr height="10">
				 	<td width="40">能量：</td><td><img src="pic/bar2.gif" height="10" width=""></td> 
				 	<td width="40">体力：</td><td><img src="pic/bar7.gif" height="10" width=""></td>
				 </tr>
				</table>
			</td></TR>-->
				
			<TR><td><font color="gray">您最后一次访问是在：<%=Now()%></font></td></TR>
			</TABLE>		
<%									
	end if
					
	sql="select top 1 TopicNum,BbsNum,TodayNum,UserNum,lastUser,yesterdaynum,maxpostnum,maxpostdate,LastPost from config where active=1"
	set rs=conn.execute(sql)
	LastPostInfo=split(rs("LastPost"),"$")
	if not isdate(LastPostInfo(2)) then LastPostInfo(2)=Now()
	LastPostTime=LastPostInfo(2)
	if datediff("d",LastPostTime,Now())>0 and ubound(LastPostInfo)=7 then
		conn.execute("update config set yesterdaynum=todaynum,LastPost='"&checkStr(LastPostInfo(0))&"$"&checkStr(LastPostInfo(1))&"$"&Now()&"$"&checkStr(LastPostInfo(3))&"$"&checkStr(LastPostInfo(4))&"$"&checkStr(LastPostInfo(5))&"$"&checkStr(LastPostInfo(6))&"$"&checkStr(LastPostInfo(7))&"'")
		conn.execute("update config set todaynum=0")
	end if
	if rs(2)>rs(6) then conn.execute("update config set maxpostnum=todaynum,maxpostdate=Now()")
%>
		</td>
		<td class=tableBody1 valign="top">
			<TABLE border=0 width="98%" align=center>
			<TR>
				<TD>共有<B><%= rs(3)%></B>位会员</td>
				<TD><a href="toplist.asp?orders=2">新进来宾</a> <a href=dispuser.asp?name=<%= htmlencode(rs(4)) %> target=_blank class="cblue"><b><%= htmlencode(rs(4)) %></b></a></td>
			</TR>
			<tr><td height="1" bgcolor="<%=Forum_body(27)%>" colspan="2"></td></tr>
			<TR>
				<TD>今日发贴：<FONT COLOR="<%=Forum_body(8)%>"><B><%=rs(2)%></B></FONT></td>
				<TD>主题总数：<b><%= rs(0) %></b></td>
			</TR>
			<TR>
				<TD>昨日发贴：<B><%=rs(5)%></B></td>
				<TD>帖子总数：<b><%=rs(1)%></B></td>
			</TR>
			<TR>
				<TD>建站天数：<FONT COLOR="<%=Forum_body(8)%>"><B><%=datediff("d","2003-4-12",date())%></B></FONT></td>
				<TD>最高日发贴：<B><%=rs(6)%></B></td>
			</TR>
			<TR>
			     <td><script language="JavaScript" src="mm.asp"></script></td>
			     <TD><script language="JavaScript" src="gg.asp"></script></td>
           </TR>
			</TABLE>
		</td>	
		<td class=tableBody1 nowrap align="center">
			<TABLE border=0 width="110" align=center cellpadding="0" cellspacing="0" bgcolor="#CCCCCC">
			<tr><td bgcolor="#CCCCCC" width="107">
				<TABLE border=0 width="100%" height="100%" cellpadding="0" cellspacing="1" bgcolor="#0099FF"><tr><td>
					<TABLE border=0 width="100%" height="100%" cellpadding="3" cellspacing="0">
						<TR><td class=tableBody1 align="center"><img src="images/clock/cb.gif" name="a"><img src="images/clock/cb.gif" name="b"><img src="images/clock/colon.gif" name="c"><img src="images/clock/cb.gif" name="d"><img src="images/clock/cb.gif" name="e"><img src="images/clock/colon.gif" name="f"><img src="images/clock/cb.gif" name="g"><img src="images/clock/cb.gif" name="h"></td></TR>
						<TR><td class=tableBody1 align="center" id="tdyear"></td></TR>
						<TR><td class=tableBody1 align="center" id="tdweek"></td></TR>
						<TR><td class=tableBody1 align="center" id="tdcyear"></td></TR>
					</TABLE>
				</td></tr></TABLE>	
			</td></tr>	
			<tr><td width="3" rowspan="2"></td></tr>
			<tr><td height="3"></td></tr>	
			</table>
			<script language='javascript'>Chen_CAL();</script>			
		</td>						
	</tr>
	<tr><td class=tableBody2 align="center" colspan="4" height="25" width="100%"><a href=queryresult.asp?stype=3>查看新贴</a> <font face=Wingdings color=blue>v</font> <a href=hotlist.asp?stype=1>热门话题</a> <font face=Wingdings color=blue>v</font> <a href=toplist.asp?orders=1>发贴排行</a> <font face=Wingdings color=blue>v</font> <a href=toplist.asp?orders=7>用户列表</a></td></tr>
</table>
<!--#include file="skinbottom.asp"-->	<!-- 数码修改-增加脚部皮肤 -->
<br>