<!--#INCLUDE FILE="conn.asp" -->
<!--#INCLUDE FILE="Class_Checkuser.asp" -->
<!--#INCLUDE FILE="Class_Top.asp" -->
<!--#INCLUDE FILE="inc/Main_Function.asp" -->
<%
Dim Locat,Act
Locat="首页"
Call HomeTop()%>
<%
Sub HomeTop()
Call pagehead()%>
	<table width=770 align=center border=0 bgcolor=#ffffff cellspacing=0 cellpadding=0>
	<tr>
		<td align=center>
		<table align=center width=734 cellspacing=0 cellpadding=0><tr>
          
        <td> 
          <!-- content start -->
          <TABLE width=770 height=125 border=0 align=center cellPadding=0 cellSpacing=0>
  <TBODY>
  <TR>
      <TD width="776" height="224" background="images/main/top_01.jpg"><table width="100%" height="224" border="0" cellpadding="0" cellspacing="0">
                    <tr>
                      <td height="180"><OBJECT classid=clsid:D27CDB6E-AE6D-11cf-96B8-444553540000 
      codeBase=http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,0,0 
      height=180 width=500>
                          <PARAM NAME="movie" VALUE="images/main/top.swf"><PARAM NAME="quality" VALUE="high"><PARAM NAME="wmode" VALUE="transparent">
                                      <embed src="images/main/top.swf" 
      quality=high 
      pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" 
      type="application/x-shockwave-flash" width="500" height="180">        
      </embed></OBJECT></td>
                    </tr>
                    <tr>
                      <td vAlign=bottom align=right> 
                              <TABLE cellSpacing=0 cellPadding=0 width=600 border=0>
                    <TBODY>
                    <TR align=middle>
                      <TD align=right width=0>
                        <TABLE class=tf cellSpacing=0 cellPadding=0 width=600
                        align=right border=0>
                          <TBODY>
                          <TR align=right height=20>
                            <TD width="10%"><A href="main.asp"><font color="#FF0000">返回首页</font></A></TD>
							<TD width="10%"><A href="Class_SharePhoto.asp"><font color="#FF0000">公共相册</font></A></TD>
							<TD width="10%"><A href="Diary_index.asp"><font color="#FF0000">心情日记</font></A></TD>
							<TD width="10%"><A href="play.asp"><font color="#FF0000">风铃赌场</font></A></TD>
							<TD width="10%"><A href="star.asp"><font color="#FF0000">缘分星座</font></A></TD> 
							<TD width="10%"><A href="n_url.asp"><font color="#FF0000">快乐网签</font></A></TD>          
							<TD width="10%"><A href="Class_onlineuser.asp"><font color="#FF0000">在线用户</font></A></TD>          
							<TD width="10%"><A href="bbs_index.asp"><font color="#FF0000">风铃论坛</font></A></TD>
							<TD width="10%"><A href="Class_Schoollist.asp"><FONT color=red>学校列表</FONT></A></TD>
                                    </TR>
                                  </TBODY></TABLE></TD>
                      <TD width=5></TD></TR></TBODY></TABLE></td>
                    </tr>
                  </table> </TD>
    </TR></TBODY></TABLE></TD>
            </TR>
            <TR> 
              <TD bgcolor="#FFFFFF"><%Call navbar(0)%></TD>
            </TR>
          </TBODY>
        </TABLE>
        <%response.flush
End Sub
%>
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0>
  <TBODY>
  <TR>
    <TD vAlign=top width=186>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD><IMG height=53 src="images/main/login_01.jpg" 
width=186></TD></TR>
        <TR>
          <TD vAlign=top background=images/main/login_02.jpg height=124>
           <%if membername="" then%>
            <TABLE cellSpacing=0 cellPadding=1 width="100%" align=center 
            border=0>
              <FORM style="MARGIN: 0px" method="POST" action="Class_Login.asp" name="Login">
                  <input type=hidden name=action value=CheckLogin>
              <TBODY>
              <TR>
                <TD align=right height=22>
                  <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                    <TBODY>
                    <TR align=middle>
                      <TD width="5%">&nbsp;</TD>
                      <TD width="95%">
                        <TABLE border=0>
                          <TBODY>
                          <TR>
                            <TD width=47 height=30>用 户：</TD>
                            <TD width=112 align="left"><INPUT 
                              name=username size=12  maxLength=12></TD></TR>
                          <TR>
                            <TD>密 码：</TD>
                            <TD align="left"><INPUT  type=password maxLength=16 
                              size=12 name=password></TD></TR>
                          <TR>
                            <TD align=middle>设 置：</TD>
                            <TD align="left"><SELECT name=CookieDate>
                              <OPTION 
                                value=0 selected>-=不保存=-</OPTION>
                              <OPTION 
                                value=1>保存一天</OPTION>
                              <OPTION 
                                value=2>保存一月</OPTION>
                              <OPTION 
                                value=3>保存一年</OPTION>
                            </SELECT>
                            </TD>
                          </TR></TBODY></TABLE></TD></TR>
                    <TR>
                      <TD align=middle colSpan=2>
                        <TABLE width="96%" height=47 border=0>
                          <TBODY>
                          <TR>
                           <TD width="53" height="43">
							<input type="image" src="images/main/button_denglu.gif" width="53" height="21" border="0" style="BORDER-RIGHT: 0px solid; BORDER-TOP: 0px solid;  BORDER-LEFT: 0px solid; BORDER-BOTTOM: 0px solid;"></TD>
                            <TD width="53"><a href="Class_Register.asp"><img src="images/main/button_zhuce.gif" width="53" height="21" border="0"></a></TD>
                                            <TD width="48"><a 
                              href="Class_GetPasswd.asp">忘记密码</a></TD>
                          </TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></FORM>
                  </TABLE><%else
				  response.write"<TABLE width=""90%"" cellSpacing=0 cellPadding=0 align=center height=110>"&_
                "<tr><td align=center valign=top height=20>"
sql="select visitcount,point from student where userid='"&membername&"'"
Set Rs=conn.execute(sql)		  
Response.Write "<font color=brow>"&membername&"</font>，这是您第<font color=brow>"&Rs(0)&"</font>次访问校友录，您目前的积分是<font color=brow>"&Rs(1)&"</font>分"			  
response.write"</td></tr><tr valign=top><TD bgColor=#6595d6 height=1></TD></tr>"	  
sql="Select J.classid,J.isauditing,C.classname from joinclass J inner join Class C on C.classid=J.classid where J.userid='"&membername&"' order by J.isauditing desc"

Set Rs=conn.execute(sql)
if Rs.eof and Rs.bof Then
if session("joinclassusername")<>membername then
session("joinclassusername")=membername
Response.Write("<script language=JavaScript>alert('您还没有加入学校！请先加入学校，否则系统将自动删除帐号！');document.location.href='Class_RegClass.asp';</script>")
end if
Response.Write "<tr><td height=50 align=center><font color=#FF0000><strong><a href=Class_RegClass.asp>您还没有注册学校！<br>请点下面按钮注册学校！</a></strong></font></td></tr>"
Else
	bisauditing=False
	do until Rs.eof
		if bisauditing=False and Rs(1)=1 Then 
			Response.Write "<tr><td height=10><table align=center width=""100%""><tr><td width=1 bgcolor=""green""></td></tr></table></td></tr>"
			bisauditing=True
		End if
		if Rs(1)=1 Then
			Response.Write "<tr><td height=18><img src=images/auditing.gif width=13 hspace=1 align=absmiddle alt=你尚未正式加入这个学校，还处于审核状态>"
			Response.Write "<a href=Class_RegClass.asp?action=exitpass&classid="&Rs(0)&" title=我要退出审核状态 onclick=""javascript:if(confirm('你确定要退出此学校管理员的审核吗?')){;return true;}else{return false;}"">"&htmlencode(Rs(2))&"</a></td></tr>"
		Else
			Response.Write "<tr><td height=18><a href=Class_index.asp?ClassID="&Rs(0)&" title=立刻进入该学校页面><img src=images/go.gif width=13 hspace=1 align=absmiddle border=0>"&htmlencode(Rs(2))&"</a></td></tr>"
		End if
		Rs.movenext
	loop
End if

Response.Write "<tr><td align=right valign=bottom><input type=button value=注册学校 onclick=""location.href='Class_RegClass.asp'"" title=注册我的学校 class=button></td></tr></table>"
End if
'''''''''''
%>
          </TD></TR></TBODY></TABLE>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD><IMG height=32 src="images/main/pic_bbsgg.jpg" 
        width=186></TD></TR></TBODY></TABLE>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD background=images/main/pic_bbsgg_bg.jpg>
      &nbsp;&nbsp;&nbsp;注册人数：<strong><font color="#FF0000"><%=UserNum%></font></strong></li><BR>
	  &nbsp;&nbsp;&nbsp;注册学校：<strong><font color="#FF0000"><%=ClassNum%></font></strong><BR>
	  &nbsp;&nbsp;&nbsp;相片总数：<strong><font color="#FF0000"><%=photoNum%></font></strong><BR>
	  &nbsp;&nbsp;&nbsp;留言总数：<strong><font color="#FF0000"><%=liuyanNum%></font></strong><BR>
	  &nbsp;&nbsp;&nbsp;本月相片：<strong><font color="#FF0000"><%=munthphotoNum%></font></strong><BR>
	  &nbsp;&nbsp;&nbsp;在线人数：<strong><font color="#FF0000"><%=OnlineUsers()%></font></strong><BR>
	  &nbsp;&nbsp;&nbsp;<%call txlcount()%></TD></TR>
        <TR>
          <TD><IMG height=10 src="images/main/pic_bbsgg_b.jpg" 
        width=186></TD></TR></TBODY></TABLE>
		<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD><IMG height=22 src="images/main/huodong_01.jpg" 
        width=186></TD></TR></TBODY></TABLE>
		<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD><IMG height=38 src="images/main/huodong_02.jpg" 
        width=186></TD></TR></TBODY></TABLE>
		<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD vAlign=top background=images/main/huodong_03.jpg height=111 align="center">
            <TABLE cellSpacing=0 cellPadding=5 width="98%" border=0>
              <TBODY>
              <TR>
                <TD align="left"><marquee scrollAmount=1 scrollDelay=100 direction=up height=90 onmouseover=stop() onmouseout=start()>
						  <%
	set rs=conn.execute ("select userid,birthday from student where month(birthday)=month(getdate())")
	if rs.eof then
		Response.write "&nbsp;&nbsp;本月没有同学过生日！^_^"
	else
		while not rs.eof
			Response.write "&nbsp;<a target=_blank href=""Class_Userinfo.asp?Name="&rs("userid")&""" title=""查看 "&rs("userid")&" 个人资料"">"&rs("userid")&"</a>&nbsp;&nbsp;<FONT color=#cc0000>"&rs("birthday")&"</font><br>"
			rs.movenext
		wend
	end if
	set rs=nothing
%></marquee></TD>
              </TR>
              </TBODY></TABLE></TD></TR></TBODY></TABLE>
		</TD>
    <TD vAlign=top>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD width=315><TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD><IMG height=71 src="images/main/jptj_t.jpg" 
                width=315></TD></TR>
              <TR>
                <TD vAlign=top background=images/main/jptj_bg.jpg 
                  height=148>
                  <TABLE width="90%" border=0 align="center" cellPadding=0 cellSpacing=0>
                    <TBODY>
                    <TR>
                      <TD height=90 valign="top">
<%
insql="select * from gonggao where passed=1 order by id desc "
Set inrs=conn.execute(insql)
if inrs.eof then
response.write"暂时没有公告……"
else
response.write"<P align=center><marquee scrollAmount=1 scrollDelay=0 direction=up height=90 onmouseover=stop() onmouseout=start()>"
response.write"<table width=100% border=""0"" cellspacing=""0"" cellpadding=""0"">"
i=1
do until inrs.eof
if i mod 2=0 then
Response.Write "<TR><TD bgColor=#6595d6 height=1></TD></TR>"
end if
response.write"<tr><td><IMG src=""images/main/none.gif"" border=0><IMG src=""images/main/title.gif"" border=0>&nbsp;<b>"&htmlencode(inrs("title"))&"</b></td></tr>"
Response.Write "<tr><td style=""word-break: break-all;"">"&inrs("content")&"</td></tr>"
Response.Write "<tr><td align=right><font color=#999999><br>发布者："&inrs("name")&"<br>"&inrs("time")&"</font></td></tr>"
inrs.movenext
i=i+1
loop
response.write"</table></marquee></P>"
end if
set inrs=nothing
%></TD>
                    </TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                    <TBODY>
                    <TR>
                      <TD height=6></TD></TR></TBODY></TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=265 align=left
                  border=0>
                    <TBODY>
                    <TR><td width="15"></td>
                      <TD width=250 background=images/main/line_bg.jpg 
                    height=1></TD></TR></TBODY></TABLE>
                  <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                    <TBODY>
                    <TR>
                      <TD height=6></TD></TR></TBODY></TABLE>
					  <TABLE cellSpacing=0 cellPadding=0 width="88%" border=0>
                    <TBODY>
                    <TR>
                      <TD height=34 align="center"><TABLE cellSpacing=0 cellPadding=0 width="89%" border=0>
                    <TBODY>
                    <TR>
                      <TD height=34><b><font color=red>本校友录售价:200元(无技术支持)<br>
                        250元(半年技术支持),联系QQ：181046951</font></b></TD>
                    </TR></TBODY></TABLE>
                  </TD>
              </TR></TBODY></TABLE></TD>
                    </TR></TBODY></TABLE></TD>
          <TD vAlign=top>
            <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD><IMG height=45 src="images/main/tietu_t.jpg" 
                width=259></TD></TR></TBODY></TABLE>
            <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD><IMG height=149 src="images/main/tietu_l.jpg" 
                width=31></TD>
                <TD vAlign=top width="100%">
                  <TABLE cellSpacing=2 cellPadding=0 width="100%" border=0>
                    <TBODY>
                    <TR>
                      <TD align="center"><DIV id=icefable1 align=center width="206" height="140">
            <TABLE cellSpacing=0 cellPadding=0 width="98%" border=0>
              <TBODY>
              <TR>
                <TD align=center valign="top">
				<table width="100%" border="0" cellspacing="0" cellpadding="0">
				<%dim rstt,sqltt
set rstt=server.createobject("adodb.recordset")
sqltt="select * from photo where passed=1 and share=0 order by picid desc"
rstt.open sqltt,conn,1,1
total=0
if rstt.bof and rstt.eof then
response.write "<tr><td><IMG height=100 src=""images/nopic.gif"" width=100 border=0></td></tr><tr><td height=50 align=center><font color=""#666666"">无任何学校相片</font></td></tr>"
else
do until total>=3 or rstt.eof
response.write"<tr><td><a href=javascript:ShowPic('"&rstt("ClassID")&"','"&rstt("picid")&"')><img src="&rstt("file")&rstt("smallfilename")&" border=0 width=100 height=100 alt="&rstt("title")&" style=""FILTER: alpha(opacity=45)"" onMouseOver=nereidFade(this,100,0,5)  onMouseOut=nereidFade(this,45,50,5)></a></td></tr><tr><td height=1></td></tr><tr><td height=50 align=left><font color=""#666666"">类型：学校新相<br>上传："&rstt("name")&"<br>时间："&formatdatetime(rstt("uptime"),2)&"</font></td></tr>"
total=total+1
rstt.movenext
loop
end if
rstt.close
set rstt=nothing
%>
                </table></TD><TD>&nbsp;</TD>
                <TD align=center valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<%
set rstt=server.createobject("adodb.recordset")
sqltt="select * from photo where passed=1 and share=1 order by picid desc"
rstt.open sqltt,conn,1,1
total=0
if rstt.bof and rstt.eof then
response.write "<tr><td><IMG height=100 src=""images/nopic.gif"" width=100 border=0></td></tr><tr><td height=50 align=center><font color=""#666666"">无任何共享相片</font></td></tr>"
else
do until total>=3 or rstt.eof
response.write"<tr><td><a href=javascript:ShowPic('"&rstt("ClassID")&"','"&rstt("picid")&"')><img src="&rstt("file")&rstt("smallfilename")&" border=0 width=100 height=100 alt="&rstt("title")&" style=""FILTER: alpha(opacity=45)"" onMouseOver=nereidFade(this,100,0,5)  onMouseOut=nereidFade(this,45,50,5)></a></td></tr><tr><td height=1></td></tr><tr><td height=50 align=left><font color=""#666666"">类型：共享新相<br>上传："&rstt("name")&"<br>时间："&formatdatetime(rstt("uptime"),2)&"</font></td></tr>"
total=total+1
rstt.movenext
loop
end if
rstt.close
set rstt=nothing
%>
                </table></TD>
              </TR></TBODY></TABLE>
                      </DIV></TD>
                    </TR></TBODY></TABLE></TD>
                <TD><IMG height=149 src="images/main/tietu_r.jpg" 
                width=16></TD></TR></TBODY></TABLE>
            <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD><IMG src="images/main/tietu_bg.jpg" 
                width=259></TD>
              </TR></TBODY></TABLE>
            </TD>
        </TR></TBODY></TABLE>
      <table width="98%" border="0" align="right" cellpadding="0" cellspacing="0">
        <tr>
          <td><TABLE cellSpacing=0 cellPadding=0 width=569 border=0>
        <TBODY>
        <TR>
          <TD><IMG height=36 src="images/main/jchg_01.jpg" width=162></TD>
          <TD><IMG height=36 src="images/main/jchg_02.jpg" 
        width=407></TD></TR></TBODY></TABLE>
		<TABLE cellSpacing=0 cellPadding=0 width=569 border=0 height="200">
        <TBODY>
        <TR>
          <TD background="images/main/jchg_03.jpg" width=20><IMG src="images/main/jchg_03.jpg" width=20></TD>
          <TD width="100%" background=images/main/jchg_05.jpg valign="top">
            <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD align=left><%
Dim classRs
Set classRs=conn.execute("select top 8 T.userid,T.title,T.postid,T.posttime,T.classid,T.replys,T.mood,C.classname from classtopic T inner join class C on T.classid=C.classid order by T.posttime desc")
do until classRs.eof
	Response.Write "<img src=images/mood/"&classRs(6)&".gif border=0><a href=Class_bbs_ShowTopic.asp?classid="&classRs(4)&"&TopicID="&classRs(2)&" title="""&classRs(1)&""" target=_blank>"&htmlencode(left(classRs(1),16))&"</a>"
	if classRs(5)=0 and datediff("d",classRs(3),date())<5 then
	Response.Write "<IMG src=images/newer.gif hspace=3 align=absmiddle>"
	end if
	if membername<>"" Then
		Response.Write "&nbsp;&nbsp;<a href=Class_index.asp?Classid="&classRs(4)&" target=_blank title=浏览此校>"&htmlencode(classRs(7))&"</a>&nbsp;&nbsp;<a href=""Class_Userinfo.asp?Name="&classRs(0)&"""  title=""查看"&classRs(0)&"个人资料"" target=_blank>"&classRs(0)&"</a>"
	Else
		Response.Write "&nbsp;&nbsp;<a href=Class_index.asp?Classid="&classRs(4)&" target=_blank title=浏览此校>"&htmlencode(classRs(7))&"</a>&nbsp;&nbsp;"&classRs(0)&""
	End if
	Response.Write "&nbsp;&nbsp;<font color=""#999999"">"&classRs(3)&"</font><br>"
	classRs.movenext
loop
set classRs=nothing
%></TD>
                </TR></TBODY></TABLE></TD>
          <TD background="images/main/jchg_04.jpg" width="16"><IMG src="images/main/jchg_04.jpg" 
        width=16></TD></TR>
        <TR>
          <TD height="10"><IMG src="images/main/jchg_03_1.jpg" 
        width=20></TD>
          <TD background="images/main/jchg_05_1.jpg"></TD>
          <TD height="10"><IMG src="images/main/jchg_04_1.jpg" 
        width=16></TD>
        </TR>
        </TBODY></TABLE>
		</td>
        </tr>
		<tr><td height="50"><TABLE cellSpacing=0 cellPadding=0 width=569 border=0>
        <TBODY>
        <TR>
          <TD><DIV style="BORDER-RIGHT: #b3bcd6 1px solid; PADDING-RIGHT: 1px; BORDER-TOP: #b3bcd6 1px solid; PADDING-LEFT: 1px; BACKGROUND: url(images/main/sb.gif) repeat-x 0px 0px; PADDING-BOTTOM: 1px; BORDER-LEFT: #b3bcd6 1px solid; PADDING-TOP: 1px; BORDER-BOTTOM: #b3bcd6 1px solid; HEIGHT: 30px">
		  <table width="100%" border="0" cellspacing="0" cellpadding="0">
		  <form action="Class_Search.asp" method="post"><input type=hidden name=Action value=search>
            <tr>
              <td width="8%"><IMG height=28 src="images/main/Search.gif" width=29></td>
              <td width="16%" style="PADDING-RIGHT: 4px; PADDING-LEFT: 3px; FONT-WEIGHT: bold; FLOAT: left; PADDING-BOTTOM: 0px; COLOR: #ff6600; PADDING-TOP: 3px; POSITION: relative">&nbsp;同学搜索</td>
              <td width="13%">真实姓名： </td>
              <td width="41%"><input name=realname type=text size=25 maxlength="20"></td>
              <td width="22%">&nbsp;
                <input name="image" type=image style="BORDER-RIGHT: 0px solid; BORDER-TOP: 0px solid;  BORDER-LEFT: 0px solid; BORDER-BOTTOM: 0px solid;" src=images/search.gif alt="立刻搜索"></td>
            </tr>
			</FORM>
          </table>
          </DIV></TD>
        </TR></TBODY></TABLE></td></tr>
      </table></TD></TR></TBODY></TABLE>
<script language="JavaScript">
<!--
nereidFadeObjects = new Object();
nereidFadeTimers = new Object();
function nereidFade(object, destOp, rate, delta){
if (!document.all)
return
    if (object != "[object]"){  //do this so I can take a string too
        setTimeout("nereidFade("+object+","+destOp+","+rate+","+delta+")",0);
        return;
    }
    clearTimeout(nereidFadeTimers[object.sourceIndex]);
    diff = destOp-object.filters.alpha.opacity;
    direction = 1;
    if (object.filters.alpha.opacity > destOp){
        direction = -1;
    }
    delta=Math.min(direction*diff,delta);
    object.filters.alpha.opacity+=direction*delta;
    if (object.filters.alpha.opacity != destOp){
        nereidFadeObjects[object.sourceIndex]=object;
        nereidFadeTimers[object.sourceIndex]=setTimeout("nereidFade(nereidFadeObjects["+object.sourceIndex+"],"+destOp+","+rate+","+delta+")",rate);
    }
}
function ShowPic(classid,id) {

  var winClose = 0;
  if (window.viewimage != null && ! viewimage.closed)
  {
    viewimage.close();
    winClose = 1;
  }

  if (window.viewimage == null || viewimage.closed || winClose)
  {
	url="Class_Album.asp?CLassID="+classid+"&Action=ShowPhoto&PhotoID="+id;
    var w_opt="width=800,height=600,resizable=0,scrollbars=1,menubar=0,toolbar=1,status=1";
    viewimage=window.open(url,"Preview",w_opt);

    if (window.viewimage != null)
      viewimage.focus();
  }

}

function ShowsharePic(id) {

  var winClose = 0;
  if (window.viewimage != null && ! viewimage.closed)
  {
    viewimage.close();
    winClose = 1;
  }

  if (window.viewimage == null || viewimage.closed || winClose)
  {
	url="Class_SharePhoto.asp?Action=ShowPhoto&PhotoID="+id;
    var w_opt="width=800,height=600,resizable=0,scrollbars=1,menubar=0,toolbar=1,status=1";
    viewimage=window.open(url,"Preview",w_opt);

    if (window.viewimage != null)
      viewimage.focus();
  }

}
function show_diary(d)
{
window.open("Diary_show.asp?a_id="+d,"show_diary","scrollbars=yes,Width=500pt,Height=450pt,left=70pt,top=70pt,toolbar=no,menubar=no");
}
//-->
</script>
<SCRIPT language=JavaScript>
<!--
 marqueesHeight=145;
  stopscroll=false;
  with(icefable1){
   style.width=206;
   style.height=marqueesHeight;
   style.overflowX="visible";
   style.overflowY="hidden";
   noWrap=true;
   onmouseover=new Function("stopscroll=true");
   onmouseout=new Function("stopscroll=false");
  }
  preTop=0; currentTop=152; stoptime=0;
  icefable1.innerHTML+=icefable1.innerHTML;

function init_srolltext(){
  icefable1.scrollTop=0;
  setInterval("scrollUp()",2);
}init_srolltext();

function scrollUp(){
  if(stopscroll==true) return;
  currentTop+=1;
  if(currentTop==153)
  {
   stoptime+=1;
   currentTop-=1;
   if(stoptime==200)
   {
    currentTop=0;
    stoptime=0;
   }
  }
  else {
   preTop=icefable1.scrollTop;
   icefable1.scrollTop+=1;
   if(preTop==icefable1.scrollTop){
     icefable1.scrollTop=152;
     icefable1.scrollTop+=1;

   }
  }
}
//-->
</SCRIPT>
<%response.flush%>
<table width="760" height="264" border="0" cellpadding="0" cellspacing="0" bgcolor="#ffffef">
                        <tr> 
                          <td width="383" rowspan="2"><img name="n123_r9_c3" src="images/main/123_r9_c3.gif" width="375" height="269" border="0" usemap="#MapMapMap"> 
                            <map name="MapMapMap">
                              <area shape="circle" coords="93,98,15" href="Class_local.asp?provinceid=32">
                              <area shape="rect" coords="313,35,352,55" href="Class_local.asp?provinceid=17">
                              <area shape="circle" coords="329,75,11" href="Class_local.asp?provinceid=08">
                              <area shape="circle" coords="313,96,11" href="Class_local.asp?provinceid=07">
                              <area shape="rect" coords="259,94,292,110" href="Class_local.asp?provinceid=01">
                              <area shape="rect" coords="295,110,323,124" href="Class_local.asp?provinceid=03">
                              <area shape="rect" coords="277,129,305,142" href="Class_local.asp?provinceid=14">
                              <area shape="rect" coords="258,113,290,125" href="Class_local.asp?provinceid=05">
                              <area shape="rect" coords="193,99,244,118" href="Class_local.asp?provinceid=16">
                              <area shape="circle" coords="166,110,10" href="Class_local.asp?provinceid=29">
                              <area shape="circle" coords="100,170,15" href="Class_local.asp?provinceid=27">
                              <area shape="rect" coords="240,128,267,143" href="Class_local.asp?provinceid=06">
                              <area shape="rect" coords="288,145,319,160" href="Class_local.asp?provinceid=09">
                              <area shape="circle" coords="330,171,9" href="Class_local.asp?provinceid=02">
                              <area shape="rect" coords="308,182,335,197" href="Class_local.asp?provinceid=10">
                              <area shape="circle" coords="339,229,13" href="Class_local.asp?provinceid=24">
                              <area shape="rect" coords="287,231,323,249" href="Class_local.asp?provinceid=33">
                              <area shape="rect" coords="284,202,316,216" href="Class_local.asp?provinceid=12">
                              <area shape="rect" coords="255,241,284,259" href="Class_local.asp?provinceid=34">
                              <area shape="circle" coords="224,257,14" href="Class_local.asp?provinceid=22">
                              <area shape="circle" coords="188,226,12" href="Class_local.asp?provinceid=26">
                              <area shape="rect" coords="214,221,248,236" href="Class_local.asp?provinceid=21">
                              <area shape="rect" coords="255,222,286,237" href="Class_local.asp?provinceid=20">
                              <area shape="rect" coords="240,202,277,217" href="Class_local.asp?provinceid=19">
                              <area shape="rect" coords="205,203,237,216" href="Class_local.asp?provinceid=25">
                              <area shape="rect" coords="202,182,237,201" href="Class_local.asp?provinceid=04">
                              <area shape="circle" coords="189,172,14" href="Class_local.asp?provinceid=23">
                              <area shape="circle" coords="158,139,15" href="Class_local.asp?provinceid=30">
                              <area shape="circle" coords="202,138,11" href="Class_local.asp?provinceid=31">
                              <area shape="rect" coords="216,148,248,167" href="Class_local.asp?provinceid=28">
                              <area shape="rect" coords="251,145,281,163" href="Class_local.asp?provinceid=15">
                              <area shape="rect" coords="242,167,275,182" href="Class_local.asp?provinceid=18">
                              <area shape="rect" coords="280,166,305,180" href="Class_local.asp?provinceid=11">
                              <area shape="rect" coords="270,183,302,200" href="Class_local.asp?provinceid=13">
                          </map></td>
                          <td height="159"><img src="images/main/123_r10_c3.gif" width="375" height="118"></td>
                        </tr>
                        <tr> 
                          <td height="105" valign="bottom"><table width="354" border="0" align="center" cellpadding="0" cellspacing="0">
                              <tr> 
                                <td><form action="Class_Schoollist.asp" method="POST" name="seachform" target="_blank" >
                                    <%set rss=server.createobject("adodb.recordset")%>
                                    <TABLE width=98% align=center>
                                      <TR> 
                                        <TD align=left><span style="FONT-SIZE: 10pt">学校类型： 
                                          <select name="schooltypeid">
                                            <option value="">请选择</option>
              <%sql1="select * from schooltype order by schooltypeid"
              rss.open sql1,conn
              while not rss.eof
              %>
              <option value=<%=rss("schooltypeid")%>><%=rss("schooltypename")%></option>
               <%
               rss.movenext
               wend
               rss.close
              %>
                                          </select>
                                          &nbsp;&nbsp;学校所在地区： 
                                          <select name="provinceid">
                                            <option value="0">请选择</option>
             <%
             sql2="select * from province order by seed "
             rss.open sql2,conn
             while not rss.eof
              %>
               <option value="<%=rss("provinceid")%>"><%=rss("provincename")%></option>
               <%
               rss.movenext
               wend
               rss.close
			   set rss=nothing
              %>
                                          </select>
                                          <br>
                                          <br>
                                          请输入学校关键字： 
                                          <input name="schoolname" type="text" id="schoolname" size="15">
                                          </span> <input type="submit" value="查找学校" class=button></TD>
                                      </TR>
                                  </TABLE>
                                  </form></td>
                              </tr>
                              <tr> 
                                <td height="13">&nbsp;</td>
                              </tr>
                          </table></td>
                        </tr>
          </table>
<table width="760" border="0" cellspacing="0" cellpadding="0">
<TBODY>
  <tr>
    <td width="194" valign="top"><table border="0"><tr><td height="1"></td></tr></table><table width=186 border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td height="23" background="images/main/qq_02.jpg">&nbsp;&nbsp;<span style="font-weight: bold">客串文学</span></td>
      </tr>
    </table>
	<table id="Table_01" width="186" height="132" border="0" cellpadding="0" cellspacing="0">
	<tr>
		<td height="6">
			<img src="images/main/qq_table_01.gif" width="186" height="6" alt=""></td>
	</tr>
	<tr>
		<td background="images/main/qq_table_03.gif" height="190" valign="top">
		<table width="98%" border="0" cellspacing="0" cellpadding="0" align="center">
          <tr>
            <td><script src=http://www.fengling.cc/wenxue/news2.asp?words=8></script></td>
          </tr>
        </table>
		</td>
	</tr>
	
	<tr>
		<td height="7">
			<img src="images/main/qq_table_05.gif" width="186" height="7" alt=""></td>
	</tr>
</table>
	</td>
    <td width="569"><table id="Table_01" width="566" height="229" border="0" cellpadding="0" cellspacing="0">
	<tr>
		<td colspan="3">
			<img src="images/main/bbs_table_01.gif" width="273" height="8" alt=""></td>
		<td colspan="3" rowspan="3">
			<img src="images/main/bbs_table_02.gif" width="292" height="39" alt=""></td>
		<td>
			<img src="images/main/spacer.gif" width="1" height="8" alt=""></td>
	</tr>
	<tr>
		<td rowspan="4">
			<img src="images/main/bbs_table_03.gif" width="43" height="34" alt=""></td>
		<td bgcolor="#1f61bc" align="center"><span style="color: #FFFFFF; font-weight: bold">最新帖子</span></td>
		<td rowspan="4">
			<img src="images/main/bbs_table_05.gif" width="157" height="34" alt=""></td>
		<td>
			<img src="images/main/spacer.gif" width="1" height="20" alt=""></td>
	</tr>
	<tr>
		<td rowspan="3">
			<img src="images/main/bbs_table_06.gif" width="73" height="14" alt=""></td>
		<td>
			<img src="images/main/spacer.gif" width="1" height="11" alt=""></td>
	</tr>
	<tr>
		<td>
			<img src="images/main/bbs_table_07.gif" width="39" height="2" alt=""></td>
		<td rowspan="3" bgcolor="#1f61bc" align="center"><span style="color: #FFFFFF; font-weight: bold">热门帖子</span></td>
		<td>
			<img src="images/main/bbs_table_09.gif" width="188" height="2" alt=""></td>
		<td>
			<img src="images/main/spacer.gif" width="1" height="2" alt=""></td>
	</tr>
	<tr>
		<td rowspan="3">
			<img src="images/main/bbs_table_10.gif" width="39" height="20" alt=""></td>
		<td rowspan="3">
			<img src="images/main/bbs_table_04.gif" width="188" height="20" alt=""></td>
		<td>
			<img src="images/main/spacer.gif" width="1" height="1" alt=""></td>
	</tr>
	<tr>
		<td colspan="3" rowspan="7" background="images/main/bbs_table_11.gif" valign="top"><table width="95%" height="50" border="0" align="right" cellpadding="0" cellspacing="0">
          <tr>
            <td><%
			dim i
			i=0
Set classRs=conn.execute("select top 7 userid,title,postid,posttime,boardid,replys,mood from topic order by posttime desc")
do until classRs.eof or i>=7
	Response.Write "<img src=images/mood/"&classRs(6)&".gif border=0><a href=Bbs_ViewThread.asp?boardid="&classRs(4)&"&TopicID="&classRs(2)&" title="""&classRs(1)&""" target=_blank>"&htmlencode(left(classRs(1),14))&"</a>"
	if classRs(5)=0 and datediff("d",classRs(3),date())<5 then
	Response.Write "<IMG src=images/newer.gif hspace=3 align=absmiddle>"
	end if
	if membername<>"" Then
		Response.Write "&nbsp;&nbsp;<a href=""Class_Userinfo.asp?Name="&classRs(0)&"""  title=""查看"&classRs(0)&"个人资料"" target=_blank>"&classRs(0)&"</a>"
	Else
		Response.Write "&nbsp;&nbsp;"&classRs(0)&""
	End if
	Response.Write "<br>"
	classRs.movenext
	i=i+1
loop
set classRs=nothing
%></td>
          </tr>
        </table></td>
		<td>
			<img src="images/main/spacer.gif" width="1" height="15" alt=""></td>
	</tr>
	<tr>
		<td>
			<img src="images/main/bbs_table_08.gif" width="65" height="4" alt=""></td>
		<td>
			<img src="images/main/spacer.gif" width="1" height="4" alt=""></td>
	</tr>
	<tr>
		<td colspan="3" rowspan="5" background="images/main/bbs_table_12.gif" valign="top"><table width="94%" height="50" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td><%
			dim ii
			ii=0
Set classRs=conn.execute("select top 6 userid,title,postid,posttime,boardid,hits,mood from topic order by hits desc")
do until classRs.eof or ii>=6
	Response.Write "&nbsp;<img src=images/mood/"&classRs(6)&".gif border=0><a href=Bbs_ViewThread.asp?boardid="&classRs(4)&"&TopicID="&classRs(2)&" title="""&classRs(1)&""" target=_blank>"&htmlencode(left(classRs(1),14))&"</a>"
Response.Write "&nbsp;&nbsp;<font color=red>"&classRs(5)&"</font>"
	if membername<>"" Then
		Response.Write "&nbsp;<a href=""Class_Userinfo.asp?Name="&classRs(0)&"""  title=""查看"&classRs(0)&"个人资料"" target=_blank>"&classRs(0)&"</a>"
	Else
		Response.Write "&nbsp;"&classRs(0)&""
	End if
	Response.Write "<br>"
	classRs.movenext
	ii=ii+1
loop
set classRs=nothing
%></td>
          </tr>
        </table></td>
		<td>
			<img src="images/main/spacer.gif" width="1" height="27" alt=""></td>
	</tr>
	<tr>
		<td>
			<img src="images/main/spacer.gif" width="1" height="6" alt=""></td>
	</tr>
	<tr>
		<td>
			<img src="images/main/spacer.gif" width="1" height="3" alt=""></td>
	</tr>
	<tr>
		<td>
			<img src="images/main/spacer.gif" width="1" height="6" alt=""></td>
	</tr>
	<tr>
		<td height="106">
			<img src="images/main/spacer.gif" width="1" height="70" alt=""></td>
	</tr>
	<tr>
		<td colspan="3">
			<img src="images/main/bbs_table_19.gif" width="273" height="20" alt=""></td>
		<td colspan="3">
			<img src="images/main/bbs_table_20.gif" width="292" height="20" alt=""></td>
		<td>
			<img src="images/main/spacer.gif" width="1" height="20" alt=""></td>
	</tr>
</table></td>
  </tr>
  </TBODY>
</table>
<%response.flush%>
<TABLE cellSpacing=0 cellPadding=0 width=760 align=center border=0>
  <TBODY>
  <TR>
    <TD vAlign=top width=191><SCRIPT>
<!--
current=0;
        function secBoard(n)
        {
                for(i=1;i<2;i++)
                {
                        eval("document.getElementById('cl0"+i+"').className='s02'");
                }
        eval("document.getElementById('cl0"+n+"').className='s01'");
        eval("document.getElementById('secTable')");
        current=n;
        for(i=1;i<3;i++)
                eval("tbx0"+i+".style.display='none'");
        eval("tbx0"+n+".style.display='block'");


        }

        function changebg(n)
        {
        for(i=1;i<2;i++)
        {
                eval("document.getElementById('cl0"+i+"').className='s02'");
                }
        if (current!=n)
        {
                eval("document.getElementById('cl0"+n+"').className='s01'");
                }
        }

        function resetbg(obj,n)
        {
        if (current!=n)
                {
                eval("obj.className='s02'");
                }
        }

function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=2)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</SCRIPT>

      <TABLE id=tbx01 style="DISPLAY: block" cellSpacing=0 cellPadding=3 
      width="47%" border=0>
        <TBODY>
        <TR>
          <TD>
            <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD id=cl01 onclick=changebg(1);secBoard(1)><A 
                  onmouseover="MM_swapImage('Image2','','images/main/ftph_01.jpg',1)" 
                  style="CURSOR: hand" onmouseout=MM_swapImgRestore()><IMG 
                  height=30 src="images/main/ftph_01.jpg" width=92 
                  name=Image2></A></TD>
                <TD id=cl02 onclick=changebg(2);secBoard(2)><A 
                  onmouseover="MM_swapImage('Image3','','images/main/cfph_02.jpg',1)" 
                  style="CURSOR: hand" onmouseout=MM_swapImgRestore()><IMG 
                  height=30 src="images/main/cfph_01.jpg" width=98 
                  name=Image3></A></TD></TR></TBODY></TABLE>
            <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD vAlign=top align=middle 
                background=images/main/paihang_bg.jpg height=229>
                  <TABLE cellSpacing=0 cellPadding=3 width="90%" border=0>
                    <TBODY>
                    <TR>
                      <TD align=left height=6></TD></TR>
<%
Dim TII
insql="select top 10 userid,lastlogin from student order by lastlogin desc"
Set inrs=conn.execute(insql)
TII=1
do until inrs.eof
	Response.Write "<TR><TD align=left><IMG src=""images/main/no"&TII&".gif"" align=absMiddle>&nbsp;<a target=_blank href=""Class_Userinfo.asp?Name="&inRs(0)&""" title=""查看"&inrs(0)&"个人资料"">"&htmlencode(inrs(0))&"</a>"
	Response.Write "&nbsp;&nbsp;<FONT color=999999>"&formatdatetime(inrs(1),2)&"</FONT></TD></TR>"
	TII=TII+1
	inrs.movenext
loop
set inrs=nothing
%>
</TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
      <TABLE id=tbx02 style="DISPLAY: none" cellSpacing=0 cellPadding=3 
      width="90%" border=0>
        <TBODY>
        <TR>
          <TD>
            <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD id=cl01 onclick=changebg(1);secBoard(1)><A 
                  onmouseover="MM_swapImage('Image4','','images/main/ftph_01.jpg',1)" 
                  style="CURSOR: hand" onmouseout=MM_swapImgRestore()><IMG 
                  height=30 src="images/main/ftph_02.jpg" width=92 
                  name=Image4></A></TD>
                <TD id=cl02 onclick=changebg(2);secBoard(2)><A 
                  onmouseover="MM_swapImage('Image5','','images/main/cfph_02.jpg',1)" 
                  style="CURSOR: hand" onmouseout=MM_swapImgRestore()><IMG 
                  height=30 src="images/main/cfph_02.jpg" width=98 
                  name=Image5></A></TD></TR></TBODY></TABLE>
            <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD vAlign=top align=middle 
                background=images/main/paihang_bg.jpg height=229>
                  <TABLE cellSpacing=0 cellPadding=3 width="90%" border=0>
                    <TBODY>
                    <TR>
                      <TD align=left height=6></TD></TR>
<%
Dim TUrs,TUsql,TI
	TUsql="Select top 10 userid,point,lastlogin from student order by point desc,userid"
Set TUrs=conn.execute(TUsql)
TI=1
do until TUrs.eof
	Response.Write "<TR><TD align=left><IMG src=""images/main/no"&TI&".gif"" align=absMiddle>&nbsp;<a target=_blank href=""Class_Userinfo.asp?Name="&tuRs(0)&""" title=""查看"&TUrs(0)&"个人资料"">"&htmlencode(TUrs(0))&"</a>"
	Response.Write "&nbsp;&nbsp;(<FONT color=#cc0000>"&TUrs(1)&"</FONT>)"&_
	"</TD></TR>"
TI=TI+1
	TUrs.movenext
loop
set TUrs=nothing
%>
</TBODY></TABLE></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
			  <TABLE cellSpacing=0 cellPadding=0 width=194 border=0>
        <TBODY>
        <TR>
          <TD height=2></TD></TR></TBODY></TABLE>
		  <TABLE cellSpacing=0 cellPadding=0 width="97%" border=0>
        <TBODY>
        <TR>
          <TD style="BORDER-RIGHT: #c8c8c8 1px solid; BORDER-TOP: #c8c8c8 1px solid; BORDER-LEFT: #c8c8c8 1px solid; BORDER-BOTTOM: #c8c8c8 1px solid">
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD>
            <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD><IMG height=34 src="images/main/diaocha_01.jpg" 
                  width=188></TD>
              </TR></TBODY></TABLE>
            </TD></TR></TBODY></TABLE>
		  <TABLE cellSpacing=0 cellPadding=4 width="100%" border=0>
                    <TBODY>
                    <TR>
                      <TD align=middle><DIV align=center><script language="javascript" src="Class_votedy.asp"></script></DIV></TD>
            </TR></TABLE></TD></TR></TBODY></TABLE>
					<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0 align="right">
        <TBODY>
        <TR>
          <TD bgColor=#e4e4e4 height=3></TD></TR></TBODY></TABLE>
		 </TD>
    <TD vAlign=top align=right>
	<table id="Table_01" width="566" height="229" border="0" cellpadding="0" cellspacing="0">
	<tr>
		<td colspan="3">
			<img src="images/main/bbs_table_01.gif" width="273" height="8" alt=""></td>
		<td colspan="3" rowspan="3">
			<img src="images/main/bbs_table_02.gif" width="292" height="39" alt=""></td>
		<td>
			<img src="images/main/spacer.gif" width="1" height="8" alt=""></td>
	</tr>
	<tr>
		<td rowspan="4">
			<img src="images/main/bbs_table_03.gif" width="43" height="34" alt=""></td>
		<td bgcolor="#1f61bc" align="center"><span style="color: #FFFFFF; font-weight: bold">最新学校</span></td>
		<td rowspan="4">
			<img src="images/main/bbs_table_05.gif" width="157" height="34" alt=""></td>
		<td>
			<img src="images/main/spacer.gif" width="1" height="20" alt=""></td>
	</tr>
	<tr>
		<td rowspan="3">
			<img src="images/main/bbs_table_06.gif" width="73" height="14" alt=""></td>
		<td>
			<img src="images/main/spacer.gif" width="1" height="11" alt=""></td>
	</tr>
	<tr>
		<td>
			<img src="images/main/bbs_table_07.gif" width="39" height="2" alt=""></td>
		<td rowspan="3" bgcolor="#1f61bc" align="center"><span style="color: #FFFFFF; font-weight: bold">热门学校</span></td>
		<td>
			<img src="images/main/bbs_table_09.gif" width="188" height="2" alt=""></td>
		<td>
			<img src="images/main/spacer.gif" width="1" height="2" alt=""></td>
	</tr>
	<tr>
		<td rowspan="3">
			<img src="images/main/bbs_table_10.gif" width="39" height="20" alt=""></td>
		<td rowspan="3">
			<img src="images/main/bbs_table_04.gif" width="188" height="20" alt=""></td>
		<td>
			<img src="images/main/spacer.gif" width="1" height="1" alt=""></td>
	</tr>
	<tr>
		<td colspan="3" rowspan="7" background="images/main/bbs_table_11.gif" valign="top"><table width="95%" height="50" border="0" align="right" cellpadding="0" cellspacing="0">
          <tr>
            <td><%
Set tcRs=conn.execute("Select top 6 classid,classname,regdate from class order by classid desc")
	do until tcRs.eof
		Response.Write "&nbsp;<IMG src=""images/main/none.gif"" border=0><IMG src=""images/main/title.gif"" border=0>&nbsp;"&_
        "<a target=_blank href=Class_Index.asp?ClassID="&tcRs(0)&">"&htmlencode(tcRs(1))&"</a>&nbsp;&nbsp<font color=""#666666"">"&tcRs(2)&"</font><br>"
	tcRs.movenext
loop
set tcrs=nothing
%></td>
          </tr>
        </table></td>
		<td>
			<img src="images/main/spacer.gif" width="1" height="15" alt=""></td>
	</tr>
	<tr>
		<td>
			<img src="images/main/bbs_table_08.gif" width="65" height="4" alt=""></td>
		<td>
			<img src="images/main/spacer.gif" width="1" height="4" alt=""></td>
	</tr>
	<tr>
		<td colspan="3" rowspan="5" background="images/main/bbs_table_12.gif" valign="top"><table width="94%" height="50" border="0" align="center" cellpadding="0" cellspacing="0">
          <tr>
            <td><%dim si
Set tcRs=conn.execute("Select top 6 Classid,Classname,regdate,studcount from class order by studcount desc,classid")
si=0
do until tcRs.eof or si>=4
		Response.Write "&nbsp;<IMG src=""images/main/none.gif"" border=0><IMG src=""images/main/title.gif"" border=0>&nbsp;"&_
        "<a target=_blank href=Class_Index.asp?ClassID="&tcRs(0)&">"&htmlencode(tcRs(1))&"</a>&nbsp;&nbsp<font color=""#666666"">学生(<font color=""red"">"&tcRs(3)&"</font>)</font><br>"
tcRs.movenext
si=si+1
loop
set tcrs=nothing
%></td>
          </tr>
        </table></td>
		<td>
			<img src="images/main/spacer.gif" width="1" height="27" alt=""></td>
	</tr>
	<tr>
		<td>
			<img src="images/main/spacer.gif" width="1" height="6" alt=""></td>
	</tr>
	<tr>
		<td>
			<img src="images/main/spacer.gif" width="1" height="3" alt=""></td>
	</tr>
	<tr>
		<td>
			<img src="images/main/spacer.gif" width="1" height="6" alt=""></td>
	</tr>
	<tr>
		<td height="106">
			<img src="images/main/spacer.gif" width="1" height="70" alt=""></td>
	</tr>
	<tr>
		<td colspan="3">
			<img src="images/main/bbs_table_19.gif" width="273" height="20" alt=""></td>
		<td colspan="3">
			<img src="images/main/bbs_table_20.gif" width="292" height="20" alt=""></td>
		<td>
			<img src="images/main/spacer.gif" width="1" height="20" alt=""></td>
	</tr>
</table>
      <TABLE cellSpacing=0 cellPadding=0 width=562 border=0 align="center">
        <TBODY>
        <TR>
          <TD width=194>
            <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD background=images/main/xiangce_01.jpg height=43>
                  <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                    <TBODY>
                    <TR>
                      <TD colSpan=2 height=6></TD></TR>
                    <TR>
                      <TD width="18%">&nbsp;</TD>
                      <TD align=left width="82%"><span class="style4" style="font-weight: bold">最新日记</span></TD>
                    </TR></TBODY></TABLE></TD></TR>
              <TR>
                <TD vAlign=top background=images/main/xiangce_02.jpg 
                height=172 align="center">
                  <TABLE cellSpacing=0 cellPadding=0 width="95%" border=0>
                    <TBODY>
                    <TR>
                      <TD class=hangjv align=left><%
insql="select top 10 * from clasky_diary where (state = 'v' and ispub='1') order by dotime desc "
Set inrs=conn.execute(insql)
do until inrs.eof
response.write"&nbsp;<IMG src=""images/main/title.gif"" border=0>&nbsp;<a href=""#"" onClick=""show_diary("&inrs("id")&")"" title="&htmlencode(inrs("title"))&">"&htmlencode(left(inrs("title"),14))&"</a>"
Response.Write "<br>"
	inrs.movenext
loop
set inrs=nothing
%>
                       </TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE></TD>
          <TD vAlign=top width=189>
            <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD background=images/main/zhuye_01.jpg height=43>
                  <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                    <TBODY>
                    <TR>
                      <TD colSpan=2 height=6></TD></TR>
                    <TR>
                      <TD width="18%">&nbsp;</TD>
                      <TD align=left width="82%"><span class="style4" style="font-weight: bold">热门日记</span></TD>
                    </TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
            <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD vAlign=top background=images/main/zhuye_02.jpg 
height=172 align="center"><TABLE cellSpacing=0 cellPadding=0 width="95%" border=0>
                    <TBODY>
                    <TR>
                      <TD class=hangjv align=left><%
insql="select top 10 * from clasky_diary where (state = 'v' and ispub='1') order by hitnum desc "
Set inrs=conn.execute(insql)
do until inrs.eof
response.write"&nbsp;<IMG src=""images/main/title.gif"" border=0>&nbsp;<a href=""#"" onClick=""show_diary("&inrs("id")&")"" title="&htmlencode(inrs("title"))&">"&htmlencode(left(inrs("title"),14))&"</a>"
Response.Write "<br>"
	inrs.movenext
loop
set inrs=nothing
%>
                       </TD></TR></TBODY></TABLE>
                  </TD></TR></TBODY></TABLE></TD>
          <TD vAlign=top>
            <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD background=images/main/blog_01.jpg height=43>
                  <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
                    <TBODY>
                    <TR>
                      <TD colSpan=2 height=6></TD></TR>
                    <TR>
                      <TD width="21%">&nbsp;</TD>
                      <TD align=left width="79%"><SPAN 
                      class=style4 style="font-weight: bold">客串文学</SPAN></TD>
                    </TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
            <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
              <TR>
                <TD vAlign=top background=images/main/blog_02.jpg 
                  height=172><TABLE cellSpacing=0 cellPadding=0 width="95%" 
                  border=0 align="center">
                    <TBODY>
                    <TR>
                      <TD class=hangjv align=left><script src=http://www.fengling.cc/wenxue/news2.asp?Nu=9&words=6&nlen=4></script></TD>
                    </TR></TBODY></TABLE>
                </TD>
              </TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
			
		  </TD></TR></TBODY></TABLE>
		  <br>
		  <%response.flush%>
<%if BoolVar(13) then%>
<TABLE cellSpacing=0 cellPadding=0 width=770 align=center border=0>
  <TBODY>
  <TR>
    <TD><IMG height=25 src="images/main/youqing_01.jpg" width=109></TD>
    <TD width="100%" background=images/main/youqing_03.jpg>&nbsp;</TD>
    <TD><IMG height=25 src="images/main/youqing_02.jpg" 
  width=16></TD></TR></TBODY></TABLE>
    <TABLE cellSpacing=0 cellPadding=0 rules=none width=770 
align=center bgColor=#ffffff border=0 frame=vsides>
      <TBODY>
        <TR> 
          <TD height=1></TD>
        </TR>
        <TR>
          <TD width=*>
            <% call ShowFriendSite(2,10,1,2) %>          </TD>
        </TR>
        <TR> 
          <TD>
            <% call ShowFriendSite(1,10,1,1) %> 
		  </TD>
        </TR>
        <TR> 
          <TD background="images/main/xu2.gif" colSpan=2 
  height=1></TD>
        </TR>
      </TBODY>
    </TABLE>
	<%end if%>
    <TABLE cellSpacing=0 cellPadding=0 rules=none width=770 
align=center bgColor=#ffffff border=0 frame=vsides>
      <TBODY>
	  <TR><td></td>
          <TD background="images/main/xu2.gif"
  height=1></TD><td></td>
        </TR>
        <TR> 
          <TD width=5 rowspan="3">&nbsp;</TD>
          <TD width=*><font color="#FF0000">■ 在线图例：</font> <img src="images/main/degree/9.gif" width="16" height="18">系统管理员‖<img src="images/main/degree/8.gif" width="16" height="18">学校管理员‖<img src="images/main/degree/1.gif" width="12" height="11">学校成员‖<img src="images/main/degree/0.gif" width="12" height="11">客人</TD>
          <TD width=5 rowspan="3">&nbsp;</TD>
        </TR>
        <TR>
          <TD background="images/main/xu2.gif"
  height=1></TD>
        </TR>
        <TR> 
          <TD> 
            <%
			dim onliners,onlinei
		  sql="select userid,ip,logintime,activetime,location,act,degree from online order by degree desc"
set onliners=conn.execute(sql)
if onliners.bof and onliners.eof then
response.write"<div align=center><font color=999999>没有注册用户在线</font></div>"
else
onlinei=1
response.write"<table width=""100%"" border=""0"" cellspacing=""2"" cellpadding=""3""><tr>"
do until onliners.eof
if membername="" then
response.write"<td width=""20%""><img src=""images/main/degree/"&onliners(6)&".gif"">&nbsp;<a title="&oGrade(onliners(6))&">"&onliners(0)&"</a></td>"
else
response.write"<td width=""20%""><img src=""images/main/degree/"&onliners(6)&".gif"">&nbsp;<a href=Class_Userinfo.asp?Name="&onliners(0)&" target=_blank title="&oGrade(onliners(6))&">"&onliners(0)&"</a></td>"
end if
if onlinei mod 5 =0 then 
response.write"</tr><tr>"
end if
onlinei=onlinei+1
onliners.movenext
loop
response.write"</tr></table>"
end if
set onliners=nothing

		  Function oGrade(ByVal studlevel)

	select case studlevel
	    case 0
		    oGrade="客人"
		case 1
			oGrade="学校成员"
		case 8
			oGrade="学校管理员"
		case 9
			oGrade="系统管理员"
		case else
			Grade="未知"
	end select

End Function
%>          </TD>
        </TR>
        <TR><td></td>
          <TD background="images/main/xu2.gif"
  height=1></TD><td></td>
        </TR>
      </TBODY>
    </TABLE>
<%Call footer%>