xiaolei.asp

功能简介: 1) 首页投票调查系统 2）FLASH导航清新直观（带FLA源文件

<!--#include file="conn.asp"-->
<!--#include file="top.asp"-->
<!--#include file="tophit.asp"-->
<%
id=cint(request("id"))
nowpage=1
if request("page")<>"" then nowpage=cint(request("page"))
sql="select * from a_s where s_id=" & id
rs.open sql,conn,1,3
response.write("<script>document.title='" &rs("s_name")&"'</script>")
%>
<table width="750" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td valign="top">
      <table width="600" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td width="608"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td width="9%" background="images/homedhbg.gif"><img src="images/homed1.gif" width="55" height="34"></td>
                <td width="87%" height="34" background="images/homedhbg.gif">&nbsp;<img src="images/biaoti1.GIF" width="15" height="15" align="absmiddle"> <font color="#666666" size="2"><strong><% =rs("s_name") %></strong></font> </td>
              </tr>
          </table></td>
        </tr>
        <tr>
          <td height="2" colspan="2" align="center" bgcolor="#eeeeee"></td>
        </tr>
        <tr>
          <td colspan="2" bgcolor="#f6f6f6"><table width="600" height="424" border="0" cellpadding="0" cellspacing="0">
              <tr> 
                <td valign="top"><ul class="ul3">
				<%
rs.close
sql="select * from art where s_id=" & id
rs.open sql,conn,1,3
rs.pagesize=perpage
if not rs.eof then
	rs.AbsolutePage=nowpage
else
	response.write("没有相关文章")
end if
for a=1 to perpage
if rs.eof then exit for

				%>
				<li class="li4"><a href="showarticle.asp?id=<% =rs("art_id") %>" target="_blank"><% =rs("art_title") %></a></li>
				<% rs.movenext
next
				
				%>
				</ul></td>
              </tr>
            </table>          
          <div id=pageindex>
		  <script>
var pagesize=<%= perpage %>;
var allnum=<%= rs.recordcount %>;
var baseurl="xiaolei.asp?id=<%= id %>&page=";
var nowpage=<%= nowpage %>;
allpage=0;
allpage=(Math.ceil(allnum/pagesize));
var disppage=8;
var startpage;var endpage;if (allpage<disppage) disppage=allpage;if ((nowpage)%disppage==0) startpage=nowpage;else startpage=(Math.ceil(nowpage/disppage)-1)*disppage;if (startpage==0) startpage=1;if ((startpage+disppage-1)>allpage) endpage=allpage;else endpage=(startpage+disppage-1);function geturl(n){return (baseurl+n);}function start(){document.write('<a href="' + geturl(1) +'"><font face="Webdings">9<\/font></a>');document.write('<a href="' + geturl(nowpage-1) +'"><font face="Webdings">3<\/font></a>&#32;');}function end(){document.write('<a href="' + geturl(nowpage+1) +'"><font face="Webdings">4<\/font></a>');document.write('<a href="' + geturl(allpage) +'"><font face="Webdings">:<\/font></a>');}if(nowpage==1){document.write("<a><font color='red'>"+1 +"<\/font><\/a>&#32;");for(a=2;a<=endpage;a++){document.write("<a href='" + geturl(a) +"'>"+a +"<\/a>&#32;");}if (allpage>1)end();}else if(nowpage==allpage){start();for(a=startpage;a<endpage;a++){document.write("<a href='" + geturl(a) +"'>"+a +"<\/a>&#32;");}document.write("<a><font color='red'>"+allpage +"<\/font><\/a>&#32;");}else{start();for(a=startpage;a<=endpage;a++){if (a==nowpage) 	document.write("<a><font color='red'>"+nowpage +"<\/font><\/a>&#32;");else 	document.write("<a href='" + geturl(a) +"'>"+a +"<\/a>&#32;");}end();}

</script>
		  </div></td>
        </tr>
        <tr>
          <td colspan="2" bgcolor="#f6f6f6">&nbsp;</td>
        </tr>
        <tr align="right">
          <td height="20" colspan="2">&nbsp;</td>
        </tr>
    </table></td>
    <td valign="top" bgcolor="#f6f6f6" style="border-left:1px #D8D8D8 solid;"><table width="150" height="241" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="158" height="32" valign="middle"><TABLE cellSpacing=0 cellPadding=0 width="146" 
border=0>
              <TBODY>
                <TR> 
                  <TD width=52 
                            background="images/zxrm.gif" 
                            height=34>&nbsp;</TD>
                </TR>
              </TBODY>
            </TABLE></td>
        </tr>
        <tr> 
          <td valign="top">
		  <ul class="ul3">
		  <% 
		  rs.close
		  sql="select top 10  * from art where s_id=" & id  & " order by  art_date desc"
		   	rs.open sql,conn,1,3
			for a=1 to 10
				if rs.eof then exit for 
		  %>
		  <li class="li3"><a target=_blank href="showarticle.asp?id=<%= rs("art_id") %>"><% =gottopic(rs("art_title"),18) %></a></li>
		  <%
		  	rs.movenext
			next
			rs.close
		%>
		  </ul>
		  </td>
        </tr>
      </table>
        
      <table width="150" height="241" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="158" height="32" valign="middle"><TABLE cellSpacing=0 cellPadding=0 width="146" 
border=0>
              <TBODY>
                <TR> 
                  <TD width=52 
                            background="images/djph.gif" 
                            height=34>&nbsp;</TD>
                </TR>
              </TBODY>
            </TABLE></td>
        </tr>
        <tr> 
          <td valign="top"> 
		  <ul class="ul3">
		  <% 
		  
		  sql="select top 10  * from art where s_id=" & id  & " order by art_count desc"
		   	rs.open sql,conn,1,3
			for a=1 to 10
				if rs.eof then exit for 
		  %>
		  <li class="li3"><a target=_blank href="showarticle.asp?id=<%= rs("art_id") %>"><% =gottopic(rs("art_title"),18) %></a></li>
		  <%
		  	rs.movenext
			next
			rs.close
		%>
		  </ul>
		  </td>
        </tr>
      </table>
        <p>&nbsp;</p></td>
  </tr>
  <tr>
    <td colspan="2" valign="top">&nbsp;</td>
  </tr>
</table>
<!--#include file="foot.asp"-->