www.gusucode.com > 凡人网络购物系统 2008源码程序 > views_tao.asp

    <!--#include file="conn.asp"-->
<%
hw_id=Request("hw_id")
chkid(hw_id)
tao_id=Request("tao_id")
chkid(tao_id)
set rs=conn.execute("select hw_name,sort_id,hw_keyword,hw_price2,pinpai_id,tao_name1,tao_name2,tao_name3,tao_name4,tao_name5 from venshop_hw where hw_id="&hw_id&"")
if not rs.eof then
hw_name=rs("hw_name")&"+"&rs("tao_name"&tao_id)
if rs("hw_keyword")<>"" then
hw_keyword=rs("hw_keyword")
else
hw_keyword=rs("hw_name")&"+"&rs("tao_name"&tao_id)
end if
sort_id=rs("sort_id")
pinpai_id=rs("pinpai_id")
hw_price2=rs("hw_price2")
shw_id=1
else
shw_id=0
end if
rs.close
set rs=nothing
if sort_id<>"" and sort_id<>0 then
set rs=conn.execute("select sort_skin,sort_name,ziduan from venshop_sort where sort_id="&sort_id&"")
if not rs.eof then
if rs("sort_skin")<>"" then
venshop_skin=rs("sort_skin")
end if
sort_name=rs("sort_name")
sort_ziduan=rs("ziduan")
end if
rs.close
set rs=nothing
end if
%>
<!--#include file="IncAsp/venshop_top.asp"-->
<div align="center">
<table border=0 cellpadding=0 cellspacing=0 class="all_t1">
<tr><td width=197 align="center" valign="top">
<!--#include file="IncAsp/venshop_log.asp"--><div class="d5"></div>
<%if shw_id=1 then%><!--#include file="IncAsp/View_inl.asp"--><%end if%></td>
<td valign="top" align="center"> 
<%Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from venshop_hw where hw_id="&hw_id&""
rs.open sql,conn,1,3
if rs.eof then%>
<TABLE width="99%" border=0 cellPadding=0 cellSpacing=0><tr><td height="200" colspan="3" align="center">
没有找到你要查看的商品，您可以<a href="search.asp"><font color="#FF0000">点击这里进行详细搜索</font></a>!</td></tr></table>
<%else
rs("hw_views")=rs("hw_views")+1
rs.update
sort_zd=split(sort_ziduan,"##")
ziduan=split(rs("ziduan"),"##")
nsort_id=rs("nsort_id")
if nsort_id<>0 then
Set rs2=Server.CreateObject("ADODB.Recordset")
sql="select nsort_name from venshop_nsort where nsort_id="&nsort_id&""
rs2.open sql,conn,1,1
nsort_name=rs2("nsort_name")
rs2.close
set rs2=nothing
end if
if pinpai_id<>0 then
Set rs2=Server.CreateObject("ADODB.Recordset")
sql="select pinpai_name from venshop_pinpai where pinpai_id="&pinpai_id&""
rs2.open sql,conn,1,1
pinpai_name=rs2("pinpai_name")
rs2.close
set rs2=nothing
end if
if session("recent")="" then
session("recent")=hw_id
elseif session("recent")<>"" then
  recentid=split(session("recent"),"/")
  for i=0 to ubound(recentid) 
  if hw_id=recentid(i) then
  jiaru=1
  end if
  next
if jiaru<>1 then
session("recent")=hw_id&"/"&session("recent")
end if
end if%>

<TABLE width="99%" border=0 cellPadding=0 cellSpacing=0>
<tr><td class="sort">&nbsp;<IMG src="Skin/<%=venshop_skin%>/home.gif" border=0 align="absmiddle"> 您的位置：  
	<a href="index.asp">首页</a> >>&nbsp;<a href="sort.asp?sort_id=<%=sort_id%>"><%=sort_name%></a> >> 
<%if nsort_id<>0 then%><a href="nsort.asp?sort_id=<%=sort_id%>&nsort_id=<%=nsort_id%>"> <%=nsort_name%></a> >> <%end if%>
<%if pinpai_id<>0 then%><a href="pinpai.asp?pinpai_id=<%=pinpai_id%>"> <%=pinpai_name%></a> >> <%end if%>
<a href="views.asp?hw_id=<%=hw_id%>"> <%=rs("hw_name")%></a> >> 
<%=rs("hw_name")&"+"&rs("tao_name"&tao_id)%></td>
</tr></table>
<table width="99%" cellspacing="0" cellpadding="0">
<tr><td align="center" height="2"></td></tr>
<tr><td align="center">
<table cellspacing="0" cellpadding="5" width="100%"><tr> 
<td align="center" style="border-right: 1px dotted #C0C0C0">
<%
pic=split(rs("tao_pic"&tao_id),"*")
pica=pic(1)

if ubound(pic)=1 then
picb=pic(1)
else
picb=pic(2)
end if

select case dxt
case "1"
spic=picb
case "2"
spic=picb
end select
%>
<img style="CURSOR: hand" src="<%=spic%>" onerror="this.src='img/noimage.jpg';cur_pic_id='img/noimage.jpg';" name="rImage" onclick="javascript:window.open(cur_pic_id,'','')" border="0"<%=view_wh%>>
<p style="line-height: 150%; margin: 5px">
<%
if int(dxt+1)<=int(ubound(pic)) then
sp=0
for i=int(dxt+1) to ubound(pic)
sp=sp+1%>
<img style="CURSOR: hand"<%if sp=1 then%> onload="cur_pic_id='<%=trim(pic(i))%>';"<%end if%> onmouseover="document.rImage.src='<%=trim(pic(i))%>';cur_pic_id='<%=trim(pic(i))%>';"  src="<%=trim(pic(i))%>" onerror="this.src='img/noimage.jpg'"  height="50" style="border: 1px solid #CCCCCC;">
<%next
else%>
<script>
cur_pic_id='<%=spic%>';
</script>
<%end if%></td>
<td valign="top" width="300">
<table border="0" cellpadding="3" cellspacing="0" id="table1" width="280">
<tr><td class="vtitle"><%=rs("hw_name")&"+"&rs("tao_name"&tao_id)%></td></tr>
<tr><td height=1 style="background-color:#C2C2C2;"></td></tr>
<tr><td height=5></td></tr>
<%if pinpai_id<>0 then%><tr><td>商品品牌：<a href="pinpai.asp?pinpai_id=<%=pinpai_id%>"><%=pinpai_name%></a></td></tr><%end if%>
<%if rs("hw_sn")<>"" then%><tr><td>商品编号：<%=rs("hw_sn")%></td></tr><%end if%>
<tr><td>产品积分：<font color="#D03430"><%=rs("hw_jifen")%></font></td></tr>
<%if showc=1 then
for i=0 to ubound(sort_zd)
if sort_zd(i)<>"" then%>	
<tr><td><%=sort_zd(i)%>：<%=ziduan(i)%></td></tr>
<%end if
next
end if%>
<tr><td height=5></td></tr>
<tr><td height=1 style="background-color:#C2C2C2;"></td></tr>
<tr><td height=5></td></tr>
<tr><td>本站价格：<span class="price"><%=fuhao%> <%=rs("hw_price2")+rs("tao_price"&tao_id)%> <%=danwei%></span></td></tr>
<form action="basket.asp?hw_id=<%=rs("hw_id")%>&tao_id=<%=tao_id%>" method=post>
<%if rs("kxaa")<>"" and rs("kxab")<>"" then%><tr><td><%=rs("kxaa")%>：<select size="1" name="kxa"><%kxa=split(rs("kxab"),"/")
for i=0 to ubound(kxa)%><option value="<%=trim(kxa(i))%>"><%=trim(kxa(i))%></option><%next%></select></td></tr><%end if%>
<%if rs("kxba")<>"" and rs("kxbb")<>"" then%><tr><td><%=rs("kxba")%>：<select size="1" name="kxb"><%kxb=split(rs("kxbb"),"/")
for i=0 to ubound(kxb)%><option value="<%=trim(kxb(i))%>"><%=trim(kxb(i))%></option><%next%></select></td></tr><%end if%>
<tr><td>定购数量：<input type="text" name="count" size="5" value="1" class="input"></td></tr>
<tr><td height=5></td></tr>
<tr><td height=1 style="background-color:#C2C2C2;"></td></tr>
<tr><td height=5></td></tr>
<tr><td><input type=image src="Skin/<%=venshop_skin%>/buy.gif" name="I1">&nbsp;
<a href="com.asp?action=add&hw_id=<%=rs("hw_id")%>">
<img border="0" src="Skin/<%=venshop_skin%>/duibi.gif"></a><br>
<a href="fav.asp?action=add&hw_id=<%=rs("hw_id")%>">
<img border="0" src="Skin/<%=venshop_skin%>/shoucang.gif"></a></td></tr></form>
<tr>
<td><%Set rs2=Server.CreateObject("ADODB.Recordset")
rs2.open "select top 1 hw_id,hw_name from venshop_hw where hw_kucun>0 and sort_id="&sort_id&" and hw_id>"&hw_id&" order by hw_id asc",conn,1,1
if rs2.eof and rs2.bof then
response.write ""
else%>
<p style="margin-top: 3px; margin-bottom: 3px"><b>上一个商品：</b><a target="_blank"  href=views.asp?hw_id=<%=rs2("hw_id")%>><%=rs2("hw_name")%></a>
<%end if
rs2.close
set rs2=nothing%>
<%Set rs2=Server.CreateObject("ADODB.Recordset")
rs2.open "select top 1 hw_id,hw_name from venshop_hw where hw_kucun>0 and sort_id="&sort_id&" and hw_id<"&hw_id&" order by hw_id desc",conn,1,1
if rs2.eof and rs2.bof then
response.write ""
else%>
<p style="margin-top: 3px; margin-bottom: 3px"><b>下一个商品：</b><a target="_blank"  href=views.asp?hw_id=<%=rs2("hw_id")%>><%=rs2("hw_name")%></a>
<%end if
rs2.close
set rs2=nothing%></td></tr>
</table>
</td></tr>
</table>
<!--#include file="IncAsp/View_in.asp"-->
</td>
</tr></table><%end if
rs.close%>
</td></tr></table></div><!--#include file="IncAsp/venshop_copy.asp"-->