index_book.asp

asp游戏点卡销售系统,基本东西,代码+实现

<!--#include file="conn.asp"-->
<%
    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>  
<TABLE cellSpacing=0 cellPadding=0 width="430" align=center                     
border=0>
  <TBODY> 
  <%  
shownum=8  
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="22" height="20" align="center"> <font face="Wingdings" size="3" color="#CC0000">w</font></TD>
    <TD width="255" 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="153" align="center"><%=rs("riqi")%></TD>
  </TR>
  <%  
rs.movenext  
if rs.eof then exit for  
next  
%>
  </TBODY> 
</TABLE>