left.asp

网上购物系统

<!--侧栏 -->
<div id="sidebar">
	<div id="innersidebar">		
	    	
		<!--商品目录 -->
		<div id="Category" class="sidepanel">
			<h4 class="Ptitle">商品分类</h4>
			<div class="Pcontent">
				<ul>
				<%
				dim cid_left,prod_class_name_left
				set rs= server.createobject("adodb.recordset")
				sql="select cid,prod_class_name from prod_class order by cid"
				rs.open sql,conn,1,1
				if not rs.eof then
    				set cid_left=rs(0)
    				set prod_class_name_left=rs(1)
    				while not rs.eof
						response.write "<li><a href=prod_ListCategory.asp?cid="&cid_left&">"&prod_class_name_left&"</a></li>"
    					rs.movenext
					wend
				else
					response.write "<li>暂无分类</li>"
				end if
				rs.close
				set rs=nothing 
				%>
				</ul>
			</div>
			<div class="Pfoot"></div>
		</div>
		
							
				<%Set rs=Server.CreateObject("ADODB.Recordset")
				sql="select top 1 root_info_QQOnOff,root_info_QQplace from root_info"
				rs.open sql,conn,1,1
				root_info_QQOnOff2 =rs(0)
				root_info_QQplace2 =RS(1)
				rs.close
				set rs=nothing

				if root_info_QQOnOff2=0 and root_info_QQplace2=2 then
					Set rs=Server.CreateObject("ADODB.Recordset")
					sql="select top 1 root_info_QQ,root_info_QQName,root_info_WangWang,root_info_WangWangOnOff from root_info"
					rs.open sql,conn,1,1
					root_info_QQ2 =rs(0)
					root_info_QQName2=rs(1)
					root_info_WangWang2=rs(2)
					root_info_WangWangOnOff2=rs(3)
					rs.close
					set rs=nothing
				%>
				<div id="contactus" class="sidepanel">
					<h4 class="Ptitle">联系客服</h4>
					<div class="Pcontent">
					ＱＱ客服：<br />
					<%
    				QQ2=split(root_info_qq2,",")
    				QQName2=split(root_info_qqName2,",")
    				for m=0 to UBound(QQ2)
						txt_QQName2="<a target=blank href='http://wpa.qq.com/msgrd?V=1&Uin="&qq2(m)&"&Site=在线咨询&Menu=no' title="&QQName2(m)&"><img src=http://wpa.qq.com/pa?p=1:"&trim(qq2(m))&":4 border=0 align=absmiddle>&nbsp;"&QQName2(m)&"</a>"
						response.write qq2(m)&"："&txt_QQName2&"<br>"
					next
					
					if root_info_WangWangOnOff2=0 then%>
					淘宝旺旺：<br>
					<SCRIPT language="JavaScript" src="js/URLEncode.js"></SCRIPT>
					<script language="javascript">
						var taobaoid;
						var taobaos;
    					taobaos="<%=root_info_WangWang2%>";
    					taobaoid=URLEncode(taobaos)
    					document.writeln("<a target=_blank href=http://amos1.taobao.com/msg.ww?v=2&s=1&uid="+taobaoid+">")
						document.writeln("<img border=0 alt=点击这里给我发消息 src=http://amos1.taobao.com/online.ww?v=2&s=1&uid="+taobaoid+">")
						document.writeln("</a>")
					</script>
					<%end if%>
					</div>
					<div class="Pfoot"></div>
				</div>
				<%end if%>

										
		<!--订单查询 -->
		<Form name=form_ordersearch action=Order_SearchResult.asp method=post>
		<div id="Category" class="sidepanel">
			<h4 class="Ptitle">订单查询</h4>
			<div class="Pcontent">
				<input type=text name=search_order_info_no size=14>  <input class=button type=submit value=查询>					
			</div>
			<div class="Pfoot"></div>
		</div>
		</Form>

		<!-- 热门排行 -->					
		<div id="Category" class="sidepanel">
			<h4 class="Ptitle">热门商品</h4>
			<div class="Pcontent">
			<ul>
			<%
			dim id_top10,prod_info_name_top10,prod_info_name_top
			set rs=server.createobject("adodb.recordset")
			sql="select top 10 id,prod_info_name from prod_info where prod_info_OnOff=0 order by prod_info_HitNums,id desc"
			rs.open sql,conn,1,1                                    
			if not rs.eof then 
				set id_top10=rs(0)
    			set prod_info_name_top10=rs(1)
    			while not rs.eof
    			if len(prod_info_name_top10)>24 then 
    	    		prod_info_name_top=left(prod_info_name_top10,24)
    			else
    	    		prod_info_name_top=prod_info_name_top10
    			end if

    			response.write "<li>·<a href=prod_Detail.asp?id="&id_top10&">"&prod_info_name_top&"</a></li>"
    			rs.movenext
				wend
			end if
			rs.close
			set rs=nothing 
			%>
			</ul>
			</div>
			<div class="Pfoot"></div>
		</div>
				
		 <!--左侧广告 -->
		<%
		set rs=server.createobject("adodb.recordset")
		sql="select top 1 root_option_OnOffAdvLeft from root_option"
		rs.open sql,conn,1,1
		root_option_OnOffAdvLeft=rs(0)
		rs.close
		set rs=nothing

		if root_option_OnOffAdvLeft=0 then
			set rs=server.createobject("adodb.recordset")
			sql="select adv_left_pic,adv_left_PicUrl from adv_left order by adv_left_id desc"
			rs.open sql,conn,1,1
			if not rs.eof then 
		%>
		<div id="Category" class="sidepanel">
			<div class="Pcontent">
				<ul>
				<%
        		set adv_left_pic=rs(0)
        		set adv_left_PicUrl=rs(1)
       			while not rs.eof
        			response.write "<li><a href="&adv_left_PicUrl&" target=_blank><img src=uploadpic/"&adv_left_Pic&" border=0 onload='loaded(this,150,150)'></a></li>"
        		rs.movenext
        		wend
				%>
				</ul>
			</div>
			<div class="Pfoot"></div>
		</div>
		<%	end if
    		rs.close
    		set rs=nothing
		end if
		%>
				
	</div><!-- end div#innersidebar -->
</div><!-- end div#sidebar -->
				
<!--内容主栏 -->
<div id="mainContent">
	<div id="innermainContent">
		<div id="Content_ContentList" class="content-width">