<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<HTML><HEAD>
<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>
<script language="javascript" id="clientEventHandlersJS"> 
<!-- 
function document_oncontextmenu() { 
//你可以在这里添加自定义代码 
return false; 
} 
//--> 
</script> 
<script language="javascript" event="oncontextmenu" for="document"> 
<!-- 
return document_oncontextmenu() 
//--> 
</script> 
<style type="text/css">
<!--
.shushu {
	border-bottom-width: 1px;
	border-bottom-style: solid;
	border-bottom-color: #CCCCCC;
}
-->
</style>
<TITLE>[咕噜噜电子商务]--二手 服饰 鲜花 礼品 生活用品 手机 MP3 电脑 --品牌站点</TITLE>
<LINK href=imagess/shop.css type=text/css rel=stylesheet>
</HEAD>
<!--#include file=top.asp-->
<NOSCRIPT><IFRAME SRC=*.html></IFRAME></NOSCRIPT>
<table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
<%leixing=lcase(trim(request("lx")))
if InStr(leixing,"'")>0 then
response.write"<script>alert(""非法访问!"");location.href=""../index.asp"";</script>"
response.end
end if
select case leixing
case ""
%>  <tr>
  <td height="30" colspan="2" valign="bottom" bgcolor="#EAEAEA"><a href="speciality.asp">品牌站点</a> <a href=index.asp><%=webname%></a>                                    
    >> <a href="speciality.asp">所有站点浏览检索</a></tr>                                   
<%
case "big"
anclassid=trim(request("anid"))
if not isnumeric(anclassid) then 
response.write"<script>alert(""非法访问!"");location.href=""../index.asp"";</script>"
response.end
end  if
set rs=server.createobject("adodb.recordset")
rs.open "select * from shop_anclass where anclassid="&anclassid,conn,1,1
anclassname=rs("anclass")
%>
<tr>
  <td height=10 bgcolor="#EAEAEA">&nbsp;</td>
</tr>
<tr>
  <td height=10 bgcolor="#EAEAEA"><a href="speciality.asp">品牌站点</a> <a href=index.asp><%=webname%></a> >> <a href="speciality.asp">所有站点浏览检索</a> >> <%=anclassname%></td>                                   
</tr>
<tr>
  <td height=48 bgcolor="#EAEAEA"><table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
    <%
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="0" align="center" colspan="8">暂无小分类</td>
    </tr>
    <%
else
i=0
while not rs_s.eof
%>
    <tr>
      <td  height="30"><a href="speciality.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="speciality.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="speciality.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="speciality.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="speciality.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="speciality.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
%>
    </tr>
  </table></td>
</tr>
<%
case "small"
anclassid=request("anid")
if not isnumeric(anclassid) then 
response.write"<script>alert(""非法访问!"");location.href=""../index.asp"";</script>"
response.end
end if
nclassid=request("nid")
if not isnumeric(nclassid) then 
response.write"<script>alert(""非法访问!"");location.href=""../index.asp"";</script>"
response.end
end if
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 height=10 bgcolor="#EAEAEA"><a href="speciality.asp">品牌站点</a><a href=index.asp><%=webname%></a> >> <a href="speciality.asp">所有站点浏览检索</a> >> <a href=speciality.asp?lx=big&anid=<%=anclassid%>><%=anclassname%></a>>> <%=nclassname%></td>               
</tr>
<%end select%>
</table>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td colspan="2" height=5></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_7.gif"><b><font color="ffffff"> 
            &nbsp;&nbsp;</font><font color=#ffffff>产品分类</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 cellspacing=0 cellpadding=0 width=100% align=center border=0>
              <TBODY><tr height=22><td height=22><!--#include file="bigclass.asp"--></td></tr></TBODY>
              <TBODY>
              </TBODY>
            </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> 
      <%
dim action
action=request.QueryString("action")
if InStr(action,"'")>0 then
response.write"<script>alert(""非法访问!"");location.href=""../index.asp"";</script>"
response.end
end if
%><br>
      <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"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr> 
                <td height="24">　<img src="images/ring01.gif"> <a href="help.asp?action=gouwuliucheng">购物流程</a> 
                </td>
              </tr>
              <tr> 
                <td height="24">　<img src="images/ring01.gif"> <a href="help.asp?action=feiyong">送货方式及费率</a></td>
              </tr>
              <tr> 
                <td height="24">　<img src="images/ring01.gif"> <a href="help.asp?action=fukuan">付款方式</a></td>
              </tr>
              <tr> 
                <td height="24">　<img src="images/ring01.gif"> <a href=help.asp?action=tiaokuan>交易条款</a></td>
              </tr>
              <tr> 
                <td height="24">　<img src="images/ring01.gif"> <a href=help.asp?action=jifen>积分奖励</a></td>
              </tr>
              <tr> 
                <td height="24">　<img src="images/ring01.gif"> <a href=help.asp?action=vip>VIP特惠</a></td>               
              </tr>
              <tr> 
                <td height="24">　<img src="images/ring01.gif"> <a href=help.asp?action=yunshushuoming>运输说明</a></td>
              </tr>
              <tr> 
                <td height="24">　<img src="images/ring01.gif"> <a href=help.asp?action=baomi>保密安全</a></td>
              </tr>
              <tr> 
                <td height="24">　<img src="images/ring01.gif"> <a href=help.asp?action=gongzuoshijian>我们的工作时间</a></td>
              </tr>
              <tr> 
                <td height="24">　<img src="images/ring01.gif"> <a href=help.asp?action=shouhoufuwu>产品销售和售后服务</a></td>
              </tr>
              <tr> 
                <td height="24">　<img src="images/ring01.gif"> <a href=help.asp?action=shiyongfalv>适用法律和版权声明</a></td>
              </tr>
              <tr> 
                <td height="24">　<img src="images/ring01.gif"> <a href=help.asp?action=changjianwenti>常见问题</a></td>
              </tr>
            </table></td>
          <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_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="shops1.asp" --></td>
          <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>
    </td>
    <td align="center" valign="top">
<table width="98%" border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td width=3 nowrap><IMG SRC="imagess/please_list_main_1.gif" WIDTH=3 HEIGHT=30 ALT=""></td>
          <form action="?" method="get">
            <td nowrap bgcolor="#EB5A00"><b>&nbsp;&nbsp;&nbsp;<font color="#FFFFFF">商家网站列表</font><font color="#FFFFFF">：</font></b>            </td>
            <td width=3 nowrap><IMG SRC="imagess/please_list_main_2.gif" WIDTH=3 HEIGHT=30 ALT=""></td>
          </form>
        </tr>
      </table>
      <table width="98%"  border="0" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="1" valign="top" bgcolor="e0e0e0"></td>
          <td align="center" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="5"></td>
              </tr>
            </table>
            <table width="98%" cellpadding="2" cellspacing="1">
              <tr valign="middle" bgcolor="BFEAFE"> 
                <td width="21%" height="25" align="center" bgcolor="#FFCC99">网站名称</td>
                <td height="25" align="center" bgcolor="#FFCC99">网址/简介</td>
                <td width="11%" height="25" align="center" nowrap bgcolor="#FFCC99">星级推荐</td>
                <td width="15%" height="25" align="center" nowrap bgcolor="#FFCC99">创建时间</td>
              </tr>
              
              <tr bgcolor="#FFFFFF"> 
                <td height="5" colspan="4" align="center"><%
		set rs_shp=server.createobject("adodb.recordset")
		select case leixing
		case ""
		rs_shp.open "select * from shjia where flag=2 order by adddate,tel desc",conn,1,1
		case "big"
		rs_shp.open "select * from shjia where flag=2 and anclassid="&anclassid&" order by adddate,tel desc",conn,1,1
		case "small"
		rs_shp.open "select * from shjia where flag=2 and anclassid="&anclassid&" and nclassid="&nclassid&" order by adddate,tel desc",conn,1,1
		end select
		if rs_shp.recordcount=0 then 
		%>
        <table width="90%" border="0" cellspacing="0" cellpadding="5" align="center">
        <tr> <td align=center>暂无商家</td></tr>
        </table>
        <%
		else
	  		rs_shp.PageSize =20 '每页记录条数
			iCount=rs_shp.RecordCount '记录总数
			iPageSize=rs_shp.PageSize
    		maxpage=rs_shp.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_shp.AbsolutePage=Page

	if page=maxpage then
		x=iCount-(maxpage-1)*iPageSize
	else
		x=iPageSize
	end if
	
		For i=1 To x
		%>
        
<table width="100%" border="0" align="center" cellpadding="10" cellspacing="0" class="shushu">
<tr> 
<td width="134" height="83" align="center">
  <div align="center"><strong>
<%response.write "<a href=user/index.asp?id="&rs_shp("shjiaid")&" >"
				if len(trim(rs_shp("name")))>25 then
				response.write left(trim(rs_shp("name")),20)&"..."
				else
				response.write trim(rs_shp("name"))
				end if
				response.write "</a>　"
				if rs_shp("tj")=5 then
				response.write "<img src=images/icon1.gif alt=超级商家>"
				end if%>
</strong></div></td>
<%
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from shjia where tj=1 or tj=2 or tj=3 or tj=4 or tj=5 order by adddate desc",conn,1,1
%>
<td class="table-zuo" style="word-break:break-all;">
  
  <%if rs_shp("url")<>0 then
	response.write "网址：<a href=http://"&rs_shp("url")&" ><font color=#ff3300>"
	response.write "http://"&trim(rs_shp("url"))&""
	response.write "</font></a>"
	else
	response.write "http://www.guluu.com/user/index.asp?id="&rs_shop("id")&""
	end if%>
  <br>
  <strong>　
  <%if len(trim(rs_shp("content")))>60 then
				response.write left(trim(rs_shp("content")),58)&"..."
				else
				response.write trim(rs_shp("content"))
				end if
				%></strong>
</td>
<%rs.close
set rs=nothing%>
<td width="72" class="table-zuo" align="center"><img src=images/level<%=trim(rs_shp("tj"))%>.gif alt=商家星级></td>
<td width="84" class="table-zuo" align="center"><%=year(rs_shp("adddate"))&"年"&month(rs_shp("adddate"))&"月"&day(rs_shp("adddate"))%>日</td>
</tr>
</table>
        <%rs_shp.movenext
		next
		call PageControl(iCount,maxpage,page,"border=0 align=center","<p align=center>")
		end if
		rs_shp.close
		set rs_shp=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 bgcolor=#ffffff>" & vbCrLf )        
    Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR>" & 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="#E0E0E0"></td>
        </tr>
      </table>
      
      <table width="98%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="1" height="1"><img src="imagess/please_list_left_4.gif" width="3" height="3"></td>
          <td width="100%" height="1" background="imagess/please_list_left_5.gif"></td>
          <td width="1" height="1"><img src="imagess/please_list_left_6.gif" width="3" height="3"></td>
        </tr>
      </table></td>
  </tr>
</table>
<!--#include file="copyright.asp"-->
</html>




















