📄 lastnew.asp

📁 mlm双轨制直销系统V8.0免费版可用于： 1、直拨、回拨电话卡公司。 2、保健品、药品公司。 3、在线销售商品等等。 4、其他类型用到双轨制模式的线上开盘公司。
💻 ASP
字号:
<!-- #include file="include/adovbs.inc" -->
<!-- #include file="include/dataconn.asp" -->
<%
Response.Buffer =false
Response.Expires=-1


set InfoRs=server.CreateObject("adodb.recordset")
	sql = "select * from t_InfoDetail where InfoClassName in( 1,0) order by CreateDateTime desc"

	InfoRs.Open sql,conn
	j=InfoRs.RecordCount 


%>
<HTML>
<TITLE> </TITLE>
<SCRIPT LANGUAGE="JavaScript">
<!--
var bV=parseInt(navigator.appVersion);
var NS4=(document.layers) ? true : false;
var IE4=((document.all)&&(bV>=4))?true:false;
var ver4 = (NS4 || IE4) ? true : false;

function expandIt(){return}
function expandAll(){return}
function nomsg(){self.status="";}

if(ver4){
  document.write("<SCR"+"IPT LANGUAGE=\"JavaScript\" SRC=\"rsmenu1.js\"></SCR"+"IPT>");
}
//-->
</SCRIPT>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<META http-equiv=Content-Style-Type content=text/css>
<META http-equiv=Pragma content=no-cache><LINK href="Image/index.css" 
type=text/css rel=STYLESHEET>
<SCRIPT language=JavaScript src="Image/public.js"></SCRIPT>
<!--<script language="JavaScript">
        window.open('newyearcard.htm','apusic','toolbar=no,location=no,status=no,menubar=no,scrollbars=no,resizable=no,width=498,height=365');
</script>-->
<META content="MSHTML 6.00.2800.1106" name=GENERATOR>
<script language="JavaScript" type="text/JavaScript">
<!--



	function openwin(page,size)
	{
		window.open(page,"newuser","toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=no,width="+ size);
	}
	
function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function on_enter(){
	if (event.keyCode==13){
	document.form1.submit();
	}
}
//-->
</script>
</HEAD>
<BODY text=#000000 leftMargin=0 topMargin=0 
marginwidth="0" marginheight="0" bgcolor="7BD7FF">
<br>
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><p align="center"><br>
        <img src="Image/x_4.gif">        <br> <br>
        </font></strong></p>
      </td>
  </tr>
  <tr>
    <td height="24" bgcolor="#9CE1FE">&nbsp;</td>
  </tr>
</table><TABLE cellSpacing=0 cellPadding=0 width=99% align=center border=0>
                <%
    if j>0 then
    dim i 
    i=1
    const pagesize=15
           
    InfoRs.PageSize = pagesize
    total=InfoRs.PageCount 
	pageno=Request("pageno")
	if pageno="" then pageno=1
    if not isnumeric(pageno) and pageno<>"" then
	 %>
<script>alert("请输入正确的页码");
		window.history.back();</script>
<%Response.End
	End if
	if (pageno-1)*pagesize>=j then
        if (j mod pagesize)=0 then
            pageno= j \ pagesize
        else
            pageno= j \ pagesize + 1
       end if
    end if		
	if pageno<1 then 
	 %>
<script>alert("页码数不能小于１");
		window.history.back();</script>
<%Response.End
	End if	
	if (pageno>65535) then
	%>
<script>alert("页码数不能大于总数！");
		window.history.back();</script>
<%Response.End 
	end if
	
	
	if (clng(pageno)>clng(total)) then %>
<script>alert("页码数不能大于总数！");
		window.history.back();</script>
<%	
   Response.End 
	end if
    pageno=cint(pageno)	
%>

  


<table width="80%" border="1" align="center" cellpadding="0" cellspacing="0" bordercolordark="#9CE1FE" bo>
  <%
    InfoRs.absolutepage=pageno     
    dim x
    x=2
    while (not InfoRs.eof) and (i<=pagesize) 
 %>
  <tr> 
    <td width="72%" height="30" > <div align="left"><img src="Image/arrow03.gif"></img>
	<a href="#" onclick ="Javascript:openwin('NewList.asp?ID=<% =InfoRs("infoid")%>',800)"><% if InfoRs("isfocus")=true then%>
        <font color="#FF0000"><%=InfoRs("InfoTitle")%></font> 
        <%else%><%=InfoRs("InfoTitle")%><%end if%>
        </a></div></td>
    <td width="28%"> <div align="center">
        <% =year(InfoRs("CreateDateTime")) & "-" & month(InfoRs("CreateDateTime")) & "-" & day(InfoRs("CreateDateTime"))%>
      </div></td>
    <%
	InfoRs.movenext
	i=i+1
	x=x+1
	wend %>
  </tr>
  <%
  else
	Response.Write "<tr><td align='center'><br>暂 时 还 没 有 公  告！</td></tr>"
 end if%>
</table>
       
<table width="80%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
            <td background="Image/bg1.gif">&nbsp;</td>
          </tr>
        </table> 		
        
<table width="80%" border="0" align="center" cellPadding="0" cellSpacing="0" bordercolor="#111111" style="border-collapse: collapse">
  <tbody>
    <tr> 
      <td height="5" vAlign="top" bgcolor="#CCDDEE"> </td>
    </tr>
  </tbody>
</table>
<br><br>
<%if j>0 then%>
<table align="center" bordercolor="#CCCCCC">
                  <tr> 
    <form name="thisform1" method="Post" action="Lastnew.asp?findcontent=<%=content%>">
      <td>到第 
        <input type="text" name="pageno" value="<% =pageno%>" size="3">
        页<a onclick="javascript:thisform1.submit();">GO</a> </font></td>
    </form>
    <td>第 
      <% =pageno %>页
      /共 
      <% =total%>
      页</font></td>
    <% if pageno<=1 then %>
    <td><font color="#cccccc">首页</font></td>
    <td><font color="#cccccc">上一页</font></td>
    <% else %>
    <td><a href="Lastnew.asp?pageno=1&amp;findcontent=<%=content%>"><font face="Webdings" color="#FFFFFF">9</font>首页</font></a></td>
    <td><a href="Lastnew.asp?pageno=<%=pageno-1%>&amp;findcontent=<%=content%>">上一页</font></a></td>
    <%end if%>
    <% if pageno>=total then %>
    <td><font color="#cccccc">下一页</font></td>
    <td><font color="#cccccc">尾页</font></td>
    <%else%>
    <td><a href="Lastnew.asp?pageno=<%=pageno+1%>&amp;findcontent=<%=content%>">下一页</font></a></td>
    <td><a href="Lastnew.asp?pageno=<%=total%>&amp;findcontent=<%=content%>">尾页</font></a></td>
    <% end if%>
  </tr>
</table>
<%end if%>
</BODY></HTML>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -