left.asp

多多网店系统v3.01 完全免费可用版-功能简介: 支持多模板皮肤色切换[8套] 支持按商品特性[推荐商品/特价商品/新品分类]浏览 支持按商品类别浏览 支持单件商品用支付宝交易按钮直接支付订

<%
' 左部文件： 主要有这几个部分组成:商品分类/订单查询/发货通知/热门商品/左侧广告
//<!----product class  ---->		
response.write "<table width='100%' cellspacing=1 cellpadding=4 class=MainTable>"
response.write "	<tr><td class=MainHead>商品分类</td></tr>"
					dim cid_left,product_class_name_left
					Set rs= Server.CreateObject("ADODB.Recordset")
					sql="select cid,product_class_name from product_class order by cid"
					rs.open sql,conn,1,1
					if not rs.eof then
    					set cid_left=rs(0)
    					set product_class_name_left=rs(1)
    					while not rs.eof
    					response.write "<tr><td>&nbsp;<img src=images/icon_arrow_blue.gif>&nbsp;<a href=Product_ListCategory.asp?cid="&cid_left&">"&product_class_name_left&"</a></td></tr>"
    					rs.movenext
						wend
					end if
					rs.close
					set rs=nothing 
response.write "</table>"
response.write "<br>"
//<!----order search  ---->
response.write "<table width=100% cellspacing=1 cellpadding=4 class=MainTable>"
response.write "<Form name=form_ordersearch action=Order_SearchResult.asp method=post>"
response.write "	<tr>"
response.write "		<td class=MainHead>订单查询/发货通知</td>"
response.write "	</tr>"
response.write "	<tr>"
response.write "		<td>"
response.write "			<input type=text name=search_order_info_no size=16>  <input type=submit value=查询>"
response.write "		</td>"
response.write "	</tr>"
response.write "	<tr>"
					dim order_info_no_left,order_info_RealName_left,order_info_CheckTime_left
					Set rs=Server.CreateObject("ADODB.Recordset")
					sql="select order_info_no,order_info_RealName,order_info_CheckTime from order_info where order_info_CheckStates=4"
					rs.open sql,conn,1,1
					if not rs.eof then 
    					set order_info_no_left=rs(0)
    					set order_info_RealName_left=rs(1)
    					set order_info_CheckTime_left=rs(2)
    					response.write "<td height=40><marquee style='position:relative;' onMouseOver='this.stop()' onMouseOut='this.start()' scrollamount=1 scrolldelay=85 direction=up behavior=scroll  height=100>"
   						while not rs.eof 
    					response.write order_info_RealName_left&"顾客："&order_info_no_left&"号订单已发货!"&datevalue(order_info_CheckTime_left)&"</A><br>"
    					rs.movenext
    					wend
    					response.write "</marquee></td>"
        			else 
           		 		response.write "<td>最近三天内暂无发货信息!</td>"

					end if
					rs.close
					set rs=nothing
response.write "	</tr>"
response.write "</Form>"
response.write "</table>"
response.write "<br>"
//<!----hot top10  ---->		
response.write "<table width=100% cellspacing=1 cellpadding=4 class=MainTable>"
response.write "	<tr>"
response.write "		<td class=MainHead>热门商品</td>"
response.write "	</tr>"
					dim id_top10,product_info_name_top10,product_info_name_top
					set rs=server.createobject("adodb.recordset")
					sql="select top 10 id,product_info_name from product_info where Product_info_OnOff=0 order by product_info_HitNums,id desc"
					rs.open sql,conn,1,1                                    
					if not rs.eof then 
						set id_top10=rs(0)
    					set product_info_name_top10=rs(1)
    					while not rs.eof
    					if len(product_info_name_top10)>24 then 
    	    				product_info_name_top=left(product_info_name_top10,24)
    					else
    	    				product_info_name_top=product_info_name_top10
    					end if

    					response.write "<tr><td>·<a href=Product_Detail.asp?id="&id_top10&">"&product_info_name_top&"</a></td></tr>"
    					rs.movenext
						wend
					end if
					rs.close
					set rs=nothing 
response.write "</table>"
response.write "<br>"
//<!----ad left  ---->	
dim root_option_OnOffAdvLeft,adv_left_pic,adv_left_PicUrl
set rs=server.createobject("adodb.recordset")
sql="select root_option_OnOffAdvLeft from root_option where id=1"
rs.open sql,conn,1,1
root_option_OnOffAdvLeft=rs(0)
rs.close
set rs=nothing

if root_option_OnOffAdvLeft=0 then
	response.write "<table width=100% cellspacing=1 cellpadding=4 class=MainTable>"
	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 
        set adv_left_pic=rs(0)
        set adv_left_PicUrl=rs(1)
        while not rs.eof
        response.write "<tr><td><a href="&adv_left_PicUrl&" target=_blank><img src=uploadpic/"&adv_left_Pic&" border=0 onload='loaded(this,150,150)'></td></tr>"
        rs.movenext
        wend
    end if
    rs.close
    set rs=nothing
    response.write "</table>"
end if
%>