left.asp
资源名称:blog.rar [点击查看]
上传用户:syzzy1975
上传日期:2022-07-17
资源大小:670k
文件大小:4k
源码类别:
Jsp/Servlet
开发平台:
Java
- <%
- dim ii,rsLeft
- set rsLeft=server.CreateObject("adodb.recordset")
- %>
- <script language="javascript">
- function Menu(term){
- if(term.style.display=="none"){
- term.style.display="";
- }else{
- term.style.display="none";}
- }
- </script>
- <style type="text/css">
- <!--
- .STYLE1 {color: #66FFCC}
- -->
- </style>
- <table width="212" border="0" align="left" cellpadding="0" cellspacing="0">
- <tr>
- <td align="left" valign="top"><img src="images/mycar_up_1.gif" width="212" height="47"></td>
- </tr>
- <tr>
- <td align="left" valign="top"><img src="images/mycar_up_2.gif" width="212" height="13"></td>
- </tr>
- <tr>
- <td height="188" align="center" valign="top" background="images/mycar_bg.gif" ><iframe name="pcart" src="icar.asp" width="185" height="188" scrolling="no" frameborder="0"><span class="STYLE1"></span></iframe></td>
- </tr>
- <tr>
- <td width="212" height="36" align="center" background="images/mycar_down.gif"><table width="161" border="0" cellspacing="0" cellpadding="0">
- <tr>
- <td width="26"> </td>
- <td width="135"><a href="car.asp" target="_blank" class="whitefont">购物车/结帐</a>|<a href="muser.asp" target="_parent" class="whitefont">帐号</a>|<a href="logout.asp" target="_parent" class="whitefont">注消</a></td>
- </tr>
- </table></td>
- </tr>
- <tr>
- <td><img src="images/lmdh.gif" width="212" height="23"></td>
- </tr>
- <tr>
- <td> </td>
- </tr>
- <%
- rsLeft.open "select category,categoryid from category where first=1",conn,1,1
- do while not rsLeft.eof
- %>
- <tr>
- <td height="23" background="images/lmenu_2.gif" class="dao" onClick=Menu(<%="m"&rsLeft("categoryid")%>)><%=rsLeft("category")%></td>
- </tr>
- <tr>
- <td height="23" id=<%="m"&rsLeft("categoryid")%> style="display:none">
- <table width="100%" border="0" cellspacing="2" cellpadding="2">
- <%
- dim rsSubLeft
- set rsSubLeft=server.CreateObject("adodb.recordset")
- rsSubLeft.open "select sorts,sortsid from sorts where categoryid="&rsLeft("categoryid")&" and first=1 order by sortsorder",conn,1,1
- do while not rsSubLeft.eof
- %>
- <tr>
- <td class="daosub"><a href="sub.asp?aid=<%=rsLeft("categoryid")%>&nid=<%=rsSubLeft("sortsid")%>"><%=rsSubLeft("sorts")%></a></td>
- </tr>
- <%
- rsSubLeft.movenext
- loop
- rsSubLeft.close
- set rsSubLeft=nothing
- %>
- </table></td>
- </tr>
- <%
- rsLeft.movenext
- loop
- rsLeft.close
- %>
- <tr>
- <td><img src="images/cxtsph.gif" width="212" height="32"></td>
- </tr>
- <tr>
- <td height="100" align="center" valign="top">
- <table width="100%" border="0" cellpadding="1" cellspacing="2" bgcolor="#66FFFF">
- <%
- rsLeft.open "select top 10 id,name,solded from product order by solded desc",conn,1,1
- if rsLeft.eof and rsLeft.bof then
- response.write " 对不起, 暂时还没有商品!"
- 'response.End()
- else
- ii=0
- do while not rsLeft.eof
- %>
- <tr>
- <td align="left"><a href="vpro.asp?id=<%=rsLeft("id")%>" target="_blank"><img src="images/w.gif" width="18" height="18" border="0"><%=strvalue(trim(rsLeft("name")),20)%></a>(<%=rsLeft("solded")%>)</td>
- </tr>
- <%ii=ii+1
- if ii>=10 then exit do
- rsLeft.movenext
- loop
- rsLeft.close
- set rsLeft=nothing
- end if
- %>
- </table></td>
- </tr>
- <tr>
- <td> </td>
- </tr>
- <tr>
- <td> </td>
- </tr>
- </table>