⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 news.asp

📁 asp游戏点卡销售系统,基本东西,代码+实现
💻 ASP
字号:
🔍 
<!--#include file="conn.asp"-->
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="GENERATOR" content="Microsoft FrontPage 4.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title>最新消息</title>
<link rel="stylesheet" href="images/css.css" type="text/css">
</head>
<%
    set rs=server.createobject("adodb.recordset")
    sqlstr="select * from book order by id desc"
    rs.open sqlstr,conn,1,1
%>

<script language="JavaScript" type="text/JavaScript">  
	  
  
	function MM_openBrWindow(theURL,winName,features)  
	{  
	  window.open(theURL,winName,features);  
	}  
</script>  
<body bgcolor="#FFFFFF" topmargin="0" leftmargin="0">
<TABLE cellSpacing=0 cellPadding=0 width="500" align=center                     
border=0 height="99">
  <TR> 
    <TD colspan="3" height="141"><img src="images/new_logo.gif" width="227" height="137"></TD>
  </TR>
  <TR bgcolor="#EDDEA0"> 
    <TD colspan="3" height="4"></TD>
  </TR>
  <TR bgcolor="#FBF7E6"> 
    <TD colspan="3" height="4"></TD>
  </TR>
  <TR bgcolor="#FFFFFF"> 
    <TD colspan="3" height="12"></TD>
  </TR>
  <TBODY> 
  <%  
shownum=10  
totalrecord=rs.recordcount  
rs.pagesize=shownum  
maxpage=rs.pagecount  
  
requestpage=clng(request.querystring("page"))  
  
if requestpage="" or requestpage=0 then  
   requestpage=1  
end if  
if resquestpage>maxpage then  
    resquestpage=maxpage  
end if  
  
if not requestpage=1 then  
rs.move (requestpage-1)*rs.pagesize  
end if  
for i=1 to rs.pagesize and not rs.bof%>
  <TR> 
    <TD width="26" height="20" align="center"> <font face="Wingdings" size="3" color="#CC0000">w</font></TD>
    <TD width="318" height="20"><a href="#" onClick="MM_openBrWindow('show_book.asp?id=<%=rs("id")%>','','left=180,top=100,width=400,height=300')"><%=rs("title")%></a></TD>
    <TD height=20 width="156" align="center"><%=rs("riqi")%></TD>
  </TR>
  <%  
rs.movenext  
if rs.eof then exit for  
next  
%>
  <TR> 
    <TD colspan="3" height="10"></TD>
  </TR>
  <TR bgcolor="#EDDEA0"> 
    <TD colspan="3" height="4"></TD>
  </TR>
  <tr bgcolor="#FBF7E6"> 
    <TD colSpan=3 height=25 align=center> 
      <%  
if requestpage-1 mod 10=0 then  
 p=(requestpage-1) \ 10  
else  
 p=(requestpage-1) \ 10  
end if  
if requestpage=1 then  
 response.write "<font face=webdings color=#000000>9</font> "  
else  
 response.write " <a href=news.asp?page=1 title=首页><font face=webdings color=#ff0000>9</font></a> "  
end if  
if p*10>0 then response.write " <a href=news.asp?page="&p*10&" title=上十页><font face=webdings color=#ff0000>7</font></a> "  
response.write "<b>"  
for ii=p*10+1 to P*10+10  
   if ii=requestpage then  
  response.write " <font color=#000000>"&ii&"</font> "  
 else  
  response.write " <a href=news.asp?page="&ii&"><font color=#ff0000>"&ii&"</font></a> "  
 end if  
 if ii=maxpage then exit for  
next  
response.write "</b>"  
if ii<maxpage then response.write " <a href=news.asp?page="&ii&" title=下十页><font face=webdings color=#ff0000>8</font></a> "  
if requestpage=maxpage then  
 response.write " <font face=webdings color=#000000>:</font> "  
else  
 response.write " <a href=news.asp?page="&maxpage&" title=尾页><font face=webdings color=#ff0000>:</font></a> "  
end if  
response.write"　共 <font color=#ff0000>"&maxpage&"</font> 页"   

%>
    </TD>
  </tr>
  </TBODY> 
</TABLE>
</body>

</html>

⌨️ 快捷键说明

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