zoom.asp

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 align="center" class="newshead" height="20" bgcolor="#F5F5F5" background="images/pic000/c004.jpg">
          <p align="left"><font color="#666666">&nbsp;:: VoteOnline</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">
            </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">
          <p align="center">
          <a title="A-001广告位，欢迎您使用……" target="_blank" href="http://www.cichina.com/me/lian.htm">
          <img border="0" src="images/pic000/ggw2.gif"></a></td>
        </tr>
        <tr>
          <td class="newshead" bgcolor="#FFFFFF" height="1">
          　</td>
        </tr>
        <tr>
          <td class="newshead" bgcolor="#FFFFFF" height="20" background="images/pic000/c004.jpg">
          <font color="#666666">:: 本站LOGO</font></td>
        </tr>
        <tr> 
          <td class="newshead" bgcolor="#FFFFFF" height="47">
          <p align="center"><font color="#666666">
          <a target="_blank" title="CICHINA.com" href="http://www.cichina.com/images/pic000/8831CIlogo.gif">
          <img border="0" src="images/pic000/8831CIlogo.gif"></a></font></td>
        </tr>
        <tr> 
          <td class="newshead" bgcolor="#FFFFFF" height="20" background="images/pic000/c004.jpg">
          <font color="#666666">:: New CoolSite</font></td>
        </tr>
      </table>
      </center>
</div>
<div align="center">
  <center>
      <table width="94%" border="0" cellspacing="0" cellpadding="0" bgcolor="#FFFFFF" style="border-collapse: collapse" bordercolor="#111111">
<%do while not rs.eof%><font color="#666666"> </font>
        <tr> 
          <td align="center" bgcolor="#FFFFFF"><a href="redirectcs.asp?cs_id=<%=rs("cs_id")%>" target="_blank" title="<%=rs("cs_name")%>-<%=rs("cs_url")%>,已被点击<%=rs("cs_count")%>次">
          <font color="#666666"><br>
      <img src="<%=rs("cs_pic")%>" border="0"><br><%=rs("cs_name")%></font></a><font color="#666666">
          </font> 
    </td>
        </tr>
		<tr>  
    <td height="1" bgcolor="#FFFFFF"></td>
        </tr>
<%rs.movenext
loop
if rs.bof and rs.eof then%><font color="#666666"> </font>
        <tr> 
          <td align="center" height="25" class="chinese" bgcolor="#FFFFFF"><font color="#666666">当前没有酷站！</td>
        </tr>
<%end if%><font color="#666666"> </font> </font>
        <tr> 
          <td align="right" height="25" valign="bottom" bgcolor="#FFFFFF">
          <a href="showcs.asp"><img border="0" src="images/MORE1.GIF"></a></td>
        </tr>
      </table>
  </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/pic000/c004.jpg" height="20"><font color="#666666">:: FriendLink</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
%>