gusucode.com > 爱美尔女性商城源码 1.0源码程序 > hurqshousuo/index.asp
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <!--#include file="conn.asp"--> <!--#include file="webconfig.asp"--> <meta http-equiv="Content-Type" content="text/html; charset=gb2312" /> <title><%=webname%></title> <meta name="keywords" content="<%=keywords%>" /> <meta name="description" content="<%=description1%>" /> <link href="css/style.css" rel="stylesheet" type="text/css" /> <link rel="prerender" href="http://example.com/page2.html"> <script type="text/javascript" src="js/jquery.js"></script> <script type="text/javascript" src="js/jquery.idtabs.js"></script> <script type="text/javascript" src="js/swf.js"></script> <SCRIPT type=text/javascript src="hurqshousuo/ad.js"></SCRIPT> </head> <body> <DIV style="WIDTH: 995px"><A href="http://cc.aimeer.com" target=_blank><IMG border=0 src="hurqshousuo/index_a.gif"></A></DIV> <DIV style="WIDTH: 995px; BACKGROUND: #fff; OVERFLOW: hidden" id=MyMoveAd><IMG src="hurqshousuo/index_b.jpg"></DIV> <SCRIPT type=text/javascript> <!-- slideAd('MyMoveAd',5); --> </SCRIPT> <!--#include file="top.asp" --> <table width="995" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="20"><div align="center"></div></td> </tr> </table> <table width="995" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td width="189" rowspan="2" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td style="background:url(images/index_left_top.gif) top no-repeat left; height:50px;"> </td> </tr> <tr> <td style="background:url(images/fenlei_bottom2.gif) bottom no-repeat left;"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <% set rs=server.CreateObject("adodb.recordset") rs.open "select * FROM BJX_class1 where typeid=1 order by anclassidorder asc",conn,1,1 if rs.recordcount=0 then response.write "<br>目前没有商品分类" else while not rs.eof %> <tr> <td><b><a href="products.asp?anid=<%=rs("anclassid")%>&typeid=<%=rs("typeid")%>" class="a1"><img src="images/list_ico1.gif" width="28" height="23" align="absmiddle" /><%=rs("anclass")%></a></b></td> </tr> <tr> <td style="padding-left:28px; padding-top:5px;"> <%set rss=server.CreateObject("adodb.recordset") rss.open "select * FROM BJX_class2 where typeid=1 and anclassid="&rs("anclassid")&" order by nclassidorder asc",conn,1,1 if not rss.eof then i=1 do while not rss.eof%> <a href="products.asp?anid=<%=rss("anclassid")%>&nid=<%=rss("nclassid")%>&typeid=<%=rss("typeid")%>"><%=rss("nclass")%></a> <br /> <% rss.movenext i=i+1 loop rss.close end if %> </td> </tr> <% rs.movenext wend end if rs.close set rs=nothing %> <tr> <td> </td> </tr> </table></td> </tr> </table> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td style="background:url(images/border_top.jpg) no-repeat left; line-height:35px; height:35px; font-size:14px; font-weight:bold; color:#e62a8a; padding-left:30px;">视频推荐 </td> </tr> <tr> <td align="center" background="images/border_bg.jpg"><embed src="http://www.tudou.com/v/_FD9eUuCyeo/v.swf" type="application/x-shockwave-flash" allowscriptaccess="always" allowfullscreen="true" wmode="opaque" width="180" height="180"></embed></td> </tr> <tr> <td><img src="images/border_bottom.jpg" width="189" height="7" /></td> </tr> </table> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td style="background:url(images/border_top.jpg) no-repeat left; line-height:35px; height:35px; font-size:14px; font-weight:bold; color:#e62a8a; padding-left:30px;">天天特价商品</td> </tr> <%set rs=server.CreateObject("adodb.recordset") rs.open "select Top 1 * from BJX_goods where tejiabook=1 order by bookid desc ",conn,1,1 if rs.eof and rs.bof then response.write "目前还没有商品" 'response.End else %> <% if not rs.eof then do while not rs.eof%> <tr> <td align="center" background="images/border_bg.jpg" style="padding:5px;"><a href="showpro.asp?id=<%=rs("bookid")%>"><img src="<%=rs("bookpic")%>" width="174" height="199" /></a></td> </tr> <% rs.movenext loop rs.close end if end if %> <tr> <td><img src="images/border_bottom.jpg" width="189" height="7" /></td> </tr> </table> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td style="background:url(images/border_top.jpg) no-repeat left; line-height:35px; height:35px; font-size:14px; font-weight:bold; color:#e62a8a; padding-left:30px;">销售排行</td> </tr> <tr> <td align="center" background="images/border_bg.jpg"><table width="180" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="10"><div align="center"></div></td> </tr> <%set rs=server.CreateObject("adodb.recordset") rs.open "select Top 4 * from BJX_goods order by bookid desc ",conn,1,1 if rs.eof and rs.bof then response.write "目前还没有商品" 'response.End else %> <% if not rs.eof then do while not rs.eof%> <tr> <td align="left" style="height:66px;"><img src="<%=rs("bookpic")%>" width="50" height="50" align="left" style="margin-right:5px;" /><a href="showpro.asp?id=<%=rs("bookid")%>"><%if len(trim(rs("bookname")))>12 then response.write left(trim(rs("bookname")),10)&".." else response.write trim(rs("bookname")) end if%></a><br /> <font style="color:#A20000">¥<%=formatnumber(rs("shichangjia"),2)&"元"%></font></td> </tr> <tr> <td height="5"><div align="center"></div></td> </tr> <% rs.movenext loop rs.close end if end if %> <tr> <td align="right"><a href="#" class="a2">更多..</a></td> </tr> </table></td> </tr> <tr> <td><img src="images/border_bottom.jpg" width="189" height="7" /></td> </tr> </table> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="5"><div align="center"><img src="ad/ad2.gif" alt="瑞士CC精油特价销售" width="189" height="189" longdesc="http://www.aimeer.com/ccjingyou/" /></div></td> </tr> </table> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td style="background:url(images/border_top.jpg) no-repeat left; line-height:35px; height:35px; font-size:14px; font-weight:bold; color:#e62a8a; padding-left:30px;">商品评论</td> </tr> <tr> <td align="center" background="images/border_bg.jpg"><table width="170" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td height="10"><div align="center"></div></td> </tr> <%set rs=server.CreateObject("adodb.recordset") rs.open "select Top 6 BJX_pinglun.pingluncontent,BJX_pinglun.bookid,BJX_pinglun.pingji,BJX_pinglun.pinglunname,BJX_goods.bookpic,BJX_goods.bookname,BJX_pinglun.pinglundate from BJX_pinglun,BJX_goods where BJX_pinglun.bookid=BJX_goods.bookid order by BJX_pinglun.pinglundate desc ",conn,1,1 do while not rs.eof%> <tr> <td align="left"><div><a href="showpro.asp?id=<%=rs("bookid")%>"><%=rs("bookname")%></a> <br /> <a href="showpro.asp?id=<%=rs("bookid")%>" class="a3"><%if len(trim(rs("pingluncontent")))>30 then response.write left(trim(rs("pingluncontent")),25)&"..." else response.write trim(rs("pingluncontent")) end if%></a> </div> <div style="text-align:right;"><%=rs("pinglunname")%> <%=rsdate("pinglundate")%></div></td> </tr> <tr> <td height="5"><div align="center"></div></td> </tr> <%rs.movenext loop rs.close%> </table></td> </tr> <tr> <td><img src="images/border_bottom.jpg" width="189" height="7" /></td> </tr> </table> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td><a href="<%=url4%>"><img src="<%=Pic4%>" width="189" height="143" /></a></td> </tr> <tr> <td width="189"> <!--#include file="index_zhuanti.asp"--> </td> </tr> </table> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td style="background:url(images/border_top.jpg) no-repeat left; line-height:35px; height:35px; font-size:14px; font-weight:bold; color:#e62a8a; padding-left:30px;">关注我们</td> </tr> <tr> <td align="center" background="images/border_bg.jpg"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%" height="60" align="right"><!-- JiaThis Button BEGIN --> <div id="jiathis_style_32x32"> <span class="jiathis_txt"> </span> <a class="jiathis_follow_tsina" rel="http://weibo.com/2183871502"></a> <a class="jiathis_follow_tqq" rel="http://t.qq.com/higou123"></a> <a class="jiathis_follow_tsohu" rel="http://t.sohu.com/u/175387413"></a> <a class="jiathis_follow_t163" rel="http://t.163.com/6167811840"></a></div> <script type="text/javascript" src="http://v2.jiathis.com/code/jia.js" charset="utf-8"></script> <!-- JiaThis Button END --></td> </tr> </table></td> </tr> <tr> <td><img src="images/border_bottom.jpg" width="189" height="7" /></td> </tr> </table> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td style="background:url(images/border_top.jpg) no-repeat left; line-height:35px; height:35px; font-size:14px; font-weight:bold; color:#e62a8a; padding-left:30px;">热门文章</td> </tr> <tr> <td align="center" background="images/border_bg.jpg"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%" height="60" align="left"><script src="http://www.aimeer.com/wen/js.asp?topType=hot&classNO=&num=20&maxlen=20&showdate=0&showhits=0&showClass=0"></script></td> </tr> </table></td> </tr> <tr> <td><img src="images/border_bottom.jpg" width="189" height="7" /></td> </tr> </table> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td style="background:url(images/border_top.jpg) no-repeat left; line-height:35px; height:35px; font-size:14px; font-weight:bold; color:#e62a8a; padding-left:30px;">推荐文章</td> </tr> <tr> <td align="center" background="images/border_bg.jpg"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="100%" height="60" align="left"><script src="http://www.aimeer.com/wen/js.asp?topType=IsHot&classNO=&num=20&maxlen=20&showdate=0&showhits=0&showClass=0"></script></td> </tr> </table></td> </tr> <tr> <td><img src="images/border_bottom.jpg" width="189" height="7" /></td> </tr> </table> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="5"><div align="center"><img src="ad/爱美尔敬告.gif" alt="爱美尔" width="189" height="189" /></div></td> </tr> </table> </td> <td width="611" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td width="611" height="310" valign="top" background="images/index_center.gif" style="padding:10px 0px 0px 5px;"><SCRIPT language=JavaScript type=text/javascript> (function($){ var imag=[]; var link=[]; var text=[]; imag[0]=encodeURIComponent("<%=Pic%>"); link[0]=encodeURIComponent("<%=url%>"); text[0]="<%=title%>"; imag[1]=encodeURIComponent("<%=Pic1%>"); link[1]=encodeURIComponent("<%=url1%>"); text[1]="<%=title1%>"; imag[2]=encodeURIComponent("<%=Pic2%>"); link[2]=encodeURIComponent("<%=url2%>"); text[2]="<%=title2%>"; imag[3]=encodeURIComponent("<%=Pic3%>"); link[3]=encodeURIComponent("<%=url3%>"); text[3]="<%=title3%>"; if(imag.length < 4){ for(var i=imag.length;i<4;i++){ imag[i]="http://img.zbird.cn/ww2/index/default_big_ad.jpg"; link[i]=encodeURIComponent("/"); text[i]="钻石小鸟"; } } var pic_width=595; var pic_height=300; var stop_time=6000; makeSWF('FrontPageFocusShower','flash/focus.swf',{ FlashVars : 'pics='+imag.join('|')+'&links='+link.join('|')+'&texts='+text.join('|')+'&stop_time='+stop_time+'', wmode: 'opaque', scale: 'noScale', quality: 'high', width : pic_width, height : pic_height }); })($); </SCRIPT></td> </tr> </table> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td height="10"><div align="center"></div></td> </tr> </table></td> <td width="6" valign="top"> </td> <td width="189" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td valign="bottom" style="background:url(images/newstitle.gif) no-repeat; height:60px; font-size:14px; font-weight:bold; color:#e62a8a; text-align:center; line-height:40px;">商城动态</td> </tr> <tr> <td height="247" valign="top" background="images/newsbg.jpg"><table width="170" border="0" cellspacing="0" cellpadding="0"> <%set rs=server.createobject("adodb.recordset") rs.open "select Top 11 * FROM BJX_news where newstype=1 order by newsid desc",conn,1,1 do while not rs.eof %> <tr> <td height="20">·<a href="shownews.asp?newsid=<%=rs("newsid")%>"><%=left(rs("newsname"),12)%></a></td> </tr> <% rs.movenext loop rs.close set rs=nothing %> <tr> <td height="20" align="right"><a href="news.asp" class="a2">更多..</a></td> </tr> </table></td> </tr> <tr> <td><img src="images/newsfooter.jpg" width="190" height="12" /></td> </tr> </table></td> </tr> <tr> <td colspan="3" valign="top"> <table width="98%" border="0" align="center" cellpadding="0" cellspacing="0"> <tr> <td><a href="http://www.aimeer.com/ccjingyou/index.htm"><img src="ad/ad1.jpg" alt="爱美尔女性商城庆祝七夕情人节" width="796" /></a> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td style=" background:url(images/select2_bg.gif) no-repeat left bottom; height:33px; padding-left:120px;"><div id="selected1"> </div> <div align="right"><a href="products.asp?act=bestbook&anid=2&typeid=1" class="a2">更多..</a></div></td> </tr> </table></td> </tr> <tr> <td><div id="selected1_1" class="index_info_list"> <ul> <%set rs=server.CreateObject("adodb.recordset") rs.open "select Top 8 * from BJX_goods where bestbook=1 and anclassid=2 order by bookid desc ",conn,1,1 if rs.eof and rs.bof then response.write "目前还没有商品" 'response.End else %> <% if not rs.eof then do while not rs.eof%> <li><a href="showpro.asp?id=<%=rs("bookid")%>"><img src="<%=rs("bookpic")%>" width="150" height="150" /></a><br /> <a href="showpro.asp?id=<%=rs("bookid")%>"><%if len(trim(rs("bookname")))>12 then response.write left(trim(rs("bookname")),10)&".." else response.write trim(rs("bookname")) end if%></a><br /> 市场报价: <font style="text-decoration:line-through; color:#999;">¥<%=formatnumber(rs("shichangjia"),2)&"元"%></font><br /> 爱美尔报价: <font style="color:#ff3399;">¥<%=formatnumber(rs("huiyuanjia"),2)&"元"%></font></li> <% rs.movenext loop rs.close end if end if %> </ul> </div> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td style=" background:url(images/select3_bg.gif) no-repeat left bottom; height:33px; padding-left:120px;"><div id="selected2"> </div><div align="right"><a href="products.asp?act=bestbook&anid=3&typeid=1" class="a2">更多..</a></div></td> </tr> </table> <div id="selected1_2" class="index_info_list"> <ul> <%set rs=server.CreateObject("adodb.recordset") rs.open "select Top 8 * from BJX_goods where bestbook=1 and anclassid=3 order by bookid desc ",conn,1,1 if rs.eof and rs.bof then response.write "目前还没有商品" 'response.End else %> <% if not rs.eof then do while not rs.eof%> <li><a href="showpro.asp?id=<%=rs("bookid")%>"><img src="<%=rs("bookpic")%>" width="150" height="150" /></a><br /> <a href="showpro.asp?id=<%=rs("bookid")%>"><%if len(trim(rs("bookname")))>12 then response.write left(trim(rs("bookname")),10)&".." else response.write trim(rs("bookname")) end if%></a><br /> 市场报价: <font style="text-decoration:line-through; color:#999;">¥<%=formatnumber(rs("shichangjia"),2)&"元"%></font><br /> 爱美尔报价: <font style="color:#ff3399;">¥<%=formatnumber(rs("huiyuanjia"),2)&"元"%></font></li> <% rs.movenext loop rs.close end if end if %> </ul> </div> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td style=" background:url(images/select4_bg.gif) no-repeat left bottom; height:33px; padding-left:120px;"><div id="selected3"> </div><div align="right"><a href="products.asp?act=bestbook&anid=4&typeid=1" class="a2">更多..</a></div></td> </tr> </table> <div id="selected1_4" class="index_info_list"> <ul> <%set rs=server.CreateObject("adodb.recordset") rs.open "select Top 8 * from BJX_goods where bestbook=1 and anclassid=4 order by bookid desc ",conn,1,1 if rs.eof and rs.bof then response.write "目前还没有商品" 'response.End else %> <% if not rs.eof then do while not rs.eof%> <li><a href="showpro.asp?id=<%=rs("bookid")%>"><img src="<%=rs("bookpic")%>" width="150" height="150" /></a><br /> <a href="showpro.asp?id=<%=rs("bookid")%>"><%if len(trim(rs("bookname")))>12 then response.write left(trim(rs("bookname")),10)&".." else response.write trim(rs("bookname")) end if%></a><br /> 市场报价: <font style="text-decoration:line-through; color:#999;">¥<%=formatnumber(rs("shichangjia"),2)&"元"%></font><br /> 爱美尔报价: <font style="color:#ff3399;">¥<%=formatnumber(rs("huiyuanjia"),2)&"元"%></font></li> <% rs.movenext loop rs.close end if end if %> </ul> </div> <table width="100%" border="0" cellspacing="0" cellpadding="0"> <tr> <td style=" background:url(images/select5_bg.gif) no-repeat left bottom; height:33px; padding-left:120px;"><div id="selected1_4"> </div><div align="right"><a href="products.asp?act=bestbook&anid=5&typeid=1" class="a2">更多..</a></div></td> </tr> </table> <div id="selected1_3" class="index_info_list"> <ul> <%set rs=server.CreateObject("adodb.recordset") rs.open "select Top 8 * from BJX_goods where bestbook=1 and anclassid=5 order by bookid desc ",conn,1,1 if rs.eof and rs.bof then response.write "目前还没有商品" 'response.End else %> <% if not rs.eof then do while not rs.eof%> <li><a href="showpro.asp?id=<%=rs("bookid")%>"><img src="<%=rs("bookpic")%>" width="150" height="150" /></a><br /> <a href="showpro.asp?id=<%=rs("bookid")%>"><%if len(trim(rs("bookname")))>12 then response.write left(trim(rs("bookname")),10)&".." else response.write trim(rs("bookname")) end if%></a><br /> 市场报价: <font style="text-decoration:line-through; color:#999;">¥<%=formatnumber(rs("shichangjia"),2)&"元"%></font><br /> 爱美尔报价: <font style="color:#ff3399;">¥<%=formatnumber(rs("huiyuanjia"),2)&"元"%></font></li> <% rs.movenext loop rs.close end if end if %> </ul> </div> <script type="text/javascript">$("#selected1 ul").idTabs("!mouseover"); </script></td> </tr> </table> </td> </tr> </table> <!--#include file="bottom.asp" --> </body> </html>