a_tree.asp

网上购物系统 asp+sql server 2005

<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<SCRIPT language=javascript>
//商品分类树状节点的展开和关闭
//obj：为当前操作节点
//img：为当前节点显示图片
function showmenu(obj,img)
{
if(obj.style.display=="none"){
obj.style.display="";
img.src="images/small/bclass2.gif";
} else {
obj.style.display="none"; 
img.src="images/small/bclass1.gif";
}
}
</SCRIPT>
<!--**************商品分类开始**************-->
<table width="185" border=0 align="center" cellpadding=0 cellspacing=0 class="new">
<tr><td align=center><img width=185 src=images/bar_fenlei.gif border=0></td></tr>  
</table>
<TABLE align=center cellSpacing=0 cellPadding=0 width=171 border=0 class="new">
<%
'大类
openlar=request("larcode")
'从文本文件中读取商品分类，文本文件中已预存分类，结构如下：
'lar:大类名称
'小类名称

Set Fso = CreateObject("Scripting.FileSystemObject")
set bclass=Fso.openTextFile(Server.MapPath("include/class.asp"))
do while not bclass.atendofstream
'读一行
classtext=bclass.readline
if classtext="暂无商品分类" then
response.write "<tr><td width=171 height=100 align=center>暂无商品分类</td></tr>"
exit do
end if
'大类
if instr(classtext,"lar:")>0 then
larcode=replace(classtext,"lar:","")
if tree_num=1 then
' 取得大类中共有多少商品
set cqrsprod =conn.execute("select count(*) as thislarnum from s_produc where online=1 and larcode='"&larcode&"'")
thislarnum=cqrsprod("thislarnum")
thislarnum="["&thislarnum&"]"
set cqrsprod=nothing
end if
lar=lar+1
if lar>1 and lar<>old then response.write "</td></tr>"
midd=1
'显示
response.write "<TR><TD language=javascript onmouseup='showmenu(buyok"&lar&",&#13;&#10;  img"&lar&");' id=item$pval[buyokID]) style='CURSOR: hand' onMouseOver=""bgColor='#eaecec';"" onMouseOut=""bgColor='#FFFBF7';"" height=24 valign=middle><IMG id=img"&lar&" height=20 src=images/small/bclass1.gif width=20 align=absMiddle>&nbsp;<font color="&lar_color&"><B alt='"&larcode&"'>"&larcode&"</B> "&thislarnum&"</td></tr>"
else
'小类
midcode=classtext
if midd=1 then
if tree_display=1 then
response.write "<TR><TD id=buyok"&lar&"  bgColor=fbfbfb>"
elseif openlar=larcode then
response.write "<TR><TD id=buyok"&lar&"  bgColor=fbfbfb>"
else
response.write "<TR><TD id=buyok"&lar&" style='DISPLAY: none' bgColor=fbfbfb>"
end if
end if
response.write "<IMG height=20 src=images/small/bclass3.gif width=36 align=absMiddle border=0><a href='class.asp?LarCode="&server.URLEncode(LarCode)&"&MidCode="&server.URLEncode(MidCode)&"'><font color="&mid_color&" alt='"&MidCode&"'>"&lleft(MidCode,20)&"</font></a><br>"
midd=midd+1
old=lar
end if
loop
bclass.close
set fso=nothing
%>
</table>
<!--**************商品分类结束**************-->
<!--**************热卖商品开始**************-->
<table width=185 border=0 align="center" cellpadding=0 cellspacing=0 class="new"><tr><td><img width=185 src=images/bar_remen.gif border=0 alt=热门商品></td></tr></table>
<table border=0 cellpadding=2 cellspacing=0 width=170>
<%
'以点击次数倒序进行排序
set cqrsprod=conn.execute("select  top "&renmen_num&" * from s_produc where online=1 order by ClickTimes desc,AddDate desc")
Do While Not cqrsprod.eof
prodname=lleft(cqrsprod("ProdName"),25)
'显示
response.write "<tr><td class='dfont' onMouseOver=""bgColor='#eaecec'"" onMouseOut=""bgColor='#FFFBF7'"">&nbsp;<a href='list.asp?ProdId="&cqrsprod("ProdId")&"'><font color=#0066ff alt='热门商品TOP"&K+1&"'>"&prodname&"</font></a></td></tr>"
'k=k+1
'if k>renmen_num-1 then exit do
cqrsprod.movenext
loop
set cqrsprod=nothing
%>
</table>
<!--**************热卖商品结束**************-->
<!--**************联系方式开始**************-->
<table border="0" width="171" cellpadding="0" cellspacing="0" align=center  background="images/contact2.gif">
<tr><td><img src="images/contact.gif" border=0 alt='我们的联系方式'></td></tr>
<tr><td align=center>
<table width="95%"  border="0" cellspacing="0" cellpadding="0">
<tr><td class="engtxt1"><font color='<%=kf_color%>'><%=adm_kf%></font></td></tr>
</table>
</td></tr>
<tr><td><img src="images/contact3.gif" border=0></td></tr>
</table>
<!--**************联系方式结束**************-->
<table border="0" width="171" cellpadding="0" cellspacing="0" align=center>
<tr><td height=64 valign=bottom><a href="fukuan.asp"><img src=images/huikuan.gif alt="银行帐号及支付说明" width="171" height="59" border=0></a></td></tr>
<tr><td height=68 valign=middle><a href="page.asp?id=13"><img src=images/wenti.gif alt="有任何疑问，请进帮助中心" width="171" height="59" border=0></a></td>
</tr>
<tr>
  <td height=64 valign=top><a href="newmember.asp"><img src=images/liuchen.gif alt="购物指南" width="171" height="59" border=0></a></td>
</tr>
</table>