<!--#include file=grade.asp-->
<!-- #include file="online.asp" -->


<script> 
lastScrollY=0; 
function heartBeat(){ 
diffY=document.body.scrollTop; 
percent=.1*(diffY-lastScrollY); 
if(percent>0)percent=Math.ceil(percent); 
else percent=Math.floor(percent); 
document.all.yuzi.style.pixelTop+=percent; 
lastScrollY=lastScrollY+percent; 
} 
window.setInterval("heartBeat()",1); 
</script>
<SCRIPT language=javascript src="memu/menu.js"></SCRIPT>
<!-- onselectstart='return false'; 防止拷
-->
<SCRIPT language=JavaScript>
var currentpos,timer; 
function initialize() 
{ 
timer=setInterval("scrollwindow()",1);
} 
function sc(){
clearInterval(timer);	
}
function scrollwindow() 
{ 
currentpos=document.body.scrollTop; 
window.scroll(0,++currentpos); 
if (currentpos != document.body.scrollTop) 
sc();
} 
document.onmousedown=sc
document.ondblclick=initialize
</script>
 <SCRIPT language=javascript>
        <!--
         function openwinmp() { 
         window.open ("musicplay.asp", "swindow", "height=158, width=308, toolbar=no, menubar=no, scrollbars=no, resizable=no, location=no, status=no")
           }
         //-->
</SCRIPT>

<%if not session("xscbbs")=true and date()="2002-9-21"  then
%>
<script>window.open('../mid_day.htm','mid_day','width=300,height=400')</script>
<% session("xscbbs")=true
else%>
<%end if%>

<%'if not session("xscbbs")=true then
%>
<!--
<script>window.open('queryresult2.asp?stype=3','newpost','status=1,resizable=1,scrollbars=1,height=480,width=510,top=10,left=250')</script>
 oncontextmenu=self.event.returnValue=false;
-->
<% 'session("xscbbs")=true
'else%>
<%'end if%>

<%
sub nav()
	response.write "<html><head>"
%>

<%
	response.write "<meta NAME=GENERATOR Content=""Microsoft FrontPage 4.0"" CHARSET=GB2312>"&_
				"<title>"&ForumName&"--"&stats&"</title>"
	response.write "<link rel=stylesheet type=text/css href=forum.css></head>"&_
				"<body   "&Forumbody&"><a name='top'></a>"

response.write "<table width="&TableWidth&" align=center cellspacing=0 cellpadding=1  border=0 bgcolor="& Tablebackcolor &">"&_
			"<tr><td>"&_
			"<table style=color:"& TableFontcolor &" width=100% cellspacing=0 cellpadding=4 border=0>"
	if boardid=0 then
		response.write "<tr class=coolbg bgcolor="& Tabletitlecolor &">"&_
			"<td valign=middle background="&picurl&P_reflash&"><FONT COLOR="& TableFontcolor &"> >>" 
else
response.write "<tr bgcolor="& Tabletitlecolor &">"&_
			"<td valign=middle  background="&picurl&P_reflash&"><FONT COLOR="& TableFontcolor &"> >>" 
end if
	if membername="" then
	response.write "欢迎您，<a href=login.asp><FONT COLOR="& TableFontcolor &">请先登陆</FONT></a>&nbsp;|&nbsp;<a href=reg.asp><FONT COLOR="& TableFontcolor &">注册</FONT></a>"
else
	response.write "欢迎您，<b>"& membername &"</b>：<a href=login.asp><FONT COLOR="& TableFontcolor &">重登陆</FONT></a>&nbsp;|&nbsp;<a href=usermanager.asp>"&_
				"<FONT COLOR="& TableFontcolor &">用户控制面板</FONT></a>&nbsp;|&nbsp;"&_
				"<a href=""#;"" onclick=""javascript:window.open('jifen.asp','point','status=1,resizable=0,scrollbars=1,height=368,width=368')"" >存点</a>"
end if
		 
response.write "&nbsp;|&nbsp;<a href=toplist.asp?orders=1 ><FONT COLOR="& TableFontcolor &">排行</FONT></a>&nbsp;|&nbsp;<a href=query.asp?boardid="&boardid&"><FONT COLOR="& TableFontcolor &">搜索</FONT></a>"
response.write "&nbsp;|&nbsp;<a href=""#;"" onclick=""javascript:window.open('top100.asp?page=1','rexsp','status=1,resizable=1,scrollbars=1,height=480,width=510,top=10,left=250')"" ><font color=blue>新贴</font></a>&nbsp;|&nbsp;<a href=juliu.asp><FONT COLOR=red>投诉</FONT></a>&nbsp;|&nbsp;<a href='#;'onclick=window.open('viewmanage.asp','manage','status=1,resizable=0,scrollbars=1,height=400,width=670')><font color=blue>版主鉴定</font></a>&nbsp;|&nbsp;<a href=boardinfo.asp?boardid="&boardid&"><FONT COLOR=blue>版务鉴定</FONT></a>&nbsp;|&nbsp;<a href=help.asp><FONT COLOR="& TableFontcolor &">帮助</FONT></a>&nbsp;|&nbsp;<a href=logout.asp><FONT COLOR="& TableFontcolor &">退出</FONT></a>"
if master then
	response.write "&nbsp;|<a href=admin_index.asp><FONT COLOR="& TableFontcolor &"> 管理</FONT></a>"
end if

response.write "</td><td valign=middle align=right  background="&picurl&P_reflash&"><FONT COLOR="& TableFontcolor &_
			"></a></FONT>"&_
			"</td></tr></table></td></tr></table>" 
			response.write "<table width="&tablewidth&" align=center cellspacing=0 cellpadding=1  border=0>"&_
			"<tr><td align=left width=""50%"">"
	response.write "</td><td align=right width=""50%"">"


response.write "</td></tr></table>"
end sub


sub na()
	response.write "<html><head>"
%>
<!--#include file=js.asp-->
<%
	response.write "<meta NAME=GENERATOR Content=""Microsoft FrontPage 4.0"" CHARSET=GB2312>"&_
				"<title>"&ForumName&"--"&stats&"</title>"
	response.write "<link rel=stylesheet type=text/css href=forum.css></head>"&_
				"<body   "&Forumbody&"><a name='top'></a>"

response.write "<table width="&TableWidth&" align=center cellspacing=0 cellpadding=1  border=0 bgcolor="& Tablebackcolor &">"&_
			"<tr><td>"&_
			"<table style=color:"& TableFontcolor &" width=100% cellspacing=0 cellpadding=4 border=0>"
	if boardid=0 then
		response.write "<tr class=coolbg bgcolor="& Tabletitlecolor &">"&_
			"<td valign=middle background="&picurl&P_reflash&"><FONT COLOR="& TableFontcolor &"> >>" 
else
response.write "<tr bgcolor="& Tabletitlecolor &">"&_
			"<td valign=middle  background="&picurl&P_reflash&"><FONT COLOR="& TableFontcolor &"> >>" 
end if			 
response.write "<a href=dispbbs.asp?boardID=7&RootID=295&ID=295>校园焦点：百欣校园电影大赛公开时间：艺术节前后&nbsp;<a href=announce.asp?boardid=29><FONT COLOR="& TableFontcolor &">|&nbsp;校园活动支持申请</FONT></a>&nbsp;</a>"
response.write "|&nbsp;<a href=http://www.shuil.cn><FONT COLOR="& TableFontcolor &">水狼在线影视区</FONT></a>&nbsp;|&nbsp;<a href=http://sljd.shuil.cn><FONT COLOR="& TableFontcolor &">水狼商铺区</FONT></a>&nbsp;|&nbsp;<a href='#;'onclick=window.open('viewmanage.asp','manage','status=1,resizable=0,scrollbars=1,height=400,width=670')><font color="& TableFontcolor &">版主鉴定</font></a>&nbsp;|&nbsp;<a href=boardinfo.asp?boardid="&boardid&"><FONT COLOR="& TableFontcolor &">版务鉴定</FONT></a>&nbsp;|"

response.write "</td><td valign=middle align=right  background="&picurl&P_reflash&"><FONT COLOR="& TableFontcolor &_
			"></a></FONT>"&_
			"</td></tr></table></td></tr></table>" 
			response.write "<table width="&tablewidth&" align=center cellspacing=0 cellpadding=1  border=0>"&_
			"<tr><td align=left width=""50%"">"
	response.write "</td><td align=right width=""50%"">"

if membername<>"" then
	call getRe()
	if Cint(newincept())>Cint(0) then
		response.write "<bgsound src="&picurl&"mail.wav border=0>"
		if openmsg=0 then
		response.write "<img src="&picurl&"newmail.gif><a href=javascript:openScript('messanger.asp?action=read&id="&inceptid(1)&"&sender="&inceptid(2)&"',500,400)>您有新短消息</a>"
		else
		response.write "<script language=JavaScript>openScript('messanger.asp?action=read&id="&inceptid(1)&"&sender="&inceptid(2)&"',500,400)</script>"
		end if
	end if
end if

response.write "</td></tr></table>"
end sub


function newincept()
rs=conn.execute("Select Count(id) From Message Where flag=0 and issend=1 and delR=0 And incept='"& membername &"'")
    newincept=rs(0)
	set rs=nothing
	if isnull(newincept) then newincept=0
end function
function inceptid(stype)
rs=conn.execute("Select top 1 id,sender From Message Where flag=0 and issend=1 and delR=0 And incept='"& membername &"'")
	if stype=1 then
	inceptid=rs(0)
	else
	inceptid=rs(1)
	end if
	set rs=nothing
end function

sub getRe()
	if userid<>"" then
	dim reAnn,ID,reBoardid
	set rs=conn.execute("select ReAnn from [user] where userid="& userid &" and showRe=1 and reAnn is not null")
	if not(rs.eof and rs.bof) then
		reAnn=rs("reAnn")
		reBoardID=split(reAnn,"|")(0)
		ID=split(reAnn,"|")(1)
		response.write "<img src="&picurl&"newmail.gif><a href='dispbbs.asp?boardID="&reBoardID&"&rootID="&ID&"&ID="&ID&"' target=_blank>您的帖子有人回复了</a>"
	end if
	rs.close
	set rs=nothing
	end if
end sub
sub headline(files)
	dim backpage
		response.write "<table cellpadding=0 cellspacing=0 width=100% height=99><!-- MSTableType=nolayout --><tr><td height=99 background=pic/backpicture.jpg><table cellpadding=0 cellspacing=0 width=203 height=93><!-- MSTableType=nolayout --><tr><td height=65><p align=center><a href=http://www.shuil.cn/bbs/index.asp><img border=0 src=pic/logo.gif width=185 height=68></a></td></tr><tr><td height=28>　</td></tr></table></td></tr></table>"
	response.write "<table cellpadding=0 cellspacing=0 width="&TableWidth&" height=24  align=center><tr><td height=24 width="&TableWidth&" style=""border:1px solid #C6D2E3 "">&nbsp;&nbsp;<img border=0 src=pic/nav.gif width=10 height=10>"&_
			"<font color="&bodyfontcolor&">&nbsp;&nbsp;<a href=index.asp>"&ForumName&" </a>→"
	if instr(lcase(request.ServerVariables("PATH_INFO")),"dispbbs")>0 then
	end if
	Select Case files
	case 1
	 if founderr=true then
     stats="错误信息"
     end if

	response.write "&nbsp;&nbsp;"&stats&""
	case 2
	 if founderr=true then
       stats="错误信息"
     end if

	response.write "&nbsp;&nbsp;"&_
			"<a href=list.asp?boardid="&boardid&"><font color="&BodyFontColor&">『"&boardtype&"』</a>"&backpage&""&_ 
			"&nbsp;&nbsp;→&nbsp;&nbsp;"&htmlencode(replace(stats,boardtype,""))&""
	end select
	response.write "</td></tr></table>"
end sub

'右键菜单%><!--
<script>  
var menuskin=0  
var display_url=0  
function showmenuie5(){  
var rightedge=document.body.clientWidth-event.clientX  
var bottomedge=document.body.clientHeight-event.clientY  
if (rightedge<ie5menu.offsetWidth)  
ie5menu.style.left=document.body.scrollLeft+event.clientX-ie5menu.offsetWidth  
else  
ie5menu.style.left=document.body.scrollLeft+event.clientX  
if (bottomedge<ie5menu.offsetHeight)  
ie5menu.style.top=document.body.scrollTop+event.clientY-ie5menu.offsetHeight  
else  
ie5menu.style.top=document.body.scrollTop+event.clientY  
ie5menu.style.visibility="visible"  
return false  
}  
function hidemenuie5(){  
ie5menu.style.visibility="hidden"  
}  
function highlightie5(){  
if (event.srcElement.className=="menuitems"){  
event.srcElement.style.backgroundColor="<%=aTablebodycolor%>"  
event.srcElement.style.color="red" 
if (display_url==1)  
window.status=event.srcElement.url  
}  
}  
function lowlightie5(){  
if (event.srcElement.className=="menuitems"){  
event.srcElement.style.backgroundColor="white"  
event.srcElement.style.color="black"  
window.status=''  
}  
}  
function jumptoie5(){  
if (event.srcElement.className=="menuitems"){  
if (event.srcElement.getAttribute("target")!=null)  
window.open(event.srcElement.url,event.srcElement.getAttribute("target"))  
else  
window.location=event.srcElement.url  
}  
}  
function linkopen(){  
expireDate=new Date;  
expireDate.setYear(expireDate.getYear()+1);  
document.cookie="link="+"on"+";expires="+expireDate.toGMTString()+";";  
location.reload()  
}  
function linkclose(){  
expireDate=new Date;  
expireDate.setYear(expireDate.getYear()+1);  
document.cookie="link="+"off"+";expires="+expireDate.toGMTString()+";";  
location.reload()  
}  
function onlineopen(){  
expireDate=new Date;  
expireDate.setYear(expireDate.getYear()+1);  
document.cookie="online="+"on"+";expires="+expireDate.toGMTString()+";";  
location.reload()  
}  
function onlineclose(){  
expireDate=new Date;  
expireDate.setYear(expireDate.getYear()+1);  
document.cookie="online="+"off"+";expires="+expireDate.toGMTString()+";";  
location.reload()  
}  
</script>  
<head>  
<style>.skin0 {  
--BORDER-RIGHT: 1px solid; BORDER-TOP: 1px solid; VISIBILITY: hidden; BORDER-LEFT: 1px solid; WIDTH: 100px; CURSOR: default; LINE-HEIGHT: 16px; BORDER-BOTTOM: 1px solid; FONT-FAMILY: Verdana; POSITION: absolute; BACKGROUND-COLOR: white;BORDER-COLOR:<%=TableFontcolor%> 
}  
.menuitems {  
--PADDING-RIGHT: 3px; PADDING-LEFT: 3px  
}  
</style>  
</head>  
<div class=skin0 id=ie5menu onMouseOver=highlightie5() onClick=jumptoie5()  
onMouseOut=lowlightie5()>   
  <div><table bgcolor="<%=aTablebodycolor%>" width=100%><tr><td align=center><font color=<%=TableFontcolor%>><b>菜单小精灵</b></font></td></tr></table></div>  
    <table cellspacing=0 cellpadding=0 width="100%" bgcolor=<%=Tablefontcolor%> border=0>  
    <tbody>   
    <tr>   
      <td></td>  
    </tr>  
    </tbody>   
  </table>  

  <div class=menuitems url="#;" onclick=javascrip:window.open('top100.asp','newpost','status=1,resizable=1,scrollbars=1,height=480,width=510,top=10,left=250') style=cursor:hand><img border="0" src="pic/serach.gif";>  新新百篇</div>  

  <div class=menuitems url="wish.asp" style=cursor:hand><img border="0" src="pic/login1.gif";>  祈愿祝福</div>  
  <div class=menuitems url="bank/bank.asp" style=cursor:hand><img src=pic/allis.gif>  论坛银行</div>  
  <div class=menuitems url="bank/fuwu.asp" style=cursor:hand><img src=pic/todays.gif>  社区服务</div> 
   <div class=menuitems url="#;" onclick=javascrip:window.open('chatroom.asp','','width=600,height=250,fullscreen=no,Status=yes,scrollbars=yes,resizable=no') style=cursor:hand><img src=pic/top10.gif>  即时聊天</div>  
      
	<div class=menuitems url="#;" onclick=javascrip:window.open('gupiao/gupiao.asp','newposta','status=1,resizable=0,scrollbars=1,height=400,width=640') style=cursor:hand><img border="0" src="pic/help2.gif";>  股市风云</div> 
	<div class=menuitems url="#;" onclick=javascrip:window.open('viewmanage.asp','manage','status=1,resizable=0,scrollbars=1,height=400,width=670')  style=cursor:hand><img border="0" src="pic/welcome.gif";>  版主评定</div> 

	<div class=menuitems url="#;" onclick=openwinmp() style=cursor:hand><img border="0" src="pic/music.gif";>  音乐点唱</div> 
	<div class=menuitems url="online.asp" style=cursor:hand><img src=pic/topic.gif>  在线用户</div>
	  <div class=menuitems url="test.asp" style=cursor:hand><img border="0" src="pic/quit.gif";>  开心词典</div>  
  <table cellspacing=0 cellpadding=0 width="100%" bgcolor=<%=Tablefontcolor%> border=0>  
    <tbody>   
    <tr>   
      <td></td>  
    </tr>  
    </tbody>   
  </table>  
  <div class=menuitems url="MYMODIFY.ASP" style=cursor:hand><a href=../toplist.asp?orders=2><img src=pic/change.gif border="0"></a>  修改资料</div>  
  <div class=menuitems url="favlist.asp" style=cursor:hand><img border="0" src="pic/fav_add1.gif";>  我的收藏</div>  
    
  <table cellspacing=0 cellpadding=0 width="100%" bgcolor=<%=Tablefontcolor%> border=0>  
    <tbody>   
    <tr>   
      <td></td>  
    </tr>  
    </tbody>   
  </table>  
<div> 
<table bgcolor="<%=aTablebodycolor%>" width=100%><tr><td align=center><a href="javascript:this.location.reload()"><img border="0" src="pic/refresh_1.gif";></a></td></tr></table></div>  
</div>  
<script>  
if (document.all&&window.print){  
if (menuskin==0)  
ie5menu.className="skin0"  
else  
ie5menu.className="skin1"  
document.oncontextmenu=showmenuie5  
document.body.onclick=hidemenuie5  
}  
</script>  
-->
 