<!--#include file="conn.asp"-->
<!--#include file="../IncAsp/all_pay.asp"-->
<%
hw_id=Request("hw_id")
chkid(hw_id)
set rs=conn.execute("select hw_name,sort_id,nsort_id,hw_keyword,hw_price2,pinpai_id,hw_title,hw_d from WrzcNethtml_hw where hw_id="&hw_id&"")
if not rs.eof then
	hw_name=rs("hw_name")
	hw_keyword=rs("hw_keyword")
	hw_title=rs("hw_title")
	hw_d=rs("hw_d")
	sort_id=rs("sort_id")
	nsort_id=rs("nsort_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 WrzcNethtml_sort where sort_id="&sort_id&"")
	if not rs.eof then
	if rs("sort_skin")<>"" then
	WrzcNethtml_skin=rs("sort_skin")
	end if
	sort_name=rs("sort_name")
	sort_ziduan=rs("ziduan")
	end if
	rs.close
	set rs=nothing
end if

if nsort_id<>0 then
	Set rs2=Server.CreateObject("ADODB.Recordset")
	sql="select nsort_name from WrzcNethtml_nsort where nsort_id="&nsort_id&""
	rs2.open sql,conn,1,1
	if not rs2.eof then
	nsort_name=rs2("nsort_name")
	end if
	rs2.close
	set rs2=nothing
end if

if pinpai_id<>0 then
	Set rs2=Server.CreateObject("ADODB.Recordset")
	sql="select pinpai_name from WrzcNethtml_pinpai where pinpai_id="&pinpai_id&""
	rs2.open sql,conn,1,1
	if not rs2.eof then
	pinpai_name=rs2("pinpai_name")
	end if
	rs2.close
	set rs2=nothing
end if

if seo_hw1=1 then
	seo_title=hw_title
else
	seo_title=seo_hw2
	if seo_title<>"" then
		seo_title=replace(replace(replace(replace(replace(replace(replace(seo_title,"*H",hw_name),"*B",pinpai_name),"*S",sort_name),"*N",nsort_name),"*P",hw_price2),"*Z",sitename),"*C",company)
	end if
end if


if seo_hw3=1 then
	seo_keyword=hw_keyword
else
	seo_keyword=seo_hw4
	if seo_keyword<>"" then
		seo_keyword=replace(replace(replace(replace(replace(replace(replace(seo_keyword,"*H",hw_name),"*B",pinpai_name),"*S",sort_name),"*N",nsort_name),"*P",hw_price2),"*Z",sitename),"*C",company)
	end if
end if


if seo_hw5=1 then
	seo_d=hw_d
else
	seo_d=seo_hw6
	if seo_d<>"" then
		seo_d=replace(replace(replace(replace(replace(replace(replace(seo_d,"*H",hw_name),"*B",pinpai_name),"*S",sort_name),"*N",nsort_name),"*P",hw_price2),"*Z",sitename),"*C",company)
	end if
end if

%>
<!--#include file="WrzcNethtml_top.asp"-->
<div align="center">
<table border=0 cellpadding=0 cellspacing=0 class="all_t1">
<tr><td class="all_l_td" valign="top">
<script language="JavaScript1.1" src="../WrzcNethtml_logs.asp"></script><div class="d5"></div>
<%if shw_id=1 then%><!--#include file="View_inl.asp"--><%end if%></td>
<td valign="top" class="all_c_td">
<%Set rs= Server.CreateObject("ADODB.Recordset")
sql="select * from WrzcNethtml_hw where hw_id="&hw_id&""
rs.open sql,conn,1,1
if rs.eof then%>
<TABLE width="99%" border=0 cellPadding=0 cellSpacing=0><tr><td height="200" colspan="3" align="center">
Product not found, <a href="../search.asp"><font color="#FF0000">Advanced Search</font></a>!</td></tr></table>
<%else
sort_zd=split(sort_ziduan,"##")
ziduan=split(rs("ziduan"),"##")%>

<TABLE width="99%" border=0 cellPadding=0 cellSpacing=0>
<tr><td class="sort">&nbsp;<IMG src="../Skin/<%=WrzcNethtml_skin%>/home.gif" border=0 align="absmiddle">  
	<a href="../index.html">Home</a> >>&nbsp;<a href="../product/sort<%=sort_id%>-1.html"><%=sort_name%></a> >> 
<%if nsort_id<>0 then%><a href="../product/nsort<%=nsort_id%>-1.html"> <%=nsort_name%></a> >> <%end if%>
<%if pinpai_id<>0 then%><a href="../product/pinpai<%=pinpai_id%>-1.html"> <%=pinpai_name%></a> >> <%end if%>
<%=rs("hw_name")%></td>
</tr></table>
<table width="99%" cellspacing="0" cellpadding="0">
<tr><td align="center" height="2"></td></tr>
<tr><td>
<table cellspacing="0" cellpadding="5" width="100%"><tr> 
<td align="center" style="border-right: 1px dotted #C0C0C0;<%if vwidth<>0 then%>width:<%=vwidth+20%>px;<%end if%>">
<%
pic=split(rs("hw_pic"),"*")
pica=pic(1)

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

if dxt=1 then
spic=picb
else
spic=pica
end if
%>
<div style="display:block;text-align:left;width:<%=vwidth%>px;">
<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 0px;">
<%
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="40" style="border: 1px solid #CCCCCC;">
<%next
else%>
<script>
cur_pic_id='../<%=spic%>';
</script>
<%end if%>
</p>
</div>
</td>
<td valign="top" style="padding-left:15px;">
<table border="0" cellpadding="0" cellspacing="0" id="table1" width="100%">
<tr><td>
<table border="0" cellpadding="0" cellspacing="0" width="100%">
	<tr>
		<td class="vtitle"><%=rs("hw_name")%></td>
		<td align="right"><%if commentshow=0 then plcc="and c_c=1"%>
		[<a href="#pl" onclick=showInfo(1,3,5)><u>Comments(<%=conn.execute("select count(*) from WrzcNethtml_comment where dateid="&hw_id&" "&plcc&"")(0)%>)</u></a>|<a href="#pla" onclick=showInfo(1,3,5)><u>Leave your Comment</u></a>]</td>
	</tr>
</table>
</td></tr>
<tr><td height="2" background="../img/dot_menu.gif"></td></tr>
<tr><td height=5></td></tr>
<%if rs("hw_sn")<>"" then%><tr><td height="23">Item NO.:<%=rs("hw_sn")%></td></tr><%end if%>

<%if showc=1 then
for i=0 to ubound(sort_zd)
if sort_zd(i)<>"" then%>	
<tr><td height="20"><%=sort_zd(i)%>：<%=ziduan(i)%></td></tr>
<%end if
next
end if%>
<tr><td height=5></td></tr>
<tr><td height="2" background="../img/dot_menu.gif"></td></tr>
<tr><td height=5></td></tr>
<tr><td height="26"><span class="price"><script>document.write(cheng(<%=rs("hw_price2")%>))</script></span></td></tr>
<form action="../basket.asp?hw_id=<%=rs("hw_id")%>" method=post>
<%if rs("kxaa")<>"" and rs("kxab")<>"" then%><tr><td height="30"><%=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 height="30"><%=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 height="30">Qty:<input type="text" name="count" size="5" value="1" class="input"></td></tr>
<tr><td style="padding-top: 5px; padding-bottom: 5px"><input type=image src="../Skin/<%=WrzcNethtml_skin%>/buy.gif" name="I1"></td></tr></form>
<tr>
<td></td></tr>
</table>
</td></tr></table>


<table border="0" cellpadding="0" cellspacing="0" width="100%" style="border-top:1px solid #eee;border-bottom:1px solid #eee;margin:10px 0px;">
	<tr>
		<td><%Set rs2=Server.CreateObject("ADODB.Recordset")
rs2.open "select top 1 hw_id,hw_name from WrzcNethtml_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>Prev:</b><a target="_blank"  href=../Product/Pro<%=rs2("hw_id")%>.Html><%=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 WrzcNethtml_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>Next:</b><a target="_blank"  href=../Product/Pro<%=rs2("hw_id")%>.Html><%=rs2("hw_name")%></a>
<%end if
rs2.close
set rs2=nothing%></td>

<%if pay_paypalo=1 then%><td align="right">
<table border="0" cellpadding="5" cellspacing="0"><tr>
<td align="center" width="130"><a target="_blank" href="https://www.paypal.com/cgi-bin/webscr?cmd=_xclick&business=<%=pay_paypal%>&item_name=<%=rs("hw_name")%>&item_number=<%=rs("hw_name")%>&amount=<%=rs("hw_price2")+pay_fee%>&currency_code=<%=curr_pay%>" target="_blank"><img border="0" src="../img/pay/paypal_buy.gif"></a></td>
</tr></table></td>
<%end if%>
	</tr>
</table>
<!--#include file="View_in.asp"-->
</td>
</tr></table><%end if
rs.close%>
</td></tr></table></div>
<%
function AddToDic(reg,key,Index,str,dic)
	pattern="<[^>]*"&key&"[^>]*>|<a[^>]*>[^<]*"&key&"[^<]*<\/a>"
	reg.Pattern=pattern
	set matches=reg.Execute(str)
	for each m in matches
		dic.Add "key"&Index,m.value    
		str=replace(str,m.value,"$key"&Index&"$")
		Index=Index+1
	next
	set matches=nothing
end function
function RepCon(str)
	TempStr=str
	set dic=server.CreateObject("scripting.dictionary")
	Index=0
	set reg=new RegExp
	reg.Global=true
	reg.IgnoreCase=true
	set rss=conn.Execute("select * from WrzcNethtml_rep")
	do while not rss.eof
		ky=trim(rss("rep_name"))
		AddToDic reg,ky,Index,TempStr,dic
		TempStr=replace(TempStr,ky,"<a href='"&rss("rep_url")&"'>"&ky&"</a>")
		AddToDic reg,ky,Index,TempStr,dic
	rss.movenext
	loop
	rss.close
	set rss=nothing
	set reg=nothing
	for i=0 to Index-1 
	TempStr=replace(TempStr,"$key"&i&"$",dic.Item("key"&i))
	next
	set dic=nothing
	RepCon=TempStr
end function
%><!--#include file="WrzcNethtml_copy.asp"-->