top.asp

凡人网络购物系统 v8.0 中文版

<!--#include file="conn.asp"-->
<%
venshopcom="li#Uhtxhvw+%kzblg%,?A%%#dqg#lvQxphulf+Uhtxhvw+%kzblg%,,#wkhq!kzblg@Uhtxhvw+%kzblg%,!vhw#uv@vhuyhu1fuhdwhremhfw+%dgrge1uhfrugvhw%,!vto@%vhohfw#-#iurp#yhqvkrsbkz#zkhuh#kzblg@%)kzblg)%%!uv1rshq#vto/frqq/4/4!li#qrw#uv1hri#wkhq!kzbqdph@uv+%kzbqdph%,!hqg#li!uv1forvh!vhw#uv@qrwklqj!hqg#li!li#Uhtxhvw+%qvruwblg%,?A%%#dqg#lvQxphulf+Uhtxhvw+%qvruwblg%,,#wkhq!qvruwblg@Uhtxhvw+%qvruwblg%,!vhw#uv@vhuyhu1fuhdwhremhfw+%dgrge1uhfrugvhw%,!vto@%vhohfw#-#iurp#yhqvkrsbqvruw#zkhuh#qvruwblg@%)qvruwblg)%%!uv1rshq#vto/frqq/4/4!li#qrw#uv1hri#wkhq!qvruwbqdph@uv+%qvruwbqdph%,!vruwblg@uv+%vruwblg%,!hqg#li!uv1forvh!vhw#uv@qrwklqj!vhw#uv@vhuyhu1fuhdwhremhfw+%dgrge1uhfrugvhw%,!vto@%vhohfw#-#iurp#yhqvkrsbvruw#zkhuh#vruwblg@%)vruwblg)%%!uv1rshq#vto/frqq/4/4!li#qrw#uv1hri#wkhq!vruwbqdph@uv+%vruwbqdph%,!hqg#li!uv1forvh!vhw#uv@qrwklqj!hqg#li!li#Uhtxhvw+%vruwblg%,?A%%#dqg#lvQxphulf+Uhtxhvw+%vruwblg%,,#wkhq!vruwblg@Uhtxhvw+%vruwblg%,!vhw#uv@vhuyhu1fuhdwhremhfw+%dgrge1uhfrugvhw%,!vto@%vhohfw#-#iurp#yhqvkrsbvruw#zkhuh#vruwblg@%)vruwblg)%%!uv1rshq#vto/frqq/4/4!li#qrw#uv1hri#wkhq!vruwbqdph@uv+%vruwbqdph%,!hqg#li!uv1forvh!vhw#uv@qrwklqj!hqg#li!li#Uhtxhvw+%slqsdlblg%,?A%%#dqg#lvQxphulf+Uhtxhvw+%slqsdlblg%,,#wkhq!slqsdlblg@Uhtxhvw+%slqsdlblg%,!vhw#uv@vhuyhu1fuhdwhremhfw+%dgrge1uhfrugvhw%,!vto@%vhohfw#-#iurp#yhqvkrsbslqsdl#zkhuh#slqsdlblg@%)slqsdlblg)%%!uv1rshq#vto/frqq/4/4!li#qrw#uv1hri#wkhq!slqsdlbqdph@uv+%slqsdlbqdph%,!hqg#li!uv1forvh!vhw#uv@qrwklqj!hqg#li!li#Uhtxhvw+%dblg%,?A%%#dqg#lvQxphulf+Uhtxhvw+%dblg%,,#wkhq!dblg@Uhtxhvw+%dblg%,!vhw#uv@vhuyhu1fuhdwhremhfw+%dgrge1uhfrugvhw%,!vto@%vhohfw#-#iurp#yhqvkrsbduwlfoh#zkhuh#lg@%)dblg)%%!uv1rshq#vto/frqq/4/4!li#qrw#uv1hri#wkhq!dbqdph@uv+%dbqdph%,!hqg#li!uv1forvh!vhw#uv@qrwklqj!hqg#li!li#kzbqdph?A%%#wkhq#wlwohqdph@kzbqdph!li#slqsdlbqdph?A%%#wkhq#wlwohqdph@slqsdlbqdph!li#dbqdph?A%%#wkhq#wlwohqdph@dbqdph!li#qvruwbqdph?A%%#wkhq!wlwohqdph@qvruwbqdph)%/%)vruwbqdph!hovhli#vruwbqdph?A%%#wkhq!wlwohqdph@vruwbqdph!hqg#li!vlwhqdph@vlwhqdph)%#Srzhu#e|=YhqVkrs1Frp%!uhvsrqvh1zulwh#%?kwpoA?khdgA?wlwohA%!li#wlwohqdph?A%%#wkhq#uhvsrqvh1zulwh#wlwohqdph)%0%!uhvsrqvh1zulwh#vlwhqdph!uhvsrqvh1zulwh#%?2wlwohA%)yefuoi!uhvsrqvh1zulwh#%?phwd#qdph@%%Nh|zrugv%%#frqwhqw@%%%!li#wlwohqdph?A%%#wkhq#uhvsrqvh1zulwh#wlwohqdph)%/%!uhvsrqvh1zulwh#vlwhqdph!uhvsrqvh1zulwh#%%%A%)yefuoi!uhvsrqvh1zulwh#%?phwd#qdph@%%Ghvfulswlrq%%#frqwhqw@%%%!li#wlwohqdph?A%%#wkhq#uhvsrqvh1zulwh#wlwohqdph)%/%!uhvsrqvh1zulwh#vlwhqdph!uhvsrqvh1zulwh#%%%A%)yefuoi!uhvsrqvh1zulwh#%?phwd#kwws0htxly@%%Frqwhqw0W|sh%%#frqwhqw@%%wh{w2kwpo>#fkduvhw@je5645%%A%)yefuoi!uhvsrqvh1zulwh#%?phwd#kwws0htxly@%%Sudjpd%%#frqwhqw@%%qr0fdfkh%%A%)yefuoi!uhvsrqvh1zulwh#%?phwd#kwws0htxly@%%Fdfkh0Frqwuro%%#frqwhqw@%%qr0fdfkh/#pxvw0uhydolgdwh%%A%)yefuoi!uhvsrqvh1zulwh#%?olqn#uho@%%vw|ohvkhhw%%#w|sh@%%wh{w2fvv%%#kuhi@%%Vnlq2%)yhqvkrsbvnlq)%2fvv1fvv%%A?2khdgA%!uhvsrqvh1zulwh#%?erg|#wrspdujlq@%%3%%#ohiwpdujlq@%%3%%#uljkwpdujlq@%%3%%#erwwrppdujlq@%%3%%A%"
execute(vencode(venshopcom))
Function Showflash(img,wt,hg,oname)
response.write "<object classid=""clsid:D27CDB6E-AE6D-11CF-96B8-444553540000"" name="&oname&" codebase=""http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0"" border=""0"" width="&wt&" height="&hg&">"
response.write "<param name=""movie"" value="&img&">"
response.write "<param name=""quality"" value=""High"">"
response.write "<embed src="&img&" pluginspage=""http://www.macromedia.com/go/getflashplayer"" type=""application/x-shockwave-flash"" name="&oname&" quality=""High"" width="&wt&" height="&hg&"></object>"
End Function
%>
<div align="center"><table border="0" width="980" cellspacing="0" cellpadding="0">
<tr><td bgcolor="#ECECF4" height="5" colspan="3"></td></tr>
<tr><td width="230" rowspan="2"><img border="0" src="<%=logo%>"></td>
<td width="270" rowspan="2" align="right"><%if ad_img4<>"" then%>	
<%if right(ad_img4,3)="swf" then
call showflash(ad_img4,200,60,img4)
else%><a href="<%=ad_url4%>" target=_blank><img border="0" src="<%=ad_img4%>"></a><%end if%><%end if%></td>
<td align="right" height="35" width="480"><p style="margin-right: 1px">
<%if Request.Cookies("venshop")("user_name")<>"" then%><img border="0" src="img/topl1.gif" width="15" height="15" align=absMiddle> <a href="modify.asp">用户管理</a>&nbsp; 
<img border="0" src="img/topl2.gif" width="15" height="15" align=absMiddle> <a href="quit.asp">退出</a>&nbsp; 
<%else%><img border="0" src="img/topl1.gif" width="15" height="15" align=absMiddle> <a href="Reg.asp">用户注册</a>&nbsp; 
<img border="0" src="img/topl2.gif" width="15" height="15" align=absMiddle> <a href="login.asp">登录</a>&nbsp; 
<%end if%><img border="0" src="img/topl6.gif" width="15" height="15" align=absMiddle> <a href="buy.asp">购物车</a>&nbsp; 
<img border="0" src="img/topl3.gif" width="15" height="15" align=absMiddle> <a href="orders.asp">我的订单</a>&nbsp; 
<img border="0" src="img/topl4.gif" width="15" height="15" align=absMiddle> <a href="help.asp">帮助中心</a>&nbsp; 
<img border="0" src="img/topl5.gif" width="15" height="15" align=absMiddle> <a href="gb.asp">客户反馈</a>
</td></tr>
<tr><td align="right" width="480"><b>客服热线：<font style="font-size:12pt; font-family:Arial;color:ff0000;"><%=tel%></font></b></td></tr></table>
<table border="0" width="980" cellspacing="0" cellpadding="0">
<tr><td bgcolor="#ECECF4" colspan="3">
<table border="0" cellspacing="0" cellpadding="0" height="24"><tr>
	<td width="80" align="center" height="24"></td>
<%if ( sort_id="" or sort_id="0") and right(Request.ServerVariables("SCRIPT_NAME"),11)<>"article.asp" then%><td width="79" background="Skin/<%=venshop_skin%>/toplanf.gif" align="center" height="24"><b><a href="index.asp"><font color="#FFFFFF">网站首页</font></a></b></td>
<%else%><td width="79" background="Skin/<%=venshop_skin%>/toplanb.gif" align="center" height="24"><a href="index.asp">网站首页</a></td><%end if%><td width="3" align="center" height="24"></td>
<%set rs=server.createobject("adodb.recordset")
sql="select * from venshop_sort order by sort_xu desc,sort_id desc" 
rs.open sql,conn,1,1 
do while not rs.eof
if sort_id<>"0" and trim(sort_id)=trim(rs("sort_id")) and right(Request.ServerVariables("SCRIPT_NAME"),11)<>"article.asp" then
topsortid=int(sort_id)
%><td width="79" background="Skin/<%=venshop_skin%>/toplanf.gif" align="center" height="24">
<b><a href="sort.asp?sort_id=<%=rs("sort_id")%>"><font color="#FFFFFF"><%=rs("sort_name")%></font></a></b></td>
<td width="3" align="center" height="24"></td><%else%>
<%if rs("sort_skin")<>"" then
sskin=rs("sort_skin")
else
sskin=fskin
end if%>
<td width="79" background="Skin/<%=venshop_skin%>/toplanb.gif" align="center" height="24">
<a href="sort.asp?sort_id=<%=rs("sort_id")%>"><%=rs("sort_name")%></a></td>
<td width="3" align="center" height="24"></td><%end if%>
<%rs.movenext
loop
rs.close
set rs=nothing%>
<%if right(Request.ServerVariables("SCRIPT_NAME"),11)<>"article.asp" then%>
<td width="79" background="Skin/<%=venshop_skin%>/toplanb.gif" align="center" height="24">
<a href="article.asp">新闻资讯</a></td>
<%else%>
<td width="79" background="Skin/<%=venshop_skin%>/toplanf.gif" align="center" height="24">
<b><a href="article.asp"><font color="#FFFFFF">新闻资讯</font></a></b></td>
<%end if%>
<%if baojiashow=1 then%><td width="3" align="center" height="24"></td><td width="60" align="center" height="24"><a target="_blank" href="baojia.asp">报价单</a></td><%end if%>
<td width="80" align="center" height="24"><a target="_blank" href="http://www.venshop.com/"><font color="#FF0000">我也要开店>></font></a></td>
</tr></table></td></tr>
<tr><td height="26" colspan="3" class="bg"><p style="margin-left: 100px"><font color="#FFFFFF">请选择分类：</font>
<%if right(Request.ServerVariables("SCRIPT_NAME"),11)<>"article.asp" then%>
<%set rs=server.createobject("adodb.recordset")
If topsortid="" or not isNumeric(topsortid) Then
  sql="select top 10 * from venshop_nsort order by nsort_id asc"
else
  sql="select * from venshop_nsort where sort_id="&topsortid&" order by nsort_id asc"
end if
  rs.open sql,conn,1,1 
  if rs.bof and rs.eof then 
  nsort="此类别下没有分类" 
  else
  do while not rs.eof%><a href="nsort.asp?sort_id=<%=rs("sort_id")%>&nsort_id=<%=rs("nsort_id")%>"><u><font color="#FFFFFF"><%=rs("Nsort_name")%></font></u></a>&nbsp;&nbsp;<%rs.movenext
loop
end if  
rs.close
set rs=nothing%>
<%else%>
<%set rs=server.CreateObject("adodb.recordset")
sql="select * from venshop_newssort order by sort_id asc" 
rs.open sql,conn,1,1 
if rs.bof and rs.eof then 
response.write "" 
else 
do while not rs.eof %><a href="article.asp?newssort_id=<%=rs("sort_id")%>"><u><font color="#FFFFFF"><%=rs("sort_name")%></font></u></a>&nbsp;&nbsp;<%rs.movenext 
loop 
end if 
rs.close
set rs=nothing%>
<%end if%>
</td></tr>
<tr><td bgcolor="#ECECF4" align="center" height="15" colspan="3">
<table border="0" cellpadding="5" cellspacing="0"><form method="POST" action="search.asp?action=search">
<tr><td width="120"><%=date()%>&nbsp;<%=weekdayname(weekday(now))%></td><td align="center"><img border="0" src="img/search1.gif"></td>
<td align="center"><%set rs=server.createobject("adodb.recordset")
rs.open "select * from venshop_sort order by sort_id DESC",conn,1,1%><select name="sort_id"><option value="0">查询所有分类</option>
<%do while not rs.eof%><option value="<%=rs("sort_id")%>"<%if request("sort_id")<>"0" and int(request("sort_id"))=rs("sort_id") then%> selected<%end if%>><%=rs("sort_name")%></option>
<%rs.movenext
loop
rs.close
set rs=nothing%></select></td>
<td align="center">
<input type="text" name="hw_name" size="25" class=input value="<%=request("hw_name")%>"></td>
<td align="center"><input type="image" border="0" name="imageField" src="img/search2.gif"></td>
<td align="center"><a href="search.asp">高级/组合搜索</a></td>
<td align="center" width="10"></td>
<td align="center" width="60"><a href="hot.asp?stype=tejia">
<img border="0" src="img/ttejia.gif" width="50" height="13"></a></td>
<td align="center" width="60"><a href="hot.asp?stype=tjindex">
<img border="0" src="img/ttuijian.gif" width="50" height="13"></a></td>
<td align="center" width="60"><a href="hot.asp?stype=hot">
<img border="0" src="img/tremai.gif" width="50" height="13"></a></td>
<td align="center" width="60"><a href="hot.asp">
<img border="0" src="img/tzuixin.gif" width="50" height="13"></a></td>
</tr></form></table></td></tr>
<tr><td align="center" height="2" colspan="3"></td></tr></table></div><!--#include file="comp.asp"--><!--#include file="inser.asp"-->