gusucode.com > 爱美尔女性商城源码 1.0源码程序 > 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>