<%PageName="index.asp"%>
<!--#include file="top.asp"-->
<script language="JavaScript" src="js.js"></script>
<table border="0" width=770 align=center cellspacing="1" cellpadding="1" bgcolor="<%=Tablebackcolor%>">
  <tr> 
    <td bgcolor="<%=Tabletitlecolor%>" align="center" width="197" valign="top" height="192"> <br>
      <table width="95%" border="0" cellspacing="1" cellpadding="3" bgcolor="<%=Tablebackcolor%>">
        <tr> 
          <td align="center" bgcolor="<%=aTablebodycolor%>"><b><font color="#CC0000">==站內公告==</font></b></td>
        </tr>
        <tr> 
          <td bgcolor="<%=aTablebodycolor%>" height="120" valign="top"> 
            <%
response.write "<MARQUEE onmouseout=this.start() onmouseover=this.stop() direction=up height=120 scrollAmount=1 scrollDelay=80 width=""100%"">"
set rs=conn.execute("SELECT top 10 * FROM Announce where type=3 order by id desc")
do while not rs.eof
response.write "<img src=images/leaf.gif border=0>"&rs("content")&"<div align=right>"
if left(rs("DateAndTime"),10)=left(now(),10) then
response.write "<font color=#ff0000>"
else
response.write "<font color=#555555>"
end if
response.write rs("DateAndTime")&"</font></div><br>"
rs.movenext
loop
rs.close
response.write "</MARQUEE>"
%>
          </td>
        </tr>
      </table>
      <br>
      <table width="95%" border="0" cellspacing="1" cellpadding="3" bgcolor="<%=Tablebackcolor%>" height="84">
        <tr> 
          <td align="center" bgcolor="<%=aTablebodycolor%>" height="16"><b><font color="#CC0000">==瀏覽排行==</font></b></td>
</tr><tr><td bgcolor="<%=aTablebodycolor%>" height="54" valign="top" align=center><iframe frameBorder="0" height="120" marginHeight="0" marginWidth="0" scrolling="no" src="hotpic.asp" width="100%"></iframe></td></tr></table>
      <br>
<table width="95%" border="0" cellspacing="1" cellpadding="3" bgcolor="<%=Tablebackcolor%>">
        <tr> 
          <td align="center" bgcolor="<%=aTablebodycolor%>"><b>
          <font color="#CC0000" size="2">==您的意見==</font></b></td>
        </tr>
        <tr> 
          <td bgcolor="<%=aTablebodycolor%>" height="108" valign="top"> 
            <script src=def_research.asp></script>
          </td>
        </tr>
      </table>
<br>
    <td bgcolor="<%=Tablebodycolor%>" width="566" height="192" align="center" valign="top"> 
      <table width="98%" border="0" cellspacing="1" cellpadding="1">
        <tr> 
          <td align="center"></td>
        </tr>
      </table>
      <table width="99%" border="0" cellspacing="1" cellpadding="1">
        <tr> 
          <td style="border-top: 1px solid rgb(0,0,0);border-bottom: 1px solid rgb(0,0,0);border-left: 1px solid rgb(0,0,0);border-right: 1px solid rgb(0,0,0);" align="center" height="33" bgcolor="<%=Tabletitlecolor%>"> 
            <select name="typelist">
              <option value="pic" selected>FLASH</option>
              </select>
            <select name="picsel" onChange="window.open('typesort.asp?typeor='+typelist.options[typelist.selectedIndex].value+'&area='+this.options[this.selectedIndex].value,'_self')">
              <option selected>按作者地區檢索</option>
              <option value="<%=server.urlencode("大陸地區")%>">大陸地區</option>
              <option value="<%=server.urlencode("港臺地區")%>">港臺地區</option>
              <option value="<%=server.urlencode("其他地區")%>">其他地區</option>
            </select>
            <select name="select4"  onChange="window.open('typesort.asp?typeor='+typelist.options[typelist.selectedIndex].value+'&authorid='+this.options[this.selectedIndex].value,'_self')">
              <option selected>按作者姓名檢索</option>
              <%
sql="select authorid,author from author order by Nkey"
rs.open sql,conn,1,1
do while not rs.eof
response.write "<option value="&rs("authorid")&">"&rs("author")&"</option>"
rs.movenext
loop
rs.close
%>
            </select>
            <select size="1" name="Nkey" onChange="window.open('typesort.asp?typeor='+typelist.options[typelist.selectedIndex].value+'&Nkey='+this.options[this.selectedIndex].value,'_self')">
              <option value="" selected>按首拼音檢索</option>
              <%
		for i=65 to 90
		response.write "<option value="&chr(i)&">＝＝　"&chr(i)&"　＝＝</option>"
		next
%>
            </select>
          </td>
        </tr>
      </table>
      <table width="98%" border="0" cellspacing="1" cellpadding="1">
        <tr> 
          <td align="center"></td>
        </tr>
      </table> 
      <!--#include file="HotImg_v.asp"-->
     
      <table width="99%" border="0" cellspacing="1" cellpadding="1" bgcolor="<%=Tablebackcolor%>">
        <tr> 
          <td width="50%" bgcolor="<%=aTabletitlecolor%>"><img src="images/left4.gif" width="16" height="16"> 
            大陸地區-<font color="#CC0000">男歌手</font></td>
          <td width="50%" bgcolor="<%=aTabletitlecolor%>"><img src="images/left3.gif" width="16" height="16"> 
            大陸地區-<font color="#CC0000">女歌手</font></td>
        </tr>
        <tr> 
          <td bgcolor="<%=aTablebodycolor%>" height="108" valign="top" width="50%"> 
           <script src=http://www.heishan.org/flash/js.asp?classid=21&Nclassid=58&count=10&dateshow=Y&authorshow=Y></script> 
          </td>
          <td bgcolor="<%=aTablebodycolor%>" height="108" valign="top" width="50%"><script src=http://www.heishan.org/flash/js.asp?classid=21&Nclassid=59&count=10&dateshow=Y&authorshow=Y></script>
          </td>
        </tr>
        <tr> 
          <td bgcolor="<%=aTablebodycolor%>" align="right" width="50%"><a href="sort.asp?classid=21&Nclassid=58">&gt;&gt;&gt; 
            MORE...</a></td>
          <td bgcolor="<%=aTablebodycolor%>" align="right" width="50%"><a href="sort.asp?classid=21&Nclassid=59">&gt;&gt;&gt; 
            MORE...</a></td>
        </tr>
        <tr> 
          <td width="50%" bgcolor="<%=aTabletitlecolor%>"><img src="images/left1.gif" width="16" height="16"> 
            港臺地區-<font color="#CC0000">男歌手</font></td>
          <td width="50%" bgcolor="<%=aTabletitlecolor%>"><img src="images/left2.gif" width="16" height="16"> 
            港臺地區-<font color="#CC0000">女歌手</font></td>
        </tr>
        <tr> 
          <td bgcolor="<%=aTablebodycolor%>" height="108" valign="top" width="50%"><script src=http://www.heishan.org/flash/js.asp?classid=20&Nclassid=56&count=10&dateshow=Y&authorshow=Y></script>
          </td>
          <td bgcolor="<%=aTablebodycolor%>" height="108" valign="top" width="50%"><script src=http://www.heishan.org/flash/js.asp?classid=20&Nclassid=57&count=10&dateshow=Y&authorshow=Y></script>
          </td>
        </tr>
        <tr> 
          <td bgcolor="<%=aTablebodycolor%>" align="right" width="50%"><a href="sort.asp?classid=20&Nclassid=56">&gt;&gt;&gt; 
            MORE...</a></td>
          <td bgcolor="<%=aTablebodycolor%>" align="right" width="50%"><a href="sort.asp?classid=20&Nclassid=57">&gt;&gt;&gt; 
            MORE...</a></td>
        </tr>
        </table>  
    </td>
  </tr>
</table>
<!--#include file="copyright.asp"-->
</body>
</html>
<%
set rs=nothing
conn.close
set conn=nothing
%>