product_detail.asp

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

<%
dim startime
startime=timer()
%>
<SCRIPT language="JavaScript" src="js/URLEncode.js"></SCRIPT>
<SCRIPT language="JavaScript" src="js/PicFit.js"></SCRIPT>
<%
dim dbpath
dbpath=""
%>
<!--#include file=Conn.asp -->
<!--#include file=include/MyRequest.asp -->
<!--#include file=Sub.asp -->
<%
dim id
id=my_request("id",1)
if id="" or isnull(id) or IsNumeric(id)=False then
  response.write("<script>alert(""参数错误!"");location.href=""index.asp"";</script>")
  response.end
end if

//更新商品浏览次数
sql="update Product_info set Product_info_hitnums=Product_info_hitnums+1 where id="&id
conn.execute (sql)

dim Product_info_name,Product_info_AdWord,cid,Product_info_PicB,Product_info_flag,Product_info_PriceM,Product_info_PriceS,Product_info_detail
Set rs= Server.CreateObject("ADODB.Recordset")
sql="select product_info_name,product_info_AdWord,cid,product_info_PicB,product_info_flag,product_info_PriceM,product_info_PriceS,product_info_detail from Product_info where id="&id
rs.open sql,conn,1,1
Product_info_name   = rs(0)
Product_info_AdWord = rs(1)
cid                 = rs(2)
Product_info_PicB   = rs(3)
Product_info_flag   = rs(4)
Product_info_PriceM = rs(5)
Product_info_PriceS = rs(6)
Product_info_detail = rs(7)
rs.close
set rs=nothing

txt=""
if instr(Product_info_flag,1) then txt="推荐、"
if instr(Product_info_flag,2) then txt=txt&"新品、"
if instr(Product_info_flag,3) then txt=txt&"特价"
  
//调出商品类别名称
dim product_class_name
sql="select product_class_name from product_Class where cid="&cid
set rs=conn.execute (sql)
product_class_name=rs(0)
rs.close
set rs=nothing

Set rs=Server.CreateObject("ADODB.Recordset")
sql="select root_info_QQ,root_info_QQOnOff,root_info_WangWang,root_info_WangWangOnOff from root_info where id=1"
rs.open sql,conn,1,1
root_info_QQ            =rs(0)
root_info_QQOnOff       =rs(1)
root_info_WangWang      =rs(2)
root_info_WangWangOnOff =rs(3)
rs.close
set rs=nothing


call up(Product_info_name,"商品介绍","<a href=product_ListCategory.asp?cid="&cid&">"&product_class_name&"</a> &raquo; 商品介绍")
response.write "<tr>"
response.write "	<td colspan=3><h2 align=center>"&Product_info_name&"&nbsp;&nbsp;<font color=FF0000>"&product_info_AdWord&"</font></h2></td>"
response.write "</tr>"
response.write "<tr>"
response.write "	<td valign=top align=center width='50%'>"
response.write "    	<a target=_blank title=点击查看大图片 href=uploadpic/"&product_info_PicB&" onClick=OpenFullSizeWindow(this.href,'','');return false><img name=ShowImage src=uploadpic/"&product_info_PicB&" onload=fitSize();><br>放大图片</a>"
response.write "	</td>"
response.write "	<td valign=top width='35%'>"
response.write "		<table border=0 width=100% cellpadding=4 style=border-collapse: collapse>"
response.write "			<tr><td>所属类别： "&product_class_name&"</td></tr>"
response.write "			<tr><td>商品特性： "&txt&"</td></tr>"
response.write "			<tr><td>市 场 价： <font color=#808080>￥"&FormatNumber(product_info_PriceM,2,-1)&"</font></td></tr>"
response.write "			<tr><td>本 站 价： <font color=#FF6600 size=5> <b>￥"&FormatNumber(product_info_PriceS,2,-1)&"</b></font></td></tr>"
response.write "			<tr><td style=border-bottom: 1px solid #E8E8E8><a href=Cart_Add.asp?id="&id&"><img src=images/add_shop_cart.gif></a></td></tr>"
		              		Set rs=Server.CreateObject("ADODB.Recordset")
		              		sql="select root_option_OnOffAliPayButton from root_option where id=1"
		              		rs.open sql,conn,1,1
                      		root_option_OnOffAliPayButton=rs(0)
                      		rs.close
                      		set rs=nothing
                      		if root_option_OnOffAliPayButton=1 then
response.write "    		<tr><td><a href=OnlyOne_ByAlipay.asp?product_info_PriceS="&product_info_PriceS&"&product_info_name="&product_info_name&"&url="&url&" target=_blank><img src=images/zhifubao.gif width=100></a></td></tr>"
							end if
response.write "		</table>"
response.write "	</td>"
response.write "	<td valign=top width='15%'>"
						if (root_info_QQOnOff=0 and root_info_QQ<>"") or (root_info_WangWangOnOff=0 and root_info_WangWang<>"") then
response.write "		<table width=100% cellspacing=0 cellpadding=4 class=MainTable>"
							if root_info_QQOnOff=0 and root_info_QQ<>"" then
response.write "    		<tr><td>QQ咨询：</td></tr>"
								qq=split(root_info_QQ,",")
                            	for k=0 to ubound(qq)  
response.write "    				<tr><td><a target=_blank href=http://wpa.qq.com/msgrd?V=1&Uin="&trim(qq(k))&"&Site=购物咨询&Menu=yes><img src=http://wpa.qq.com/pa?p=1:"&trim(qq(k))&":16 alt=QQ咨询></a></td></tr>"
								next
							end if
							if root_info_WangWangOnOff=0 and root_info_WangWang<>"" then
response.write "			<tr>"
response.write "				<td>淘宝旺旺："
%>								<script language="javascript">
						        var taobaoid;
						        var taobaos;
                                taobaos="<%=root_info_WangWang%>";
                                taobaoid=URLEncode(taobaos)
                                document.writeln("<a target=_blank href=http://amos1.taobao.com/msg.ww?v=2&s=1&uid="+taobaoid+">")
						        document.writeln("<img border=0 alt=点击这里给我发消息 src=http://amos1.taobao.com/online.ww?v=2&s=1&uid="+taobaoid+">")
						        document.writeln("</a>")
						    	</script>
<%response.write "				</td>"
response.write "			</tr>"
							end if
response.write "		</table>"
						end if
response.write "	</td>"
response.write "</tr>"
response.write "<tr><td colspan=3 class=RightHead>商品详细描述</td></tr>"
response.write "<tr><td colspan=3 style=table-layout:fixed;word-break:break-all>"&product_info_detail&"</td></tr>"
call down()

dim endtime
endtime=timer()
response.write "页面执行时间："&FormatNumber((endtime-startime)*1000,3)&"毫秒"
%>