
<!--#include file="conn.asp"-->
<!--#include file="webconfig.asp"-->
<!--#include file="fuction.asp"-->
<!--#include file="webtop.asp"-->

<table width="1000" align="center" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="6" colspan="3"></td>
  </tr>
  <tr>
    <td width="20">&nbsp;</td>
    <td valign="bottom"><img src="<%=weburl%>images/arrow01.gif" width="11" height="11" /> Your present position: <a href="<%=weburl%>"><%=webname%></a> -> DISCOUNT ->  <%action=trim(request("action"))
  select case action
                    case "1"
						response.write "SAVE 80%-90%" 
						                    case "2"
						response.write "SAVE 70%-80%"
						                    case "3"
						response.write "SAVE 60%-70%"
						                    case "4"
						response.write "SAVE 50%-60%"
						                    case else
						response.write "DISCOUNT"
						end select
%></td>
    <td width="434" valign="bottom"></td>
  </tr>
  <tr>
    <td height="6" colspan="3"></td>
  </tr>
</table>
<table width="1000" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr>
    <td>
      <table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="205" valign="top"><!--#include file="index_login.asp"--><table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="5"><img src="images/ge.gif" width="1" height="5"></td>
  </tr>
</table>
	  <!--#include file="rexiao.asp"--><table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="5"><img src="images/ge.gif" width="1" height="5"></td>
  </tr>
</table>
	  <%if anclassid <> ""  then%>
	  <table width="200" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td height="32" valign="top"><img src="<%=weburl%>images/skin<%=cssid%>/right11.gif" width="200" height="32" /></td>
        </tr>
        <tr>
          <td valign="top" background="images/skin<%=cssid%>/left01.gif">       <table align=center cellSpacing=0 cellPadding=0 width="93%" border=0>
                            <%
		'dim rss,rs2,ii,i
		set rss = server.CreateObject ("adodb.recordset")
		set rs2 = server.CreateObject ("adodb.recordset")
		sql = "select nclass,nclassid,xsztys from shop_nclass where anclassid="&anclassid&" and xs=2 order by nclassidorder asc"
		rss.open sql,conn,1,1
		if rss.eof and rss.bof then
		response.write "没有添加分类"
		else
		i=1
		do while not rss.eof
	 %>
                            <TR>
                              <TD height=24 id=item$pval[CatID]) style="CURSOR: hand" onMouseUp="opencat(cat10<%=i%>000,&#13;&#10;  img10<%=i%>000);" language=javascript> 　<IMG src="<%=weburl%>images/btn_on.gif" width="15" height="15" align=absMiddle id=img10<%=i%>000>　<font color=<%=trim(rss("xsztys"))%>><%=rss("nclass")%><%
           classsl=conn.execute("Select count(*)from wygkcn_shop where nclassid="&rss("nclassid")&"")(0)
		   response.write "(<font color=#FF0000>"&classsl&"</font>)"%></font>
                              <SCRIPT language=javascript>
	function opencat(cat,img)
	{
 	 	if(cat.style.display=="none"){
     	cat.style.display="";
    	 img.src="<%=weburl%>images/btn_vdn.gif";
  		} else {
     	cat.style.display="none"; 
     	img.src="<%=weburl%>images/btn_on.gif";
  		}
	}
	            </SCRIPT></TD>
                          </TR>
                            <TR>
                              <TD id=cat10<%=i%>000 style="DISPLAY: none">
                                <%
				sql =  "select * from shop_xclass where anclassid="&anclassid&" and nclassid="&rss("nclassid")&" and xxs=2 order by xpx asc"
				rs2.open sql,conn,1,1
				if rs2.eof and rs2.bof then
				response.write "<IMG height=20 src="""&weburl&"img/class3.gif"" width=36 align=absMiddle border=0><a href=""class.asp?lx=small&anid="& anclassid&"&nid=" & rss("nclassid") & """ >查看该二级分类</a>"
				else
				ii=1
				do while not rs2.eof
			%>
                              <IMG height=20 src="img/class3.gif" width=36 align=absMiddle border=0><A href=class.asp?lx=snsn&anid=<%=anclassid%>&nid=<%=rss("nclassid")%>&xid=<%=rs2("id")%>><%=rs2("xclass")%><%
           classsl=conn.execute("Select count(*)from wygkcn_shop where xclassid="&rs2("id")&"")(0)
		   response.write "(<font color=#FF0000>"&classsl&"</font>)"%></font></a><BR>
                              <%
				rs2.movenext
				ii=ii+1
				loop
				end if
				rs2.close
			%>                              </TD>
                            </TR>
                            <%
		rss.movenext
		i=i+1
		loop
		end if
		rss.close
  		set rs2=nothing
  		set rss=nothing
	%>
                        </table> 
		  </td>
        </tr>
        <tr>
          <td height="8" valign="top"><img src="<%=weburl%>images/skin<%=cssid%>/left08.gif" /></td>
        </tr>
      </table>
<%
end if
%><table width="100%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td height="5"><img src="images/ge.gif" width="1" height="5"></td>
  </tr>
</table>
<%if vote=1 then%>
        <table width="200" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr>
          <td height="32" valign="top"><img src="<%=weburl%>images/skin<%=cssid%>/right10.gif" width="200" height="32" /></td>
        </tr>
        <tr>
          <td valign="top" background="images/skin<%=cssid%>/left01.gif"><%
			if request("anid")<>"" then
					set rs4=conn.execute("SELECT * From shop_toupiao where classid='" & nosql(request("anid")) & "' and IsChecked=1 ") 
					else
		set rs4=conn.execute("SELECT * From shop_toupiao where classid=0 and IsChecked=1 ") 
		end if
		if rs4.eof then
	  %><table width="90%" border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td width="67%" height="25"><img src="<%=weburl%>images/arrow03.gif" width="4" height="6" /> 暂无投票！</td>
              </tr>
          </table>
		  <%else%>
		  <table border="0" width="100%" cellspacing="2" cellpadding="2">
                  <tr>
                    <td width=100% align="center"><b> <%=rs4("Title")%> </b><br>
                    </td>
                  </tr>
                  <form action="vote.asp" target="newwindow" method=post name=research>
                    <tr>
                      <td valign=top width="100%">
                        <%
for i=1 to 8
	if rs4("Select"&i)<>"" then
%>
                        <input style="border: 0" <%if i=1 then%>checked<%end if%> name=Options type=radio value=<%=i%>>
                        <%=i%>.<%=rs4("Select"&i)%><br>
                        <%
	end if
next
%>
                      </td>
                    </tr>
                    <tr>
                      <td width="100%" height=25 align=center><input type="image" border="0" name="submit22" src="<%=weburl%>img/vote1.gif" width="59" height="19" style="cursor:hand">
                          <a href="javascript:;" onClick="javascript:window.open('vote.asp?stype=view&id=<%=request("anid")%>','','width=410,height=300,toolbar=no, status=no, menubar=no, resizable=yes, scrollbars=yes');return false;" target="_blank"><img src="<%=weburl%>img/vote.gif" width="59" height="19" border="0"></a></td>
                    </tr>
                  </form>
            </table><%
		end if
		%></td>
        </tr>
        <tr>
          <td height="8" valign="top"><img src="<%=weburl%>images/skin<%=cssid%>/left08.gif" /></td>
        </tr>
      </table><%end if%>
    </td>
          <td valign="top">
            <table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
              <tr>
                <td height="8"></td>
              </tr>
            </table>
            <div align="left">&nbsp;<a href="?lx=<%=lcase(trim(request("lx")))%>&anid=<%=anclassid%>&nid=<%=nclassid%>&xid=<%=xclassid%>&px=<%=request.QueryString("px")%>&text=2" style="font-weight: bold">Picture Version</a> | <a href="?lx=<%=lcase(trim(request("lx")))%>&anid=<%=anclassid%>&nid=<%=nclassid%>&xid=<%=xclassid%>&px=<%=request.QueryString("px")%>&text=1" style="font-weight: bold">Text Version</a> | <font 
                  color=#ff6600><a href="class_zhk.asp?action=1">SAVE 80%-90%</a></font> <font 
                  color=#ff6600><a href="class_zhk.asp?action=2">70%-80%</a></font> <font 
                  color=#ff6600><a href="class_zhk.asp?action=3">60%-70%</a></font> <font 
                  color=#ff6600><font 
                  color=#ff6600><a href="class_zhk.asp?action=4">60%-50%</a></font></font> <a href="class_zhk.asp">MORE DISCOUNT</a>
                <select name="menu2" onChange="MM_jumpMenu('parent',this,0)">
                  <option selected>Narrow your search by</option>
                  <option value="class.asp?px=0">Recommended products</option>
                  <option value="class.asp?px=1">Date in stock (ascending)</option>
                  <option value="class.asp?px=2">Date in stock (descending)</option>
                  <option value="class.asp?px=3">Price range (ascending)</option>
                  <option value="class.asp?px=4">Price range (descending)</option>
                </select>
            </div>
            <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0" class="sm_debrown">
              <tr>
                <td colspan="3" height="4" bgcolor="ffffff"></td>
              </tr>
              <tr>
                <td width="926" height="1" align="center" valign="middle" background="<%=weburl%>images/skin<%=cssid%>/bott_nav_bj.gif" class="sm_debrown"></td>
              </tr>
              <tr>
                <td colspan="3" height="4" bgcolor="ffffff"></td>
              </tr>
            </table>
            <%
if x1<>"" then
      response.Write "<a href="&x1url&" target=_blank><img src="&x1&" width="&x1w&" height="&x1h&"  border=0></a>"
end if
if  x2<>"" then
      response.Write "<a href="&x2url&" target=_blank><img src="&x2&" width="&x2w&" height="&x2h&"  border=0></a>"
end if
if  x3<>"" then
      response.Write "<a href="&x3url&" target=_blank><img src="&x3&" width="&x3w&" height="&x3h&"  border=0></a>"
end if 
if x4<>"" then
      response.Write "<a href="&x4url&" target=_blank><img src="&x4&" width="&x4w&" height="&x4h&"  border=0></a>"
end if
%>
            <%
set rs=server.createobject("adodb.recordset")
		if action="1" then
                 rs.open "select * from wygkcn_shop where (dazhe between .1 and .2) order by adddate desc",conn,1,1
		elseif action="2" then
				  rs.open "select * from wygkcn_shop where (dazhe between .2 and .3) order by adddate desc",conn,1,1
		elseif action="3" then
		    rs.open "select * from wygkcn_shop where (dazhe between .3 and .4) order by adddate desc",conn,1,1
		elseif action="4" then
			rs.open "select * from wygkcn_shop where (dazhe between .4 and .5) order by adddate desc",conn,1,1
		else
			rs.open "select * from wygkcn_shop where (dazhe between .1 and .2) 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>No Product </td>
              </tr>
            </table>
            <%
		else
		if request.QueryString("text")=1 then'如果是文字形式 则列等于 1
		text=1
		l=1
		elseif  request.QueryString("text")=2 then'如果是文字形式 则列等于 1
        l=fll	
		else
				if class_text=1 then
		           text=1
		           l=1
		        else
				   l=fll			'显示的列数
		        end if
		end if
			hang=flsl		
			fll=1	'显示的行数
			l=fll			'显示的列数
	  		rs.PageSize =hang*l '每页记录条数,必须是3的倍数
			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
			response.write "<table>"
		for ii=1 to hang
			response.write "<tr>"
			for jj=1 to l
				response.write "<td>"
				if not rs.eof then
					%>
            <!--#include file="class_shangpin.asp"-->
            <%rs.movenext
				else
					response.write "&nbsp;"
				end if
				response.write "</td>"
			next
			response.write "</tr>"
		next
			response.write "</table>"
			
		call PageControl(iCount,maxpage,page,"border=0 align=center widtj=100% ","<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 " & Table_style & ">" & vbCrLf )        
    Response.Write("<form method=get onsubmit=""document.location = '" & action & "?" & temp & "Page='+ this.page.value;return false;""><TR>" & vbCrLf )
    Response.Write("<TD align=right>" & vbCrLf )
    Response.Write(font_style & vbCrLf )    
        
    if page<=1 then
        Response.Write ("First " & vbCrLf)        
        Response.Write ("Prev " & vbCrLf)
    else        
        Response.Write("<A HREF=" & action & "?" & temp & "Page=1>First</A> " & vbCrLf)
        Response.Write("<A HREF=" & action & "?" & temp & "Page=" & (Page-1) & ">Prev</A> " & vbCrLf)
    end if

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

    Response.Write(" Totel Page：" & page & "/" & pageCount & " " &  vbCrLf)
    Response.Write(" Totel Goods：" & iCount & " " &  vbCrLf)
    Response.Write(" Goto Page：" & "<INPUT TYEP=TEXT NAME=page SIZE=3 Maxlength=5 VALUE=" & page & " class=wenbenkuang>" & " "  & vbCrLf & "<INPUT type=submit style=""font-size: 9pt"" value=GO class=go-wenbenkuang>")
    Response.Write("</TD>" & vbCrLf )                
    Response.Write("</TR></form>" & vbCrLf )        
    Response.Write("</table>" & vbCrLf )        
End Sub
%>
</td>
        </tr>
    </table></td>
  </tr>
</table>
<!--#include file="copyright.asp"-->
</body>
</html>