gusucode.com > 爱美尔女性商城源码 1.0源码程序 > index1.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" />
<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>
</head>
<body>
<!--#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" 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=2 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=2 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><a href="#"><img src="images/zb.jpg" width="189" height="80" /></a></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 height="5"><div align="center"></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="100%" border="0" cellspacing="0" cellpadding="0">
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select Top 3 ddzt,dingdan from BJX_action where ddzt<>'' order by actiondate 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="padding:5px 2px 5px 2px;"><img src="images/arrow_1.gif" /> 订单<font style="color:#ff9900; font-weight:bold;"><%=rs("dingdan")%></font>所购物品
<%=rs("ddzt")%></td>
</tr>
<%
rs.movenext
loop
rs.close
end if
end if
%>
</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"></div></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>
</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>
<table width="98%" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td style=" background:url(images/select1_bg.gif) no-repeat left bottom; height:33px; padding-left:120px;"><div id="selected1">
<ul>
<li><a href="#selected1_1">护肤</a></li>
<li><a href="#selected1_2">香水</a></li>
<li><a href="#selected1_3">防晒隔离</a></li>
<li><a href="#selected1_4">男士护肤</a></li>
</ul>
</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 9 * from BJX_goods where bestbook=1 and anclassid=9 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 class="clear" align="right" style="padding-right:20px; line-height:100px;"><a href="products.asp?act=bestbook&anid=9&typeid=2" class="a2">更多..</a></div>
</div>
<div id="selected1_2" class="index_info_list">
<ul>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select Top 9 * from BJX_goods where bestbook=1 and anclassid=11 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 class="clear" align="right" style="padding-right:20px; line-height:100px;"><a href="products.asp?act=bestbook&anid=11&typeid=2" class="a2">更多..</a></div>
</div>
<div id="selected1_3" class="index_info_list">
<ul>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select Top 9 * from BJX_goods where bestbook=1 and anclassid=10 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 class="clear" align="right" style="padding-right:20px; line-height:100px;"><a href="products.asp?act=bestbook&anid=10&typeid=2" class="a2">更多..</a></div>
</div>
<div id="selected1_4" class="index_info_list">
<ul>
<%set rs=server.CreateObject("adodb.recordset")
rs.open "select Top 9 * from BJX_goods where bestbook=1 and anclassid=12 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 class="clear" align="right" style="padding-right:20px; line-height:100px;"><a href="products.asp?act=bestbook&anid=12&typeid=2" class="a2">更多..</a></div>
</div>
<script type="text/javascript">$("#selected1 ul").idTabs("!mouseover"); </script></td>
</tr>
</table></td>
<td 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 12 * 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"),20)%></a></td>
</tr>
<%
rs.movenext
loop
rs.close
set rs=nothing
%>
</table></td>
</tr>
<tr>
<td><img src="images/newsfooter.jpg" width="190" height="12" /></td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"><div align="center"></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="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="50%" height="60" align="center"><a href="#"><img src="images/qq_online.gif" width="74" height="23" style="margin:5px 0px 5px 0px;" /><br />
客服小赵</a></td>
<td width="50%" height="60" align="center"><a href="#"><img src="images/qq_online.gif" width="74" height="23" style="margin:5px 0px 5px 0px;" /><br />
客服小赵</a></td>
</tr>
<tr>
<td height="60" align="center"><a href="#"><img src="images/qq_online.gif" width="74" height="23" style="margin:5px 0px 5px 0px;" /><br />
客服小赵</a></td>
<td height="60" align="center"><a href="#"><img src="images/qq_online.gif" width="74" height="23" style="margin:5px 0px 5px 0px;" /><br />
客服小赵</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"></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="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"></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></td>
</tr>
</table>
<!--#include file="bottom.asp" -->
</body>
</html>