<!--#include file=grade.asp-->
<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>
 
<%
sub nav()
	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 oncontextmenu=self.event.returnValue=false "&Forumbody&">"

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 >"&_
			"<tr bgcolor="& Tabletitlecolor &">"&_
			"<td valign=middle ><FONT COLOR="& TableFontcolor &"> " 
			
 end sub
sub headline(files)
	response.write "<TABLE border=0 width=""95%"" align=center><TBODY><TR>"&_
			"<TD vAlign=top width=""30%""><a href="&ForumUrl&"><img border=0 src="&Forumlogo&"></TD>"&_
			"<TD valign=middle align=top><font color="&BodyFontColor&"> &nbsp;&nbsp;<img src="&picurl&P_folder&" border=0>&nbsp;&nbsp;<a href=index.asp>"&ForumName&"</a><br>"
	if instr(request.ServerVariables("PATH_INFO"),"dispbbs")>0 then
	backpage="£ <a href=list.asp?boardid="&boardid&"&page="&request("Page")&">[·µ»Ø]</a>"
	end if
	Select Case files
	case 1
	response.write "&nbsp;&nbsp;<img src="&picurl&"bar.gif border=0 width=15 height=15><img src="&picurl&P_ofolder&" border=0>&nbsp;&nbsp;"&stats&""
	case 2
	response.write "&nbsp;&nbsp;<img src="&picurl&"bar.gif border=0 width=15 height=15><img src="&picurl&P_folder&" border=0>&nbsp;&nbsp;"&_
			"<a href=list.asp?boardid="&boardid&">"&boardtype&"</a>"&backpage&""&_ 
			"<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<img src="&picurl&"bar.gif border=0 width=15 height=15><img src="&picurl&P_ofolder&" border=0>&nbsp;&nbsp;"&htmlencode(replace(stats,boardtype,""))&""
	end select
	response.write "<a name=top></a></font></TD></TR></TBODY></TABLE><br>"
end sub
%>