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>
<link href="../site_css.css" rel="stylesheet" type="text/css">

 <table width="100%" border="0" cellspacing="1" cellpadding="0" bgcolor="#EFEBEF" align="center">
  <tr> 
          
    <td height="22" valign="top" background="image/1/015.jpg" style="FONT-SIZE: 9pt; LINE-HEIGHT: 11pt"><img src="image/1/021.jpg" width="76" height="19"></td>
        </tr>
      </table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" 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"><table width="53%" height="7" border="0" cellpadding="0" cellspacing="0">
          <tr> 
            <td height="7"></td>
          </tr>
        </table>
        <font color="#666666"><%=rs("vt_name")%></font></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
%>
    <tr> 
      <td align="left"> <font color="#666666">&nbsp;&nbsp; 
        <input type="radio" name="item_id" value="<%=rs2("item_id")%>" class="textarea">
        <%=rs2("item_name")%></font></td>
    </tr>
    <%rs2.movenext
loop
if rs2.eof and rs2.bof then%>
    <tr> 
      <td align="center">当前没有投票选项！</td>
    </tr>
    <%end if
rs2.close
set rs2=nothing%>
    <tr> 
      <td align="center" height="30"> 
        <%if request.cookies("npw")("voted")<>"yes" or request.cookies("npw")("topic")<>rs("vt_name") then%>
        <input type="submit" name="Submit" value="投票" class="button"> &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="结果">
        <%else%>
        <font color="#666666">你已经投过票了</font>。<a href="showvote.asp?vt_id=<%=rs("vt_id")%>" target="_blank">查看结果</a> 
        <%end if%>
      </td>
    </tr>
    <input name="itemname" type="hidden" value="<%=rs("vt_name")%>">
  </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
%>
      <table width="100%" border="0" cellspacing="1" cellpadding="0" bgcolor="#EFEBEF" align="center">
        <tr> 
          
    <td height="22" valign="top" background="image/1/015.jpg" style="FONT-SIZE: 9pt; LINE-HEIGHT: 11pt"><img src="image/1/022.jpg" width="76" height="19"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<%do while not rs.eof%>
        <tr> 
          
    <td align="center"><a href="redirectcs.asp?cs_id=<%=rs("cs_id")%>" target="_blank" title="<%=rs("cs_name")%>-<%=rs("cs_url")%>,已被点击<%=rs("cs_count")%>次"><br>
      </a>
      <table width="2%" border="0" cellpadding="0" cellspacing="2" class="sibian">
        <tr>
          <td><a href="redirectcs.asp?cs_id=<%=rs("cs_id")%>" target="_blank" title="<%=rs("cs_name")%>-<%=rs("cs_url")%>,已被点击<%=rs("cs_count")%>次"><img src="<%=rs("cs_pic")%>" border="0"></a></td>
        </tr>
      </table>
       
      <table width="53%" height="7" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="7"></td>
        </tr>
      </table>
      <a href="redirectcs.asp?cs_id=<%=rs("cs_id")%>" target="_blank" title="<%=rs("cs_name")%>-<%=rs("cs_url")%>,已被点击<%=rs("cs_count")%>次"><%=rs("cs_name")%></a>
      <table width="53%" height="7" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td height="7"></td>
        </tr>
      </table></td>
        </tr>
		<tr>  
    <td height="1" background="images/dotlineh.gif"></td>
        </tr>
<%rs.movenext
loop
if rs.bof and rs.eof then%>
        <tr> 
          <td align="center" height="25" class="chinese">当前没有酷站！</td>
        </tr>
<%end if%>
        <tr> 
          <td align="right" height="25" valign="bottom"><a href="showcs.asp">more</a></td>
        </tr>
      </table>
<%
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="100%" border="0" cellspacing="1" cellpadding="0" bgcolor="#EFEBEF" align="center">
        
  <tr> 
    <td height="22" valign="top" background="image/1/015.jpg" style="FONT-SIZE: 9pt; LINE-HEIGHT: 11pt"><img src="image/1/023.jpg" width="76" height="19"></td>
        </tr>
      </table>
      
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
  <tr> 
    <td height="6"></td>
  </tr>
<tr> 
    <td align="center" height="40">
<%do while not rs.eof%>
<a href="<%=rs("fl_url")%>" title="<%=rs("fl_name")%>" target="_blank"><img src="<%=rs("fl_logo")%>" width="88" height="31" border="0"></a>&nbsp;&nbsp;
<%rs.movenext
loop
%>
</td>
  </tr>
<%if rs.eof and rs.bof then%>

  <tr> 
    <td align="center" height="40" class="chinese">当前没有链接</td>
  </tr>
<%end if%>
  <tr> 
    <td align="right" valign="bottom" height="25"><a href="coolsites.asp">more</a>&nbsp;&nbsp;&nbsp;</td>
  </tr>
</table>
  <%    
end sub
%>