gq.asp

是一个电子商务网站系统,提供前后台交易源码.

<!--#include file="top.asp" -->
<!--#include file="inc/chr.asp" -->
<%

strtype=RtnReplaceInt(Request("type"),2)
kword=request("kword")
Select case strtype
	
			Case 1
		  	strname="zwgk"
		  	strname1="本站动态"
		  			Case 2
		  	strname="zwgk"
		  	strname1="市场动态"
	  End Select
%>
<TITLE><%=title%>—<%=strname1%></TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">

<LINK 
href="imgb/style.css" type=text/css 
rel=stylesheet>
<TABLE cellSpacing=0 cellPadding=0 width=770 align=center border=0>
  <TBODY>
  <TR><TD vAlign=top width=176 bgColor=#99ccff>
    <!--#include file="left.asp" --></TD>
    <TD bgColor=#ffffff valign="top">
<TABLE 
      style="BACKGROUND-POSITION: right top; BACKGROUND-IMAGE: url(img/hwxx_bg1.jpg); BACKGROUND-REPEAT: no-repeat" 
      cellSpacing=0 cellPadding=0 width=582 border=0>
        <TBODY>
        <TR>
          <TD><img border="0" src="hw.asp12.gif" width="595" height="23"></TD></TR>
        <TR>
          <TD><SPAN class=style7>您现在的位置 》</SPAN><strong><%=strname1%> </strong></TD></TR>
        <TR>
          <TD></TD></TR>
        <TR>
          <TD height=6></TD></TR>
        <TR>
          <TD height=6></TD></TR>
        <TR>
          <TD height=6>
<table width="589" border="0" id="table9">
	<tr>
		<td>
<table border="0" style="border-collapse: collapse" width="99%" cellpadding="0">
					<tr>
						<td><td vAlign="top" width="557">
			<table cellSpacing="0" cellPadding="0" width="95%" align="center" border="0">
				<tr>
					<td align="middle"><table border="0" style="border-collapse: collapse" width="98%" cellpadding="0">
						<%
if kword<>"" then
set rs=Server.CreateObject("ADODB.Recordset")
'分页代码1#######
 if not isempty(request("page")) then   
     pagecount=cint(request("page"))   
     else   
     pagecount=1   
     end if
'分页代码结束1######
sql="select id,stype,time,hits,tit,D_SavePathFileName from qynews where stype="&strtype&" and (tit like '%"&kword&"%') "
sql=sql&"order by id desc"
rs.open sql,conn,1,1
%><div align="center"> 
        <center>
          <table border="0" cellpadding="0" cellspacing="0" width="79%" bordercolor="#000000" bordercolorlight="#000000" bordercolordark="#FFFFFF" class="unnamed2" >
            <tr> 
              <td width="99%"> 
                <p align="center">&nbsp;查询结果—共有<font color="#000073">（<%=rs.recordcount%>）</font>条信息符合关键词:<font color="#000073"><%=request("kword")%></font> 
              </td>
            </tr>
          </table>
        </center>
      </div>
<%end if
 if kword="" then
 set rs=server.CreateObject("Adodb.Recordset")
 '分页代码1#######
 if not isempty(request("page")) then   
     pagecount=cint(request("page"))   
     else   
     pagecount=1   
     end if
'分页代码结束1######
sql="select id,stype,time,hits,tit,D_SavePathFileName from qynews where stype="&strtype&" order by id desc"
rs.open sql,conn,1,1
end if
if rs.eof and rs.bof then  
response.write "<p align=center>没有符合条件的记录！<br>【<a href='javascript:window.close()'>关闭窗口</a>】</p>"
response.end
end if 
'分页代码2#######
rs.pagesize=10
if pagecount>rs.pagecount or pagecount<=0 then              
pagecount=1              
end if              
     rs.AbsolutePage=pagecount
'分页代码2结束####### %>
<%if mmm<>0 then         
 	for iisf=1 to mmm * 16      
  		if rs.eof then exit for         
 		rs.movenext         
  	next         
     end if 
     do while not rs.eof
%>
<!--结束--><tr>
							<td>· <%if rs("D_SavePathFileName")<>"" then%>[图]<%end if%><%if rs("stype")=2 then%><a href="gq.asp?type=2&id=<%=id%>"></a>
							  <%end if%><%if rs("stype")=3 then%>
							  <%end if%><a href="showgq.asp?vid=<%=rs("id")%>" target="_blank"><%=rs("tit")%></a> [<%=rs("time")%>,<%=rs("hits")%>]</td>
						</tr><%i=i+1                                                                                                  
          rs.movenext                                                                                                  
          if i>=rs.PageSize then exit do 
		  loop 
%>
<tr>
							<td><div align="center">
      <table width="98%" border="0" cellspacing="1" cellpadding="0">
        <% if rs.pagecount=1 then %>
        
          <td height="6" colspan="4" valign="bottom" align="right"> <font color="#000000">共有[<font color="#ff0000"><%=rs.recordcount%></font>]条记录 
            以上是[<font color="red">1～<%=rs.recordcount%></font>]条</font></td>             
        </tr>
        <tr>
          <td width="600" height="7" colspan="4" valign="bottom" align="right"></td>
        </tr>
        <%else%>
		<tr>
		  <td height="6" colspan="4" valign="bottom" align="right"><font color="#000000"> 
            <% page_start=(pagecount-1)*rs.pagesize
            if pagecount=1 then page_start=1
		    page_end=rs.pagesize*pagecount
		    if pagecount*rs.pagesize=>rs.recordcount then page_end=rs.recordcount end if%>
            共有[<font color="#ff0000"><%=rs.recordcount%></font>]条记录 以上是[<font color="red"><%=page_start%>～<%=page_end%></font>]条</font></td>          
        </tr>
        <tr>
		  <td height="6" colspan="4" valign="bottom" align="right"> 
            <% response.write"<form name=go2to form method=Post action='?kword="&kword& "&type="&strtype&"'>"
		     response.write "<font color='#000064'>◆&nbsp;</font>"                                              
		     if pagecount=1 then                                                        
			 response.write "<font color='#000064'>首页 上一页</font>&nbsp;"
			 else                                                        
             response.write "<a href=?kword="&kword& "&type="&strtype&"&page=1><font color='0000BE'>首页</font></a>&nbsp;" 
	         response.write "<a href=?kword="&kword& "&type="&strtype&"&page="+cstr(pagecount-1)+"><font color='0000BE'>上一页</font></a>&nbsp;"
			 end if                                             
             if rs.PageCount-pagecount<1 then                                                        
             response.write "<font color='#000064'>下一页 尾页</font>"                                                    
			 else                                                        
             response.write "<a href=?kword="&kword& "&type="&strtype&"&page="+cstr(pagecount+1)+"><font color='0000BE'>下一页</font></a>&nbsp;"
			 response.write "<a href=?kword="&kword& "&type="&strtype&"&page="+cstr(rs.PageCount)+"><font color='0000BE'>尾页</font></a>"           
             end if 
			 response.write "<font color='000064'>&nbsp;页次:<font color=blue>"&pagecount&"</font>/"&rs.pagecount&"页</font>"       
            response.write "</form>"%></td>
        </tr>
      
	  <%end if%>
</table>
      </div>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
</td>
						</tr>
					</table>
					</td></tr>
				</table></tr>
				</table></td>
	</tr>
	</table>
</TD></TR>
        <TR>
          <TD></TR></TBODY></TABLE></TD></TR>
  </TBODY></TABLE>
<!--#include file="end.asp" -->
</BODY></HTML>