left.asp

疯狂DJ联盟-v2.0 1.修改了V1.0的几个错误. 2.首页生成HTM 大大加快了访问速度 3.歌曲播放页面全部调用HTM播放器.减轻了服务器的负担. 4.增加了站内统计,全部访问次数

              <select name="stype" size="1">
              <option value="music">舞曲</option>
              <option value="Special">专辑</option>   
              <option value="SpecialIntro">专辑简介</option>
              <option value="User">站内会员</option> 
            </select></p>
              <p style="margin-top: 4; margin-bottom: 4">关键字:<input size=13 type="text" value="输入关键字" onclick="Javascript:this.value=''" onfocus=this.select() onmouseover=this.focus() name=keyword size=14 maxlength="30" style="color: #FFFFFF; border: 1px solid #214D70; background-color: #111111"></p>
              <p style="margin-top: 1; margin-bottom: -21">&nbsp;&nbsp;&nbsp;&nbsp;
          <input style="border:0px solid #1A8CFF; FONT-SIZE: 12px; COLOR: #828F9B; BACKGROUND-COLOR: #171A1C; TEXT-DECORATION: underline"  type=submit name="Image1" value="搜 索">
          <input style="border:0px solid #1A8CFF; FONT-SIZE: 12px; COLOR: #828F9B; BACKGROUND-COLOR: #171A1C; TEXT-DECORATION: underline"  type=reset name="Image2" value="重 来"></p>
          </form>
</td>
        </tr>
        <tr>
          <td width="100%">
          <p align="center"><img src="images1/bard.gif" width="177" height="7"></td>
        </tr>
      </table>
      </td>
    </tr>
    <tr>
      <td width="158" colspan="2"></td>
    </tr>
    <tr>
      <td width="158" colspan="2">
      <img border="0" src="补间.gif" width="1" height="15"></td>
    </tr>
    <tr>
      <td width="173" height="102">
      <table cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber4" height="100%">
        <tr>
          <td width="100%">
            <p align="center"><img src="images1/bzg.gif" width="177" height="40"></td>
        </tr>
        <tr>
          <td width="100%" background="images1/barbg.gif">
                                  <%
set rs=conn.execute("SELECT * FROM Announce where IsChecked=true") 
if rs.eof and rs.bof then
%>
                        <%
else
%>
                            <%	if not isnull(rs("Title")) then%>
                            <div align="center">标题:<%=rs("Title")%>
                              <%	end if%>
                
                              <script language=JavaScript>
<!--//

var version = "other"
browserName = navigator.appName;   
browserVer = parseInt(navigator.appVersion);

if (browserName == "Netscape" && browserVer >= 3) version = "n3";
else if (browserName == "Netscape" && browserVer < 3) version = "n2";
else if (browserName == "Microsoft Internet Explorer" && browserVer >= 4) version = "e4";
else if (browserName == "Microsoft Internet Explorer" && browserVer < 4) version = "e3";


function marquee1()
{
	if (version == "e4")
	{
		document.write("<marquee behavior=scroll direction=up width=145 height=60 scrollamount=1 scrolldelay=100 onmouseover='this.stop()' onmouseout='this.start()'>")
	}
}

function marquee2()
{
	if (version == "e4")
	{
		document.write("</marquee>")
	}
}

//-->
                                  </script>
                              <script language=JavaScript>marquee1();</script>              
                              <span class="hight">
              </span></div>                            <span class="hight">
                            <div align=left><%=rs("Content")%></div>
                              </span>
                              <script language=JavaScript> 
marquee2();	 
                                  </script>
            </td>
          </tr>
                                  <tr>
<td background="images1/barbg.gif">
<p align="center">发布人:<%=rs("Author")%> <br>
日期:<%=rs("Dateandtime")%></td>
</tr>                        <%
end if
rs.close
%>


   
        <tr>
          <td width="100%"><div align="center"><img src="images1/bard.gif" width="177" height="7"></div></td>
        </tr>
      </table>
</td>
    </tr>
    <tr>
      <td width="158" colspan="2" height="1">&nbsp;      </td>
    </tr>
    <tr>
      <td width="173" height="70">
      <table cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber5">
        <tr>
          <td width="100%" bgcolor="#213243">
          <p align="center"><img src="images1/bsoft.gif"></td>
        </tr>
        <tr>
          <td width="100%" background="images1/barbg.gif">
          <p align="center">
           <script language=JavaScript>marquee1();</script>
            <span class="hight"> 
                          <%
set rs=conn.execute("SELECT * FROM NeedSoft") 
if not rs.eof then
	do while not rs.eof
%>
                          <div align=center> <a href="<%=rs("NeedSoftUrl")%>"><img src="<%=rs("NeedSoftPic")%>" width="88" height="31" border=0 alt="<%=rs("NeedSoftName")%>"></a><br>
                            <br>
                          </div>
                          <%
	rs.movenext
	loop
end if
rs.close
%>
            </span>
                          <script language=JavaScript> 
marquee2();	 
                          </script>
                          <br>
                          若未安装,请先下载安装</div>
                          </td>
        </tr>
        <tr>
          <td width="100%">
          <p align="center">
      <img border="0" src="images1/bard.gif"></td>
        </tr>
      </table>
      </td>
    </tr>
    <tr>
      <td width="158" colspan="2">
      <img border="0" src="补间.gif" width="1" height="15"></td>
    </tr>
    <tr>
      <td width="149" height="16">
      <div align="center">
        <center>
        <table cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber6">
          <tr>
            <td width="100%" bgcolor="#213243">
            <p align="center"><img src="images1/bweb.gif" width="177" height="41"></td>
          </tr>
          <tr>
            <td width="100%" background="images1/barbg.gif">
              <div align="center">在线人数:<font color="#FF0000">
                <script src="online.asp"></script>
              </font>人             </div></td>
          </tr>
          <tr>
            <td width="100%" background="images1/barbg.gif">
              <div align="center">
                  <!--#include file="counter.asp"-->
             　 </div></td>
          </tr>
          <tr>
            <td width="100%"><div align="center"><img src="images1/bard.gif" width="177" height="7"></div></td>
          </tr>
        </table>
        </center>
      </div>
      </td>
    </tr>
    <tr>
      <td colspan="2"><table cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%" id="AutoNumber7" height="27">
        <tr>
          <td width="100%" bgcolor="#213243" height="16">
            <p align="center"><img src="images1/bfriend.gif" width="177" height="41"></td>
        </tr>
        <tr>
          <td width="100%" height="16" background="images1/barbg.gif">
            <%
sql="SELECT * FROM FriendSite where (LogoUrl is not Null) and Isgood=true"
%>
            <script language="JavaScript"><!--
////
var version = "other" 
browserName = navigator.appName; 
browserVer = parseInt(navigator.appVersion); 

if (browserName == "Netscape" && browserVer >= 3) version = "n3"; 
else if (browserName == "Netscape" && browserVer < 3) version = "n2"; 
else if (browserName == "Microsoft Internet Explorer" && browserVer >= 4) version = "e4"; 
else if (browserName == "Microsoft Internet Explorer" && browserVer < 4) version = "e3";  

function marquee1()
{
	if (version == "e4"){ 
	document.write("<marquee behavior=scroll direction=up width=154 height=70 scrollamount=1 scrolldelay=100 onmouseover='this.stop()' onmouseout='this.start()'>") 
	}
}
 
function marquee2()
{ 
	if (version == "e4"){
	document.write("</marquee>")
	} 
}                          
                          
// --></script>
            <script language="JavaScript">marquee1();</script>
            <div align=center>
              <%

rs.open sql,conn,1,1
if not Rs.eof then
	do while not rs.eof
%>
              <a href="<%=rs("SiteUrl")%>" target="_blank"><img src="<%=rs("LogoUrl")%>" width=88 height=31 border=0 alt="名称：<%=rs("SiteName")%>&#13;&#10;站长：<%=rs("SiteAdmin")%>&#13;&#10;地址：<%=rs("SiteUrl")%>&#13;&#10;简介：<%=rs("SiteIntro")%>"></a>
              <%
	rs.movenext
	loop
end if
rs.close
%>
            </div>
          </td>
        </tr>
        <tr>
          <td width="100%" height="1"><div align="center"><img src="images1/bard.gif" width="177" height="7"></div></td>
        </tr>
      </table></td>
    </tr>
    <tr>
      <td width="158" colspan="2">
      <img border="0" src="补间.gif" width="1" height="15"></td>
    </tr>
  </table>
  </center>
</div>