top.asp

网上购物系统

<!--#include file="qq.asp" -->
<%
Dim root_info_OnOff,root_info_OffNote,root_info_LogoPic,root_info_skin
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select top 1 root_info_OnOff,root_info_OffNote,root_info_LogoPic,root_info_skin from root_info"
rs.open sql,conn,1,1
root_info_OnOff   =rs(0)
root_info_OffNote =rs(1)
root_info_LogoPic =rs(2)
root_info_skin    =rs(3)
rs.close
set rs=nothing

if root_info_OnOff=1 then 
    response.write "<center><br><br><br><br><br>"&root_info_OffNote&"</center>"
    response.end
end if

if isnull(root_info_logopic)=true then root_info_logopic=logo.gif
if root_info_skin="" then root_info_skin="014"
response.write  "<link rel=stylesheet type=text/css href=skin/"&root_info_skin&"/"&root_info_skin&".css>"&_
				"<script src=js/PicLimit.js type=text/javascript></script>"&_
				"<div id=container>"&_
				"	<div id=header>"&_
				"		<div id=shopheader>"&_
				"			<div id=logo>"&_
				"				<a href=index.asp title=返回首页><img src=uploadpic/"&root_info_LogoPic&"></a>"&_
				"			</div>"&_
				"			<div id=headnavbar>"&_
				"				<ul>"&_
        		"					<li>"&_
        		"						<img src=images/cart.gif align=absbottom> <a href=Cart_List.asp>我的购物车(<font color=#FF0000> "
        								if session("y")="" then 
response.write 	"							0" 
										else 
response.write 								session("y")
										end if
response.write  "						</font>)</a>"&_
				"					</li>"&_
        		"					<li class=menuDiv></li>"&_
				"					<li><a href=Help_List.asp>帮助中心</a></li>"&_
        		"					<li class=menuDiv></li>"&_
        		"					<li><a href=ContactUs.asp>联系我们</a></li>"&_
        		"					<li class=menuDiv></li>"&_
                "					<li><a href=AboutUs.asp  >关于我们</a></li>"&_
        		"					<li class=menuDiv></li>"&_
                "					<li><a href=Remit.asp  >如何支付</a></li>"&_
      			"				</ul>"&_
				"			</div>"&_
				"			<form method=get action=prod_ListSearch.asp name=search>"&_
				"			<div id=headsearch>"&_
				"				<input type=text size=20 name=name>"&_
				"				<select name=cid>"&_
				"					<option value=''>所有类别</option>"
									sql="select cid,prod_class_name from prod_class order by cid desc"
		     						set rs=conn.execute (sql)
		     						set cid1=rs(0)
		     						set prod_class_name1=rs(1)
		     						do while not rs.eof
response.write  "					<option value="&cid1&">"&prod_class_name1&"</option>"
		     						rs.movenext
		     						loop
		     						rs.close
		     						set rs=nothing
response.write  "				</select>"&_
				"				<input class=button type=submit value=搜索>&nbsp;<a href=prod_Search.asp>高级搜索</a>&nbsp; &nbsp; &nbsp; "&_
				"			</div>"&_
				"			</form>"&_
				"			<div class=HackBox></div>	"&_			
				"		</div>"&_
				"		<div id=menu>"&_
				"			<div id=Left></div>"&_
				"			<div id=Right></div>"&_
				"			<ul>"&_
				"				<li class=menuL></li>"&_
				"				<li><a class=menuA href=index.asp>网站首页</a></li>"&_
				"				<li class=menuDiv>　</li>"&_
				"				<li><a class=menuA href=prod_ListFlag.asp?flag=1>新品上市</a></li>"&_
				"				<li class=menuDiv>　</li>"&_
				"				<li><a class=menuA href=prod_ListFlag.asp?flag=2>精品推荐</a></li>"&_
				"				<li class=menuDiv>　</li>"&_
				"				<li><a class=menuA href=prod_ListFlag.asp?flag=3>特价商品</a></li>"&_
				"				<li class=menuDiv>　</li>"&_
				"				<li><a class=menuA href=News_List.asp>网店动态</a></li>"&_
				"				<li class=menuDiv>　</li>"&_
				"				<li><a class=menuA href=GuestBook_List.asp>网店留言</a></li>"&_
				"			</ul>"&_
				"		</div>"&_
				"		<div class=HackBox></div>"&_	
				"	</div>"&_
				"	<!--内容 -->"&_
				"	<div id=tbody>"
%>