zoom.asp

在线 点播音乐的功能 只提供参考

<%
sub index_vote()
openadmin
sql="select top 1 * from votetopic where datediff('d',Now(),vt_expiredate)>0 order by vt_id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
if not rs.eof then
%> 
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>
 <div align="center">
   <center>
 <table width="94%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#111111">
  <tr>
          
        <td class="newshead" height="25" bgcolor="#F5F5F5" background="images/bg4.gif"> 
          <font color="#666666">::  在线调查</font></td>
        </tr>
  <tr> 
          <td class="newshead" bgcolor="#FFFFFF"></td>
        </tr>
      </table>
   </center>
</div>
<table width="94%" border="0" cellspacing="0" cellpadding="0" bgcolor="#EFEBEF" class="chinese" align="center">
  <form name="form1" method="post" action="savevote.asp?vt_id=<%=rs("vt_id")%>&vt_name=<%=rs("vt_name")%>" target="_blank">
          <tr> 
            <td align="center" style="vertical-align: middle" bgcolor="#FFFFFF"><%=rs("vt_name")%></td>
          </tr>
<%sql="select * from voteitem where vt_id="&rs("vt_id")
set rs2=server.createobject("adodb.recordset")
rs2.open sql,conn,1,1
do while not rs2.eof
%><font color="#666666"> </font>
          <tr> 
            <td align="center" bgcolor="#FFFFFF" style="vertical-align: middle"> 
              <p align="left"><font color="#666666"> 
              <span style="background-color: #FFFFFF"> 
              <input type="radio" name="item_id" value="<%=rs2("item_id")%>" class="textarea">
              <%=rs2("item_name")%></span></td>
          </tr>
<%rs2.movenext
loop
if rs2.eof and rs2.bof then%><font color="#666666"> </font> </font>
          <tr> 
            <td align="center" bgcolor="#FFFFFF"><font color="#666666">当前没有投票选项！</td>
          </tr>
<%end if
rs2.close
set rs2=nothing%><font color="#666666"> </font> </font>
          <tr> 
            <td align="center" height="30" bgcolor="#FFFFFF"> 
			<%if request.cookies("npw")("voted")<>"yes" or request.cookies("npw")("topic")<>rs("vt_name") then%><font color="#666666">&nbsp;
            </font><font color="#666666">
              <input type="submit" name="Submit" value="投票" class="button" style="color: #666666">
              &nbsp;&nbsp; 
              <input name="Submit" type="button" class="button" onClick="MM_openBrWindow('showvote.asp?vt_id=<%=rs("vt_id")%>','Vote','status=yes,scrollbars=yes,width=700,height=500')" value="结果" style="color: #666666">
			  <%else%> 您已经投过票了。</font><a href="showvote.asp?vt_id=<%=rs("vt_id")%>" target="_blank"><font color="#666666">查看结果</font></a><font color="#666666"><%end if%></font></td>
          </tr>
		  <font color="#666666">
		  <input name="itemname" type="hidden" value="<%=rs("vt_name")%>">
          </font>
        </form>
      </table>	  
<%
else
%>
<%
response.write "<div align='center' class='chinese'>当前没有投票主题！</div>"
end if
rs.close
set rs=nothing
end sub

sub index_coolsites()
opensites
sql="select top "&indexcoolsite&" * from coolsites order by cs_date DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1
%>
<div align="center">
  <center>
      
    <table width="94%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" height="5" style="border-collapse: collapse" bordercolor="#111111">
      <tr> 
        <td class="newshead" bgcolor="#FFFFFF" height="2"></td>
      </tr>
      <tr> 
        <td class="newshead" bgcolor="#FFFFFF" height="2" align="center"> <TABLE bgColor=#000000 border=0 cellPadding=0 cellSpacing=1 width=150>
<TBODY>
<TR> 
<TD bgColor=#ffffff height=55> <TABLE bgColor=#f7f7f7 border=0 cellPadding=0 cellSpacing=0 width=150>
<TBODY>
<tr> 
              <td width="104" height=43 rowspan="2"> <div align=center><a href="http://d.baidu.com/index.php?tn=estyle" target=_blank><img alt=百度中文搜索引擎 border=0 
                  src="images/bdlogo.gif" width="100" height="40"></a></div></td>
              <td width="36" height=16 valign="middle"><!--DWLayoutEmptyCell-->  </td>
            </tr>
            <tr>
              <td height=22 valign="middle"><a 
                  href="http://union.baidu.com/paihang/index.php" 
                  target=_blank><font style="font-size: 12px" color="#ff0000">排行榜</font></a></td>
            </tr><TR> 
<FORM action=http://www.baidu.com/baidu target=_blank>
<td height=38 colspan="2" align=middle valign=center> <DIV align=center><FONT style="FONT-SIZE: 12px"> 
<input id=word name=word size="15" value="请输入关键字如:E-style"  onMouseOver="this.focus()" onblur="if (value ==''){value='请输入关键字如:E-style'}" onFocus="this.select()" onClick="if(this.value=='请输入关键字如:E-style')this.value=''">
</FONT> 
<INPUT name=image type=image id="image" src="images/go.gif" align=middle width=30 height=17 border=0>
<FONT style="FONT-SIZE: 12px"><A href="http://union.baidu.com/paihang/index.php" target=_blank></A></FONT> 
<INPUT id=tn name=tn type=hidden value=estyle>
</DIV></TD>
</FORM>
</TR>
</TBODY>
</TABLE></TD>
</TR>
</TBODY>
</TABLE><img src= http://un.baidu.com/images/st.gif?tn=estyle width=0 height=0></td>
      </tr>
      <tr> 
        <td class="newshead" bgcolor="#FFFFFF" height="1"></td>
      </tr>
      <tr> 
        <td class="newshead" bgcolor="#FFFFFF" height="25" background="images/bg4.gif"> 
          <font color="#666666">:: 本站LOGO</font></td>
      </tr>
      <tr> 
        <td class="newshead" bgcolor="#FFFFFF" align="center" height="47"> 
            <a target="_blank" title="E-style工作室" href="images/logo3.gif"> 
            <img border="0" src="images/logo3.gif"></a></td>
      </tr>
    </table>
      </center>
</div>
<div align="center">
  <center>
  </center>
</div>
<%
rs.close
set rs=nothing
end sub

sub index_flink()
opensites
sql="select top "&indexfriendlink&" * from friendlink where fl_logo<>'' and passed=0 order by fl_id DESC"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,1 
%>
<table width="94%" border="0" cellspacing="1" cellpadding="0" bgcolor="#EFEBEF" align="center">
        <tr> 
          
    <td class="newshead" bgcolor="#FFFFFF" background="images/bg4.gif" height="24"><font color="#666666">:: 友情连接
       </font></td>
        </tr>
      </table>
      
<div align="center">
  <center>
      
<table width="94%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#111111">
  <tr> 
    <td height="6" bgcolor="#FFFFFF"></td>
  </tr>
<%do while not rs.eof%><font color="#666666"> </font>
  <tr> 
    <td bgcolor="#FFFFFF" align="center" height="40"><a href="<%=rs("fl_url")%>" title="<%=rs("fl_name")%>" target="_blank">
    <font color="#666666"><img src="<%=rs("fl_logo")%>" width="88" height="31" border="0"></font></a></td>
  </tr>
<%rs.movenext
loop
if rs.eof and rs.bof then%><font color="#666666"> </font>
  <tr> 
    <td bgcolor="#FFFFFF" align="center" height="40" class="chinese">
    <font color="#666666">当前没有链接</td>
  </tr>
<%end if%><font color="#666666"> </font> </font>
  <tr> 
    <td height="1" bgcolor="#FFFFFF"></td>
  </tr>
  <tr> 
    <td align="right" valign="bottom" height="13" bgcolor="#FFFFFF">
    <a href="coolsites.asp"><img border="0" src="images/MORE1.GIF"></a></td>
  </tr>
  <tr>
  </tr>
</table>
  </center>
</div>

  <%    
end sub
%>