www.gusucode.com > 凡人网络购物系统 2008源码程序 > IncAsp/View_in.asp
<script language=javascript src="inc/in.js"></script>
<div class="ict">
<div class=diva id=div1 onclick=showInfo(1,1,5) style="CURSOR: pointer"><p class="pclass">详细说明</p></div>
<div class=icl></div>
<div class=divb id=div2 onclick=showInfo(1,2,5) style="CURSOR: pointer"><p class="pclass">相关商品</p></div>
<div class=icl></div>
<div class=divb id=div3 onclick=showInfo(1,3,5) style="CURSOR: pointer"><p class="pclass">商品评论</p></div>
<div class=icl></div>
<div class=divb id=div4 onclick=showInfo(1,4,5) style="CURSOR: pointer"><p class="pclass">付款方式</p></div>
<div class=icl></div>
<div class=divb id=div5 onclick=showInfo(1,5,5) style="CURSOR: pointer"><p class="pclass">送货方式</p></div>
<div class=icl></div>
<div class=icl></div>
</div>
<div class=3box id=tab1_1 style="height:200">
<div class="d10"></div>
<table border="0" cellpadding="5" cellspacing="0" width="100%"><tr>
<td valign="top" style="line-height: 150%; margin: 3"><%=rs("hw_content2")%></td></tr></table>
<table border="0" cellpadding="3" cellspacing="0" width="98%"><%
ii=-1
for i=0 to ubound(sort_zd)
if sort_zd(i)<>"" then
ii=-ii
if ii=1 then%>
<tr><td align="right" width="100" class="cartshow0"><%=sort_zd(i)%>：</td><td width="20" class="cartshow0"></td><td class="cartshow0"><%=ziduan(i)%></td></tr>
<%else%>
<tr><td align="right" width="100" class="cartshow1"><%=sort_zd(i)%>：</td><td width="20" class="cartshow1"></td><td class="cartshow1"><%=ziduan(i)%></td></tr>
<%end if
end if
next%></table>
<%if rs("tao_name1")<>"" and rs("tao_price1")<>"" then%>
<table border="0" cellpadding="5" cellspacing="0" width="98%">
<tr><td colspan="2" class="cartshowa"> <b>超值套装：</b></td></tr>
<%ii=0
for i=1 to 5
if rs("tao_name"&i)<>"" and rs("tao_price"&i)<>"" then
ii=ii+1
if ii>2 then ii=1%>
<%if ii=1 then%><tr><%end if%>
<td align="center">
<table border="0" cellpadding="0" cellspacing="0" width="100%" height="50">
<tr><td height="55" width="100" align="center"><a href="views_tao.asp?hw_id=<%=rs("hw_id")%>&tao_id=<%=i%>">
<img src="<%tao_pic=split(rs("tao_pic"&i),"*")%><%=tao_pic(1)%>" onerror="this.src='img/noimage.jpg'" border="0" style="border: 1px solid #F2F2F2" width="80"></a></td>
<td height="55"><font style="font-size:10pt; font-weight:700"><a href="views_tao.asp?hw_id=<%=rs("hw_id")%>&tao_id=<%=i%>"><%=rs("hw_name")&"+"&rs("tao_name"&i)%></a></td>
<td height="55" align="center" width="75"><font style="font-size:10pt; font-weight:700; color: red"><%=fuhao%> <%=rs("hw_price2")+rs("tao_price"&i)%><%=danwei%></font></td>
</tr>
</table></td><%if ii=2 then%></tr><%end if%>
<%end if
next%></table>
<%end if%>
<div class="d10"></div>
</div>
<div class=3box id=tab1_2 style="DISPLAY: none;height:200">
<div class="d10"></div>
<table border="0" cellpadding="0" width="100%">
<tr>
<%Set rs2=Server.CreateObject("ADODB.Recordset")
rs2.open "select top 5 hw_id,hw_name,hw_price2,hw_pic from venshop_hw where hw_kucun>0 and hw_id>"&hw_id&" and nsort_id="&nsort_id&" order by hw_id asc",conn,1,1
do while not rs2.eof%>
<td align="center" width=20% valign=top>
<table border="0" width="100%" id="table1" cellspacing="0" cellpadding="3">
<tr><td align="center"><a <%if photoh=1 then%>class=photo<%end if%> target="_blank" href="views.asp?hw_id=<%=rs2("hw_id")%>">
<img border="0" src="<%pic=split(rs2("hw_pic"),"*")%><%=pic(1)%>" onerror="this.src='img/noimage.jpg'" style="border: 1px solid #F2F2F2" <%=sort_wh%>></a></td></tr>
<tr>
<td align="center"><p style="line-height: 150%"><b><a target="_blank" href="views.asp?hw_id=<%=rs2("hw_id")%>"><%=rs2("hw_name")%></a></b><br>
会员价：<span class="price"><%=fuhao%><%=rs2("hw_price2")%><%=danwei%></span></p></td></tr>
</table>
</td>
<%rs2.movenext
loop
rs2.close
set rs2=nothing%></tr>
<tr>
<%Set rs2=Server.CreateObject("ADODB.Recordset")
rs2.open "select top 5 hw_id,hw_name,hw_price2,hw_pic from venshop_hw where hw_kucun>0 and hw_id<"&hw_id&" and nsort_id="&nsort_id&" order by hw_id desc",conn,1,1
do while not rs2.eof%>
<td align="center" width=20% valign=top>
<table border="0" width="100%" id="table1" cellspacing="0" cellpadding="3">
<tr><td align="center"><a <%if photoh=1 then%>class=photo<%end if%> target="_blank" href="views.asp?hw_id=<%=rs2("hw_id")%>">
<img border="0" src="<%pic=split(rs2("hw_pic"),"*")%><%=pic(1)%>" onerror="this.src='img/noimage.jpg'" style="border: 1px solid #F2F2F2" <%=sort_wh%>></a></td></tr>
<tr>
<td align="center"><p style="line-height: 150%"><b><a target="_blank" href="views.asp?hw_id=<%=rs2("hw_id")%>"><%=rs2("hw_name")%></a></b><br>
会员价：<span class="price"><%=fuhao%><%=rs2("hw_price2")%><%=danwei%></span></p></td></tr>
</table>
</td>
<%rs2.movenext
loop
rs2.close
set rs2=nothing%></tr>
</table>
<div class="d10"></div>
</div>
<div class=3box id=tab1_3 style="DISPLAY: none;height:200"><div class="d10"></div>
<script language=javascript src="comment.asp?id=<%=hw_id%>"></script>
<p style="margin: 5px" align="left">
<a target="_blank" href="showcomment.asp?hw_id=<%=hw_id%>"><font color="#FF0000">全部显示 >> </font></a></p>
<table cellspacing=1 cellpadding=0><form name="form" method="post" action="addly.asp?action=add&id=<%=hw_id%>" target=_blank>
<tr><th height="25" colspan="2" align=left> 发表评论</th></tr>
<tr><td height="25" align=right>昵称：</td><td height="25"><input name="mail" type="text" size="30" maxlength="250"><font color="#FF0000">
*</font></td></tr>
<tr><td height="25" align=right>标题：</td><td height="25">
<input name="title" type="text" size="30" maxlength="250"><font color="#FF0000">
*</font></td></tr>
<tr><td height="25" align=right>内容：</td><td height="25"><textarea name="comment" cols="40" rows="5"></textarea><font color="#FF0000">
*</font></td></tr>
<tr><td colspan="2" height="25" align=center CLass=TableTitle2><input type="submit" name="Submit" value="发表"> <input type="reset" name="Submit2" value="清空"></td></tr>
</form></table>
<div class="d10"></div>
</div>
<div class=3box id=tab1_4 style="DISPLAY: none;height:200"><div class="d10"></div>
<p style="margin: 5px" align="left"><a href="help.asp?typeid=<%=paymentid%>" target=_blank><font color="#FF0000">更多信息 >> </font></a></p>
<%set rs2=server.createobject("adodb.recordset")
sql="select * from venshop_book where typeid="&paymentid&" order by id asc"
rs2.open sql,conn,1,1
do while not rs2.eof%>
<table border="0" width="95%" cellspacing="0" cellpadding="0">
<tr><td height="30"><IMG src="Skin/<%=venshop_skin%>/dot3.gif" border=0 align="absmiddle"> <b><%=rs2("title")%></b></td></tr>
<tr><td height="8"></td></tr>
<tr><td><p style="line-height: 150%; margin-left: 10; margin-right: 10"><%=rs2("nr")%></td></tr></table>
<%rs2.movenext
loop
rs2.close
set rs2=nothing%><div class="d10"></div>
</div>
<div class=3box id=tab1_5 style="DISPLAY: none;height:200"><div class="d10"></div>
<p style="margin: 5px" align="left"><a href="help.asp?typeid=<%=psid%>" target=_blank><font color="#FF0000">更多信息 >> </font></a></p>
<%set rs2=server.createobject("adodb.recordset")
sql="select * from venshop_book where typeid="&psid&" order by id asc"
rs2.open sql,conn,1,1
do while not rs2.eof%>
<table border="0" width="95%" cellspacing="0" cellpadding="0">
<tr><td height="30"><IMG src="Skin/<%=venshop_skin%>/dot3.gif" border=0 align="absmiddle"> <b><%=rs2("title")%></b></td></tr>
<tr><td height="8"></td></tr>
<tr><td><p style="line-height: 150%; margin-left: 10; margin-right: 10"><%=rs2("nr")%></td></tr></table>
<%rs2.movenext
loop
rs2.close
set rs2=nothing%><div class="d10"></div></div>