<!--#include file="binbin.asp"-->
<!--#include file="conn.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<link href="css/style.css" rel="stylesheet" type="text/css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>美摇肚皮舞---新闻中心</title>
<SCRIPT LANGUAGE=javascript>
function click() {
alert('禁止你的左键复制！') }
function click1() {
if (event.button==2) {alert('请尊重我们的版权~！') }}
function CtrlKeyDown(){
if (event.ctrlKey) {alert('不当的拷贝将损害您的系统！') }}
document.onkeydown=CtrlKeyDown;
document.onselectstart=click;
document.onmousedown=click1;
</SCRIPT>
<style type="text/css">
<!--
body {
	background-color: #000000;
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
.style4 {color: #660066;
	font-size: 14px;}
.style5 {color: #663399}
.style7 {font-size: 13px}
-->
</style></head>

<body>
<EMBED src="dance.mp3" autostart="bool" loop="n" width="m" height="k" >
<table width="1003"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td colspan="2"><!--#include file="top.asp"--></td>
  </tr>
  <tr>
    <td width="12%"><!--#include file="left.asp"--></td>
    <td width="13%" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td><img name="dance1_r2_c2" src="images/dance1_r2_c2.jpg" width="755" height="46" border="0" alt=""></td>
      </tr>
      <tr>
        <td><img name="dance1_r3_c2" src="images/news.jpg" width="755" height="58" border="0" alt=""></td>
      </tr>
      <tr>
        <td width="755" height="552" valign="top" background="images/dance1_r4_c2.jpg"><table width="95%" border="0">
          <tr>
            <td><table width="96%" height="15" border="0" align="center" cellpadding="3" cellspacing="0">
                <%   
				Const MaxPerPage=15
   				dim totalPut   
   				dim CurrentPage
   				dim TotalPages
   				dim j
   				dim sql
    			if Not isempty(request.QueryString("page")) then
      				currentPage=Cint(request.QueryString("page"))
   				else
      				currentPage=1
   				end if 
				set rs = server.CreateObject("adodb.recordset")
		  	    rs.open "select newsid,newsname,addname,adddate,xlh,typeid from news where typeid=2 order by xlh asc",conn,1,1
  				if rs.eof And rs.bof then
       				Response.Write "<p align='center'> <font color=#666666>本栏目资料整理中...</font></p></table>"
   				else
	  				totalPut=rs.recordcount

      				if currentpage<1 then
          				currentpage=1
      				end if

      				if (currentpage-1)*MaxPerPage>totalput then
	   					if (totalPut mod MaxPerPage)=0 then
	     					currentpage= totalPut \ MaxPerPage
	   					else
	      					currentpage= totalPut \ MaxPerPage + 1
	   					end if
      				end if

       				if currentPage=1 then
            			showContent
            			showpage totalput,MaxPerPage,"news.asp"
       				else
          				if (currentPage-1)*MaxPerPage<totalPut then
            				rs.move  (currentPage-1)*MaxPerPage
            				dim bookmark
            				bookmark=rs.bookmark
            				showContent
             				showpage totalput,MaxPerPage,"news.asp"
        				else
	        				currentPage=1
           					showContent
           					showpage totalput,MaxPerPage,"news.asp"
	      				end if
	   				end if
   				end if

   				sub showContent
       			dim i
	   			i=0

			%>
                <% do while not rs.eof%>
                <tr>
                  <td width="78%" height="20" align="left" ><div align="left"> 　<img src="images/right11.gif" width="9" height="10"> <a href="info/info_<%=rs("newsid")%>.html" class="style4" target="_blank"><%=rs("newsname")%></a></div></td>
                  <td width="22%" align="left" class="style4" height="20"><%=formatdatetime(rs("adddate"),2)%></td>
                </tr>
                <%
			i=i+1
			'if i mod 3=0 then response.write("</tr><tr>")
			if i>=MaxPerPage then Exit Do
			rs.movenext
			loop
			rs.close
			set rs=nothing
			%>
              </table>
                <%  
				End Sub   
  
				Function showpage(totalnumber,maxperpage,filename)  
  				Dim n
  				
				If totalnumber Mod maxperpage=0 Then  
					n= totalnumber \ maxperpage  
				Else
					n= totalnumber \ maxperpage+1  
				End If %>
                <form method=Post action= <% = filename %>>
                  <p align='center' class="style4">
                    <%
				If CurrentPage<2 Then  %>
          首页 上页
          <%
				Else   %>
          <a href=<% = filename %>?page=1 class="style4">首页</a> <a href=<% = filename %>?page=<% = CurrentPage-1 %> class="style4">上页</a>
          <%
				End If	
				If n-currentpage<1 Then  %>
          下页 末页
          <%
				Else   %>
          <a href=<% = filename %>?page=<% = (CurrentPage+1) %> class="style4">下页</a> <a href=<% = filename %>?page=<% = n %> class="style4">末页</a>
          <%
				End If  %>
          第 <b>
          <% = CurrentPage %>
          </b> 页 共<b>
          <% = n %>
          </b>页 共<b>
          <% = totalnumber %>
          </b>信息　每页 <b>
          <% = maxperpage %>
          </b> 信息
                  </form>
                <%
				End Function  
			%></td>
          </tr>
        </table></td>
      </tr>
    </table></td>
  </tr>
  <tr>
    <td colspan="2"><!--#include file="bottom.asp"--></td>
  </tr>
</table>
</body>
</html>
