<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<HTML><HEAD><TITLE>咕噜噜电子商务--产品信息-<%
					  leixing=lcase(trim(request("lx")))
					  leixing=replace(leixing,"'","")
					  select case leixing
					  case "big"
					  	response.write "大类产品"
					  case "small"
					  	response.write "小类产品"
					  case "tejia"
					  	response.write "特价产品"
					  	  case "tuijian"
					  	response.write "推荐产品"
					  case "news"
					  	response.write "新品上架"
					  case else
					  	response.write "新品上架"					  
					  end select%></TITLE>
<meta name="description" content="免费建站 网上开店 免费网上开店 网上购物 电脑 网络 软件 随身视听 家用电器 音响 照相机 摄像机 数码产品 手机 电话 鲜花 玩具 礼品 游戏 汽车 摩托 服装 鞋帽 箱包 服饰 香水 彩妆 化妆品 保健品 珠宝首饰 影视 音乐 音像 动漫 办公用品 设备 耗材 运动休闲 户外野营 居家 日用 装饰 宠物 邮币 古董 字画 收藏 乐器 明星 工艺品 游戏卡 电话卡 邮箱卡 成人用品 情趣用品"> 
<meta name="keywords" content="免费建站,网上开店,免费网上开店,网上购物">
<META http-equiv=Content-Type content='text/html; charset=gb2312'>
<LINK href=imagess/shop.css type=text/css rel=stylesheet>
<style type="text/css">
<!--
.style3 {
	color: #000000;
	font-weight: bold;
	font-size: 12px;
}
.gogo {
	border-bottom-width: 1px;
	border-bottom-style: solid;
	border-bottom-color: #CCCCCC;
}
.style4 {
	color: #FF0000;
	font-weight: bold;
}
.style5 {color: #FF0000}
.style6 {color: #FFFFFF}
.style7 {
	color: #CCCCCC;
	font-weight: bold;
}
-->
</style>
</HEAD>
<NOSCRIPT><IFRAME SRC=*.html></IFRAME></NOSCRIPT>
<table width=100%' border=0 align=center  cellpadding=0 cellspacing=0>
  <tr>
 <td><!--#include file=top.asp--></td>
  </tr>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#E1E1E1">
<%leixing=lcase(trim(request("lx")))
if InStr(leixing,"'")>0 then
response.write"<script>alert(""非法访问!"");location.href=""../index.asp"";</script>"
response.end
end if
  'leixing=replace(leixing,"'","")
					select case leixing
					case "big"
					anclassid=trim(request("anid"))
					
if not isnumeric(anclassid) then 
response.write"<script>alert(""非法访问!"");location.href=""../index.asp"";</script>"
response.end
else
if not isinteger(anclassid) then
response.write"<script>alert(""非法访问!"");location.href=""../index.asp"";</script>"
else
					
					set rs=server.createobject("adodb.recordset")
					rs.open "select * from shop_anclass where anclassid="&anclassid,conn,1,1
					anclassname=rs("anclass")
					
					%>
<tr>
<td colspan="3" height=20><a href=index.asp><b>搜索结果</b>&gt;&gt;<%=webname%></a> >> <%=anclassname%></td>        
</tr>
<tr>
  <td colspan="3" >
  <div align="center">
    <table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="#E1E1E1">
	  <%
set rs_s=server.CreateObject("adodb.recordset")
rs_s.open "select * from shop_nclass where anclassid="&rs("anclassid")&" order by nclassidorder",conn,1,1
if rs_s.recordcount=0 then 
%>
      <tr>
        <td width="100%" height="18" align="center" colspan="8">暂无小分类</td>
      </tr>
      <%
else
i=0
while not rs_s.eof
%>
      <tr>
        <td  height="18"><a href="class.asp?lx=small&anid=<%=rs("anclassid")%>&nid=<%=rs_s("nclassid")%>"><u><%=rs_s("nclass")%></u></a>
            <%rs_s.movenext
	if rs_s.eof then 
	response.write " "
	else
%>
        </td>
        <td ><a href="class.asp?lx=small&anid=<%=rs("anclassid")%>&nid=<%=rs_s("nclassid")%>"><u><%=rs_s("nclass")%></u></a>
            <%rs_s.movenext
	if rs_s.eof then 
	response.write " "
	else
%>
        </td>
        <td ><a href="class.asp?lx=small&anid=<%=rs("anclassid")%>&nid=<%=rs_s("nclassid")%>"><u><%=rs_s("nclass")%></u></a>
            <%rs_s.movenext
	if rs_s.eof then 
	response.write " "
	else
%>
        </td>
        <td ><a href="class.asp?lx=small&anid=<%=rs("anclassid")%>&nid=<%=rs_s("nclassid")%>"><u><%=rs_s("nclass")%></u></a>
            <%rs_s.movenext
	if rs_s.eof then 
	response.write " "
	else
%>
        </td>
        <td ><a href="class.asp?lx=small&anid=<%=rs("anclassid")%>&nid=<%=rs_s("nclassid")%>"><u><%=rs_s("nclass")%></u></a>
            <%rs_s.movenext
	if rs_s.eof then 
	response.write " "
	else
%>
        </td>
        <td ><a href="class.asp?lx=small&anid=<%=rs("anclassid")%>&nid=<%=rs_s("nclassid")%>"><u><%=rs_s("nclass")%></u></a> </td>
        <%
rs_s.movenext
end if
end if
end if
end if
end if
wend
end if
end if
end if
%>
      </tr>
    </table>
  </div>  
  </td>
</tr>






<%
					  case "small"
					  	anclassid=request("anid")
						if not isnumeric(anclassid) then 
response.write"<script>alert(""非法访问!"");location.href=""../index.asp"";</script>"
response.end
else
if not isinteger(anclassid) then
response.write"<script>alert(""非法访问!"");location.href=""../index.asp"";</script>"
else
					  	nclassid=request("nid")
						if not isnumeric(nclassid) then 
response.write"<script>alert(""非法访问!"");location.href=""../index.asp"";</script>"
response.end
else
if not isinteger(nclassid) then
response.write"<script>alert(""非法访问!"");location.href=""../index.asp"";</script>"
else
					  	set rs=server.createobject("adodb.recordset")
					  	rs.open "select * from shop_anclass where anclassid="&anclassid,conn,1,1
						anclassname=rs("anclass")
						rs.close
					  	rs.open "select * from shop_nclass where nclassid="&nclassid,conn,1,1
						nclassname=rs("nclass")
						rs.close
					  %>
<tr><td colspan="3" height=20 bgcolor="#E1E1E1"><a href=index.asp><b>搜索结果</b>&gt;&gt;</a><a href=index.asp><%=webname%></a> >> <a href=class.asp?lx=big&anid=<%=anclassid%>><%=anclassname%></a> >> <%=nclassname%></td>        
</tr>
<%
end if 
end if
end if
end if

case "tejia"%>
<tr><td colspan="3" height=20 bgcolor="#E1E1E1"><a href=index.asp><b>搜索结果</b>&gt;&gt;</a><a href=index.asp><%=webname%></a> >> 特价促销</td>        
</tr>
<%case "tuijian"%>
<tr><td colspan="3" height=20 bgcolor="#E8E8E8"><a href=index.asp><b>搜索结果</b>&gt;&gt;</a><a href=index.asp><%=webname%></a> >> 推荐产品</td>                     
</tr>
<%case "hot"%>
<tr><td colspan="3" height=20 bgcolor="#E1E1E1"><a href=index.asp><b>搜索结果</b>&gt;&gt;</a><a href=index.asp><%=webname%></a> >> 热卖排行</td>        
</tr>
<%case "news"%>
<tr><td colspan="3" height=20 bgcolor="#E1E1E1"><a href=index.asp><b>搜索结果</b>&gt;&gt;</a><a href=index.asp><%=webname%></a> >> 最新上架</td>        
</tr>
<%case else%>
<tr><td colspan="3" height=20 bgcolor="#E1E1E1"><a href=index.asp><b>搜索结果</b>&gt;&gt;</a><a href=index.asp><%=webname%></a> >> 最新上架</td>        
</tr>
<%end select%>
</table>
<table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="5" colspan="2" bgcolor="#E1E1E1"></td>
  </tr>
  <tr>
    <td width="190" align="center" valign="top"> 
      <table width="190" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="89" background="imagess/please_list_left_1.gif"><b><font color="ffffff"> 
            &nbsp;&nbsp;筛选产品</font></b></td>
          <td width="101" align="right" background="imagess/please_list_left_2.gif">
			<IMG SRC="imagess/please_list_left_3.gif" WIDTH=5 HEIGHT=29 ALT=""></td>
        </tr>
      </table>
      <table width="190" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="1" bgcolor="FF9A56"></td>
          <td width="188"><!--#include file="search_888.asp"-->           
          <td width="1" bgcolor="FF9A56"></td>
        </tr>
        <tr>
          <td width="1" bgcolor="FF9A56"></td>
          <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="22" bgcolor="FF9A56"><b>&nbsp;&nbsp;<font color="#FFFFFF">产品分类浏览</font></b></td>
              </tr>
              <tr>
                <td height="2" bgcolor="#FFC8A4"></td>
              </tr>
              <tr> 
                <td> <tr><td height=22 colspan=3><!--#include file="bigclass.asp"--></td></tr> 
            </table>
          <td width="1" bgcolor="FF9A56"></td>
        </tr>
      </table>
      <table width="190" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="3"><img src="imagess/please_list_left_4.gif" width="3" height="3"></td>
          <td width="184" height="3" background="imagess/please_list_left_5.gif">
			<img src="imagess/please_list_left_5.gif" width="2" height="3"></td>
          <td width="3"><img src="imagess/please_list_left_6.gif" width="3" height="3"></td>
        </tr>
      </table>
      <br> <table width="190" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="89" background="imagess/please_list_left_7.gif"><b><font color="ffffff"> 
            &nbsp;&nbsp;购物车</font></b></td>
          <td width="101" align="right" background="imagess/please_list_left_8.gif">
			<IMG SRC="imagess/please_list_left_9.gif" WIDTH=5 HEIGHT=29 ALT=""></td>
        </tr>
      </table>
      <table width="190" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="1" bgcolor="EB5A00"></td>
          <td width="188"> 
            <table width=100% border=0 cellspacing=0 cellpadding=2><tr><td height=100 align=center valign=middle><!--#include file="gouwucheinfo.asp"--></td>
            </tr></table>
          </td>
          <td width="1" bgcolor="EB5A00"></td>
        </tr>
      </table>
      <table width="190" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="3"><img src="imagess/please_list_left_10.gif" width="3" height="3"></td>
          <td width="184"  height="3" background="imagess/please_list_left_11.gif">
			<img src="imagess/please_list_left_11.gif" width="2" height="3"></td>
          <td width="3"><img src="imagess/please_list_left_12.gif" width="3" height="3"></td>
        </tr>
      </table>
      <br></td>
    <td align="center" valign="top"> 
      <div align="right">
      <table width="98%" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td width=3 height="30" nowrap bgcolor="#FF6600">
			<IMG SRC="imagess/please_list_main_1.gif" WIDTH=3 HEIGHT=30 ALT=""></td>
          <form action="imagess/search.asp" name="search_s" method="get">
            <td nowrap bgcolor="#FF6600">
              <table width="532" border="0" cellpadding="0" cellspacing="0">
                <tr>
                  <td width="404"><span class="style6"><strong>显示方式</strong>：<B><a href="class.asp"><font color="#ffffff">列表方式</font></a></B> | <strong><a href="class1.asp"><font color="#ffffff">图片方式</font></a></strong> | <span class="style7">文本方式</span></span></td>        
                  <td width="128"><b></b></td>
                </tr>
              </table>
            </td>
            <td width=3 nowrap bgcolor="#FF6600">
			<IMG SRC="imagess/please_list_main_2.gif" WIDTH=3 HEIGHT=30 ALT=""></td>
          </form>
        </tr>
      </table>
      </div>
      <div align="right">
      <table width="98%"  border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="1" valign="top" bgcolor="e1e1e1"></td>
          <td valign="top"> 
            <table width=99% height=30 align=center cellpadding=0 cellspacing=0 bgcolor="#FDFBF5"><tr>
              <td align=center valign=bottom><br><%set rs=server.createobject("adodb.recordset")
		if leixing="big" then
			rs.open "select * from shop_books where anclassid="&anclassid&" order by adddate desc",conn,1,1
		elseif leixing="small" then
			rs.open "select * from shop_books where anclassid="&anclassid&" and nclassid="&nclassid&" order by adddate desc",conn,1,1
		elseif leixing="hot" then
			rs.open "select * from shop_books order by chengjiaocount desc",conn,1,1
		elseif leixing="tejia" then
			rs.open "select * from shop_books where tejiabook=1 and info=0 and info=0 order by adddate desc",conn,1,1
				   elseif leixing="tuijian" then
			rs.open "select * from shop_books where bestbook=1 and info=0 and info=0 order by adddate desc",conn,1,1
		elseif leixing="news" then
			rs.open "select * from shop_books where newsbook=1 and info=0 and info=0 order by adddate desc",conn,1,1
		else
			rs.open "select * from shop_books where info=0 order by adddate desc",conn,1,1
		end if
		if rs.recordcount=0 then 
		%>
        <table width="370" border="0" cellspacing="0" cellpadding="5" align="center">
        <tr><td align=center>暂无产品</td></tr>
        </table>
        <%
		else
	  		rs.PageSize =20 '每页记录条数
			iCount=rs.RecordCount '记录总数
			iPageSize=rs.PageSize
    		maxpage=rs.PageCount 
    		page=request("page")
    
    if Not IsNumeric(page) or page="" then
        page=1
    else
        page=cint(page)
    end if
    
    if page<1 then
        page=1
    elseif  page>maxpage then
        page=maxpage
    end if
    
    rs.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if
	
			For i=1 To x
		%>
		
<table width="100%" height="92" border="0" align="center" cellpadding="10" cellspacing="0" class="gogo">
<tr bgcolor=#f9f9f9 onMouseOver=this.style.backgroundColor='#EDF6FF' onMouseOut=this.style.backgroundColor='#f9f9f9'><td  width="60%" rowspan="3" bgcolor="#f9f9f9" class="table-you" align="center"> 
  <div align="left"><a href=list.asp?id=<%=rs("bookid")%> ></a><a href=list.asp?id=<%=rs("bookid")%> class="style3" ><u>
    <%
response.write trim(rs("bookname"))%>
    </u></a>
      <%set rs_shjia=server.createobject("adodb.recordset")
rs_shjia.open "select * from shjia where username='"&rs("shjianame")&"'",conn,1,1
if rs_shjia.recordcount<>"0" then
response.write "[ <a href=user/index.asp?id="&rs_shjia("shjiaid")&" ><font color=blue>"
response.write trim(rs_shjia("name"))
response.write "</font></a> ]"
end if
rs_shjia.close
set rs_shjia=nothing
%>  
      <br>  
      <%if len(trim(rs("bookcontent")))>150 then
	response.write left(trim(rs("bookcontent")),120)&"..."
	else
	response.write trim(rs("bookcontent"))
	end if%>  
      <font color="#666666"> 
      <br>
      </font><span class="style4">市场价：<s><%=trim(rs("shichangjia"))%> 元</s>会员价：<%=trim(rs("huiyuanjia"))%> 元</span><br>发布时间：<%=trim(rs("adddate"))%></div></td>
  <td  width="10%" rowspan="3" bgcolor="#f9f9f9" class="table-you" align="center"> 
  <%
  set rs_shjia=server.createobject("adodb.recordset")
rs_shjia.open "select * from shjia where username='"&rs("shjianame")&"'",conn,1,1
response.write "<font color=black><b>"
response.write ""&left(rs_shjia("dz"),5)&""
response.write "</b></font>"
rs_shjia.close
set rs_shjia=nothing
%></td>
  <td  width="10%" rowspan="3" bgcolor="#f9f9f9" class="table-you" align="center"> 
  <span class="style4">  <%
  set rs_shjia=server.createobject("adodb.recordset")
rs_shjia.open "select * from shjia where username='"&rs("shjianame")&"'",conn,1,1
if rs_shjia("oicq")=rs_shjia("oicq") then
response.write "<a target=blank href=http://wpa.qq.com/msgrd?V=1&Uin="&rs_shjia("Oicq")&"&Site=咕噜噜电子商务&Menu=yes><font color=blue>"
response.write "<img border=0 SRC=http://wpa.qq.com/pa?p=1:"&rs_shjia("Oicq")&":1 alt=点击这里与商家联系>"
response.write "</font></a> "
else
response.write "<a href=user/gbook.asp?id="&rs_shjia("shjiaID")&"><img src=images/qq3.gif width=85 height=23 border=0></a>"
end if
rs_shjia.close
set rs_shjia=nothing
%></span></td>
</tr>
</table>

        <%rs.movenext
		next
		call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
		end if
		rs.close
		set rs=nothing
Sub PageControl(iCount,pagecount,page,table_style,font_style)
'生成上一页下一页链接
    Dim query, a, x, temp
    action = "http://" & Request.ServerVariables("HTTP_HOST") & Request.ServerVariables("SCRIPT_NAME")

    query = Split(Request.ServerVariables("QUERY_STRING"), "&")
    For Each x In query
        a = Split(x, "=")
        If StrComp(a(0), "page", vbTextCompare) <> 0 Then
            temp = temp & a(0) & "=" & a(1) & "&"
        End If
    Next

    Response.Write("<table width=100% border=0 cellpadding=0 cellspacing=0>" & vbCrLf )        
    Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR bgcolor=#ffffff>" & vbCrLf )
    Response.Write("<TD align=center height=35>" & vbCrLf )
    Response.Write(font_style & vbCrLf )    
        
    if page<=1 then
        Response.Write ("首 页 " & vbCrLf)        
        Response.Write ("上一页 " & vbCrLf)
    else        
        Response.Write("<A HREF=" & action & "?" & temp & "Page=1>首 页</A> " & vbCrLf)
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">上一页</A> " & vbCrLf)
    end if

    if page>=pagecount then
        Response.Write ("下一页 " & vbCrLf)
        Response.Write ("尾 页 " & vbCrLf)            
    else
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page+1) & ">下一页</A> " & vbCrLf)
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & pagecount & ">尾 页</A> " & vbCrLf)            
    end if

    Response.Write(" 页次：" & page & "/" & pageCount & "页" &  vbCrLf)
    Response.Write(" 共有" & iCount & "种产品" &  vbCrLf)
    Response.Write("</TD>" & vbCrLf )                
    Response.Write("</TR></form>" & vbCrLf )        
    Response.Write("</table>" & vbCrLf )        
End Sub
%>

</td>
			</tr></table> </td>
          <td width="1" valign="top" bgcolor="e1e1e1"></td>
        </tr>
      </table>
      </div>
      <div align="right">
      <table width="98%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="3"><img src="imagess/please_list_left_4.gif" width="3" height="3"></td>
          <td width="100%" height="3" background="imagess/please_list_left_5.gif">
			<img src="imagess/please_list_left_5.gif" width="2" height="3"></td>
          <td width="3"><img src="imagess/please_list_left_6.gif" width="3" height="3"></td>
        </tr>
      </table>
      </div>
    </td>
  </tr>
</table>
<!--#include file="copyright.asp"-->
</html>

























