index.asp

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

			while not rs.eof
			%>
                      <tr>
                        <td height="22"><img src="/img/go.gif" width="15" height="15"><a href="Diary/rj_show.asp?n=<%=rs("id")%>" title=<%=year(rs("rjdate"))%>年<%=month(rs("rjdate"))%>月<%=day(rs("rjdate"))%>日发布>
                          <%if len(trim(rs("rjname")))>11 then
	response.write left(trim(rs("rjname")),11)&""
	else
	response.write trim(rs("rjname"))
	end if%>
                        </a></td>
                      </tr>
                      <tr>
                        <td height="1" colspan="2" class="td_margin1"><img src="/img/skin<%=cssid%>/x.gif" width="149" height="1"></td>
                      </tr>
                      <%
			rs.movenext
		    wend
			%>
                    </table>
                  <%
		end if
		rs.close
		set rs=nothing
		%></td>
                </tr>
            </table></td>
          </tr>
        </table>
        <%end if%>
      <%if vote=1 then%>
        <table width="180" border="0" align="center" cellpadding="0" cellspacing="0" background="img/lf_bg.gif" class="sm_gray">
          <tr>
            <td height="12"></td>
          </tr>
          <tr>
            <td><img src="img/lf_tl_best13.gif" width="180" height="40"></td>
          </tr>
          <tr>
            <td>
            </td>
          </tr>
        </table>
        <table width="180"  border="0" align="center" cellpadding="0" cellspacing="0" background="img/lf_bg.gif">
          <tr>
            <td><table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
                <tr>
                  <td><table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
                      <tr>
                        <td><table width="160"  border="0" align="center" cellpadding="0" cellspacing="0">
                          <tr>
                            <td><%
			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
	  %>
        暂无投票
          <%else%>
          <table width="160"  border="0" align="center" cellpadding="0" cellspacing="0">
            <tr>
              <td><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="/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="/img/vote.gif" width="59" height="19" border="0"></a></td>
                    </tr>
                  </form>
              </table></td>
            </tr>
          </table>
          <%end if%></td>
                          </tr>
                        </table></td>
                      </tr>
                  </table></td>
                </tr>
            </table></td>
          </tr>
        </table><%end if%>
      <%if zhtj=1 and zhtj1=1 then%>
        <table width="180" border="0" align="center" cellpadding="0" cellspacing="0" background="img/lf_bg.gif" class="sm_gray">
          <tr>
            <td height="12"></td>
          </tr>
          <tr>
            <td><img src="img/webtj.gif" width="180" height="40"></td>
        </tr>
          <tr>
            <td> </td>
          </tr>
        </table>    
        <table width="180"  border="0" align="center" cellpadding="0" cellspacing="0" background="img/lf_bg.gif">
          <tr>
            <td><table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
                <tr>
                  <td><table width="100%"  border="0" align="center" cellpadding="0" cellspacing="0">
                      <tr>
                        <td> <!--#include file="line.asp"--><table width="160"  border="0" align="center" cellpadding="0" cellspacing="0">
                            <tr>
                              <td><table width="160"  border="0" align="center" cellpadding="0" cellspacing="0">
                            <tr>
                              <td height="21"> ·网站注册： <span style="color: #FF6600"><%=hyzc%></span> 人 </td>
                            </tr>
                              <tr>
                                <td height="21"> ·最新注册： <a href=bbs/Userlist_data.asp?username=<%=zhhy%>><%=zhhy%></a> </td>
                            </tr>
							   <tr>
                                <td height="21"> ·商品总数： <span style="color: #FF6600"><%=sptj%></span> 件 </td>
                              </tr>
                              <tr>
                                <td height="21"> ·新闻总数： <span style="color: #FF6600"><%=xwtj%></span> 条 </td>
                            </tr>
                              <tr>
                                <td height="21"> ·专题总数： <span style="color: #FF6600"><%=zttj%></span> 条 </td>
                            </tr>
                              <tr>
                                <td height="21"> ·供求总数： <span style="color: #FF6600"><%=gqtj%></span> 条 </td>
                            </tr>
                              <tr>
                                <td height="21"> ·日记总数： <span style="color: #FF6600"><%=rjtj%></span> 条 </td>
                            </tr>
                              
                            <tr>
                                <td height="21"> ·论坛主题： <span style="color: #FF6600"><%=zt%></span> 贴 </td>
                            </tr>
                              <tr>
                                <td height="21"> ·论坛贴子： <span style="color: #FF6600"><%=hf%></span> 贴 </td>
                            </tr><tr>
                                <td height="21"> ·今日浏览： <span style="color: #FF6600"><%=jsqtoday%></span> 人次 </td>
                              </tr>
                              <tr>
                                <td height="21"> ·网站浏览： <span style="color: #FF6600"><%=jsq%></span> 人次 </td>
                            </tr>
                              <tr>
                                <td height="21"> ·当前在线： <span style="color: #FF6600"><%=lineno%></span> 人 </td>
                            </tr>
                              <tr>
                                <td height="21"> ·最高在线： <span style="color: #FF6600"><%=mostonline%></span> 人 </td>
                            </tr>
							  
							<tr>
                                <td height="21"> ·在线用户： <span style="color: #FF6600"><%=usno%></span> 人 </td>
                              </tr>
							  <tr>
                                <td height="21"> ·在线游客： <span style="color: #FF6600"><%=nusno%></span> 人 </td>
                              </tr>
                          </table>
                            </td>
                            </tr>
                        </table></td>
                      </tr>
                  </table></td>
                </tr>
            </table></td>
          </tr>
        </table>
      <%end if%>      <div align="center"><img src="/img/lf_img_bt.gif" width="180" height="9">      </div></td><td valign="top"><table width="558" border="0" cellspacing="0" cellpadding="0" align="center">
      <tr>
        <td width="558" colspan="3"><img src="/img/cen_tl_recomm.gif" width="558" height="53" border="0" usemap="#recomm"></td>
      </tr>
      <tr>
        <td width="19"></td>
        <td width="520" bordercolor="#CCCCCC">
          <%set rsclass=server.CreateObject("adodb.recordset")
rsclass.Open "select * from shop_config",conn,1,1
class2=rsclass("class")
class2=trim(class2)
if class2<>"" then 
bsort2=split(class2,",")
for i=0 to ubound(bsort2)
classname=bsort2(i)
%><%if fl=1 then%>
          <table width="100%"  border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td><span class="fontglow"><b><font 
                  color=#ff6600><b>
                <img src="img/top1.gif" width="12" height="13">
                <%set rs2=server.CreateObject("adodb.recordset")
			rs2.open "select * from shop_anclass where anclassid="&classname&"",conn,1,1
			do while not rs2.eof
			response.write "<A href=class.asp?lx=big&anid="&classname&"><font color="&trim(rs2("sztys"))&">"&trim(rs2("anclass"))&"</font></A>  " 
             rs2.movenext
			 loop
			 rs2.close
			 set rs2=nothing
%>
              </b></font></b></span>&gt; 
              <%
			set rs2=server.CreateObject("adodb.recordset")
			rs2.open "select * from shop_nclass where anclassid="&classname&" order by nclassidorder",conn,1,1
			do while not rs2.eof
			response.write "<A href=class.asp?lx=small&anid="&classname&"&nid="&rs2("nclassid")&"><font color="&trim(rs2("xsztys"))&">"&trim(rs2("nclass"))&"</font></A> | " 
             rs2.movenext
			 loop
			 rs2.close
			 set rs2=nothing
%></td>
            </tr>
          </table>
          <%end if%>
          <table width="98%" border="0" align="center" cellpadding="3" cellspacing="0">
            <%
					set rsx=server.createobject("adodb.recordset")
						  rsx.open "select Top 2 * from shop_snsn where anclassid="&classname&" order by adddate desc",conn,1,1
						  if rsx.recordcount=0 then 
						  response.write "<tr><td>&nbsp;此分类暂无商品，正待添加!</td></tr>"
						  else
						  %>
            <tr>
              <%
						  while not rsx.eof
						  %>
              <td>
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td width="170" height="7"></td>
                    </tr>
                  </table>
                  <table width="260"  border="0" cellspacing="0" cellpadding="0">
                    <tr>
                      <td width="90"><a href=list.asp?id=<%=rsx("shopid")%> <%if rsx("sftc")="" then%><%else%> target=<%=rsx("sftc")%><%end if%>>
                        <%if rsx("shoppic")="" then 
	response.write "<div align=center><a href=list.asp?id="&rsx("shopid")&" ><img src=img/emptyshop.gif width=85 height=85 border=0></a></div>"
	else
    response.write "<img src="&rsx("shoppic")&"  width="&upload13&" height="&upload14&" border=0>"
    end if%>
                      </a></td>
                      <td><span class="style2"><strong><a href=list.asp?id=<%=rsx("shopid")%> <%if rsx("sftc")="" then%><%else%> target=<%=rsx("sftc")%><%end if%>><%=rsx("shopname")%></a></strong></span><br>                        <span class="style2">【市场价】<s><%=formatnumber(rsx("shichangjia"),2)%>元</s></span><br>
                      <span class="style2">【会员价】<%=formatnumber(rsx("huiyuanjia"),2)%>元</span><br>                      
                      <a href="gouwu.asp?id=<%=rsx("shopid")%>&action=add"><img src="img/gm.gif" border="0"></a> <a href="shoucang.asp?id=<%=rsx("shopid")%>&action=add"><img src="img/sc.gif" border="0"></a></td>
                    </tr>
                  </table>
                </td>
              <%
			rsx.movenext
		    wend
			%>
            </tr>
            <%
						  end if
						  rsx.close
						  %>
          </table>
          <table width="100%"  border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td height="12"></td>
            </tr><tr>
              <td height="1"  bgcolor="#CCCCCC"></td>
            </tr><tr>
              <td height="12"></td>
            </tr>
          </table><%next
end if
rsclass.Close
set rsclass=nothing
%>
          <table width="100%"  border="0" cellspacing="0" cellpadding="0">
           
            <tr>
              <td>&nbsp; </td>
            </tr>
          </table></td>
        <td width="19"></td>
      </tr>
     
    </table>
      <map name="recomm">
        <area shape="rect" coords="515,17,554,32" href="/class.asp?lx=news" alt="MORE">
      </map></td>
    <td width="200" valign="top">        <map name="Map4Map">
                    <area shape="rect" coords="135,20,170,32" href="/info/">
                  </map>
                  <map name="Map4Map">
                    <area shape="rect" coords="135,20,170,32" href="/news/">
                  </map>
                  <table width="188" border="0" align="center" cellpadding="0" cellspacing="0" background="/img/rg_bg.gif">
                    <tr bgcolor="#FFFFFF">
                      <td height="13" colspan="2"></td>
                    </tr>
                    <tr>
                      <td width="153" colspan="2"><img src="/img/rg_tl_bookevent.gif" width="188" height="36" border="0" usemap="#MapMap"></td>
                    </tr>
                    <tr>
                      <td height="4" align="center" colspan="2"></td>