jinhua.asp

购物系统(本版为正式商业版

end if                                                                                                                                                 
rs.open sql, conn, 1, 3                                                                    
shownum=20                                                                                                                                                     
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  bgcolor="#ffffff" onMouseOver='JavaScript:this.style.backgroundColor="#F7FEFF"' onMouseOut='JavaScript:this.style.backgroundColor="ffffff"'>
              <script>bbslist("<%=rs("id")%>","<%=rs("faceimg")%>","<%=rs("title")%>","<%=rs("username")%>","<%=rs("reply")%>","<%=rs("hits")%>","<%=rs("ldate")%>","<%=rs("lastname")%>","<%=rs("gd")%>","<%=rs("good")%>","<%=rs("lock")%>");</script>
             </tr><%                                                                                                                                                  
rs.movenext                                                                                                                                                  
if rs.eof then exit for                                                                                                                                                  
next   
%>
            </table>
            <table width="100%" height="60" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td width="50%"></td>
                <td width="50%"></td>
              </tr>
              <tr>
                <td width="50%">页次：
                    <%if request.querystring("page")="" then %>
                    1
                    <%else%>
                    <%=request.querystring("page")%>
                    <%end if%>
      / <%=maxpage%>页 每页：<%=shownum%> 主题数：<%=totalrecord%></td>
                <td width="50%">
                  <p align="right">
                    <%                                                                                                                                               
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=""#FF0000"">9</font>"                                                                                                                                               
else                                                                                                                                               
 response.write "<a href=?bid="&bid&"&findstr="&findstr&"&page=1 title=首页><font face=webdings>9</font></a>"                                                                                                                                               
end if                                                                                                                                               
if p*10>0 then response.write "<a href=?bid="&bid&"&findstr="&findstr&"&page="&p*10&" title=上十页><font face=webdings>7</font></a>"                                                                                                                                               
response.write "<b>"                                                                                                                                               
for ii=p*10+1 to P*10+10                                                                                                                                               
   if ii=requestpage then                                                                                                                                               
  response.write "<font color=""#FF0000"">"&ii&"</font> "                                                                                                                                               
 else                                                                                                                                               
  response.write "<a href=?bid="&bid&"&findstr="&findstr&"&page="&ii&">"&ii&"</a>   "                                                                                                                                               
 end if                                                                                                                                               
 if ii=maxpage then exit for                                                                                                                                               
next                                                                                                                                               
response.write "</b>"                                                                                                                                               
if ii<maxpage then response.write "<a href=?bid="&bid&"&findstr="&findstr&"&page="&ii&" title=下十页><font face=webdings>8</font></a>"                                                                                                                                               
if requestpage=maxpage then                                                                                                                                               
 response.write "<font face=webdings color=""#FF0000"">:</font>   "                                                                                                                                               
else                                                                                                                                               
 response.write "<a href=?bid="&bid&"&findstr="&findstr&"&page="&maxpage&" title=尾页><font face=webdings>:</font></a>"                                                                                                                                               
end if                                                                                                                                               
response.write"    总共有"&maxpage&"页   "                                                                                                                                                
rs.Close                                                                                                                                                           
set rs=nothing                                                                                                                                               
%>
                </td>
              </tr>
              <tr>
                <form method="post" action="?bid=<%=bid%>">
                  <td width="50%">快速查找：
                      <input name="findstr" type="text" class="wenbenkuang" size="20">
                      <input name="Submit2" type="submit" class="go-wenbenkuang" value="查 找"></td>
                </form>
                <td width="50%">
                  <p align="right">
                    <select name="select" onchange="if(this.options[this.options.selectedIndex].value!='0')window.location.href='list.asp?bid=' + this.options[this.options.selectedIndex].value ">
                      <option value='0'>论坛跳转至……</option>
                      <%                               
    set rs1=server.createobject("adodb.recordset")                               
    sqlstr="select * from board order by px"                               
    rs1.open sqlstr,conn,1,1     
    do while not rs1.eof                               
    %>
                      <option value='<%=rs1("bid")%>'><%=rs1("bidname")%></option>
                      <%rs1.movenext                                         
loop                        
   rs1.Close                    
set rs1=nothing %>
                    </select>
                </td>
              </tr>
            </table>
            <div align="center"><font color="666666">栏目图例&nbsp;<img src="images/Order_16.gif" width="17" height="17">总固顶主题 ‖<img src="images/top.gif" width="17" height="17">固顶主题 ‖ <img src="images/Order_18.gif" width="11" height="15">精华帖子 ‖ <img src="images/Order_19.gif" width="13" height="12">投票贴子 ‖ <img src="images/Order_15.gif" >锁定的主题 ‖ <img src="images/Order_13.gif" width="26" height="15">开放的主题</font> </div>            <p>&nbsp;</p>
          <p>&nbsp;</p></td>
        </tr>
    </table></td>
  </tr>
</table>
<!--#include file="../copyright.asp"-->