您的当前位置:首页 > 软件资讯

asp 分页 上_一页 下一页代码

2020-08-04 05:44:26

<%if request("typeid")=3 thenset rs=server.CreateObject("adodb.recordset") rs.open "select cdkey88_news.*,cdkey88_game.game_name from cdkey88_news,cdkey88_game where cdkey88_news.game_id=cdkey88_game.game_id and ( cdkey88_news.news_title like '%"&request("keywords")&"%' or cdkey88_news.news_content like '%"&request("keywords")&"%' or cdkey88_game.game_name like '%"&request("keywords")&"%') order by cdkey88_news.news_id desc",conn,1,1%><table width="960" border="0" cellpadding="0" cellspacing="4" align="center" bgcolor="#FFFFFF"> <!DWLayoutTable> <tr> <td width="700" height="206" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0"> <% if rs.eof thenresponse.write"<tr><td colspan=9 height=50 align=center><font color=#ff0000>对不起,没有找到相关记录!</font></td></tr>"end ifif rs.recordcount<>0 thenrs.pagesize=20 if request("page")<>"" thencurrentpage=cint(request("page"))elsecurrentpage=1end ifif currentpage<=1 thencurrentpage=1end ifif currentpage=>rs.pagecount thencurrentpage=rs.pagecountend ifrs.AbsolutePage=currentpageend ifdo while not rs.eof %> <tr> <td width="700" height="131" valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0"> <!DWLayoutTable> <tr> <td width="700" height="30" valign="middle">&nbsp;<a href="news/show_news.asp?news_id=<%=rs("news_id")%>" target="_blank"><font color="#669933" style="font-size:14px"><b><%=rs("news_title")%></b></font></a></td> </tr> <tr> <td width="700" height="25" valign="middle">&nbsp;相关游戏