buyok_tree.asp

多语言网站管理系统

<SCRIPT language=javascript>
function showmenu(buyok,img)
{
if(buyok.style.display=="none"){
buyok.style.display="";
img.src="images/small/bclass2.gif";
} else {
buyok.style.display="none"; 
img.src="images/small/bclass1.gif";
}
}
</SCRIPT>
<%
if tree_view<>0 then
%>
<table width="185" border=0 align="center" cellpadding=0 cellspacing=0 class="new">
<tr><td align=center><img width=185 src=images/<%=skin%>/bar_fenlei.gif border=0></td></tr>  
</table>
<TABLE align=center cellSpacing=0 cellPadding=0 width=171 border=0 class="new">
<%
openlar=request("larcode")
Set Fso = CreateObject("Scripting.FileSystemObject")
set buyok_class=Fso.openTextFile(Server.MapPath("include/buyok_class.asp"))
do while not buyok_class.atendofstream
classtext=buyok_class.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 buyok_produc where online=true 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='#FFE3D2';"" 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=FEFDF5>"
elseif openlar=larcode then
response.write "<TR><TD id=buyok"&lar&"  bgColor=FEFDF5>"
else
response.write "<TR><TD id=buyok"&lar&" style='DISPLAY: none' bgColor=FEFDF5>"
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
buyok_class.close
set fso=nothing
%>
</table>
<%
end if
%>
<table width=185 border=0 align="center" cellpadding=0 cellspacing=0 class="new"><tr><td><img width=185 src=images/<%=skin%>/bar_remen.gif border=0 alt=热门商品></td></tr></table>
<table border=0 cellpadding=2 cellspacing=0 width=170>
<%
set cqrsprod=conn.execute("select  * from buyok_produc where online=true order by ClickTimes desc,AddDate desc")
Do While Not cqrsprod.eof
prodname=lleft(cqrsprod("ProdName"),25)
response.write "<tr><td class='dfont' onMouseOver=""bgColor='#FFE3D2'"" 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
if cqrsprod.eof then exit do
cqrsprod.movenext
loop
set cqrsprod=nothing
%>
</table>
<table border="0" width="171" cellpadding="0" cellspacing="0" align=center  background="images/<%=skin%>/contact2.gif">
<tr><td><img src="images/<%=skin%>/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/<%=skin%>/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/<%=skin%>/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/<%=skin%>/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/<%=skin%>/liuchen.gif alt="购物指南" width="171" height="59" border=0></a></td>
</tr>
</table>
<table border="0" width="171" cellpadding="0" cellspacing="0" align=center>
<tr><td><img src="images/<%=skin%>/vote.gif" border=0></td></tr>
<tr><td align=center background="images/<%=skin%>/vote2.gif">
<table border=0 width=95%><tr><td>
<%
Set rsVote= conn.execute("select top 1 * from Vote where view='1'")
if (rsVote.bof and rsVote.eof) then 
response.Write "<p align=center><font color=darkgray>暂时没有调查项目</font></p>"
else
response.write "<form name='VoteForm' method='post' action='vote.asp' target='_blank'>"
response.write "<b>"&rsVote("Title") & "</b><br><font color=darkgray>"
 if rsVote("VoteType")="dan" then
for i=1 to 8
if trim(rsVote("Select" & i) & "")="" then exit for
response.Write "<input type='radio' name='VoteOption' value='" & i & "'>" & rsVote("Select" & i) & "<br>"
next
else
for i=1 to 8
if trim(rsVote("Select" & i) & "")="" then exit for
response.Write "<input type='checkbox' name='VoteOption' value='" & i & "'>" & rsVote("Select" & i) & "<br>"
next
end if
%>
<input name='VoteType' type='hidden' value='<%=rsVote("VoteType")%>'>
<input name='Action' type='hidden' value='vote'>
<p align=center>
<input type="image" src="images/small/voteSubmit.gif" alt="我要投票">&nbsp;&nbsp;
<a class=b href='Vote.asp?Action=Show' target='_blank'>
<img src='images/small/voteView.gif' border='0' alt='查看投票结果'></a>
</td></form>
<%
end if
rsVote.close
set rsVote=nothing
%>
</table>
</td></tr>
<tr><td><img src="images/<%=skin%>/vote3.gif" border=0></td></tr>
<tr><td height=20> </td></tr>
</table>