<%=sitename%>-<%=siteurl%>

<% end if rsnews.close set rsnews=nothing %>

<% if newsmove<>1 then sqlprom = "select top 20 * from News where online=true and now()=PubDate and NewsClass<>'' order by uup desc,Pubdate desc" else sqlprom = "select top 7 * from News where online=true and now()=PubDate and NewsClass<>'' order by uup desc,Pubdate desc" end if set rsnews=Server.CreateObject("ADODB.RecordSet") rsnews.open sqlprom,conn,1,1 if rsnews.eof and rsnews.bof then response.write "暂时没有新闻公告" else if newsmove<>1 then response.write "

" response.write "

" end if Do while Not rsnews.eof response.write "" Response.write "·"&lleft(rsnews("NewsTitle"),44) response.write "
" rsnews.movenext loop if newsmove<>1 then response.write "

" response.write "

" end if %>

<% response.write "" response.write "

" response.write "" set rs=conn.execute("select * from buyok_produc where online=true and tejia='1' order by Tjdate desc,AddDate desc") if rs.bof and rs.eof then response.write "" else k=1 Do While Not rs.eof response.write "" for i=1 to 3 k=k+1 %> " rs.movenext if k>3 then exit do if rs.eof then exit do next loop end if set rs=nothing response.write "

暂时没有商品

<% if rs("quantity")=0 then response.write "" elseif rs("PriceList")=0 then response.write "" else response.write "" else response.write "" end if end if response.write "

.gif>

<%=lleft(rs("ProdName"),18)%>

<%=rs("PriceOrigintext")%>:<%=FormatNum(rs("PriceOrigin"),2)%>

"&quehuo&"

"&wujiage&"

"&rs("PriceListtext")&":"&FormatNum(rs("PriceList"),2)&"

" if request.cookies("buyok")("userid")="" then response.write "

" %>

<%=adm_kf%>

/huikuan.gif alt="银行帐号及支付说明" width="160" height="59" border=0>

/wenti.gif alt="有任何疑问，请进帮助中心" width="160" height="59" border=0>

/liuchen.gif alt="购物指南" width="160" height="59" border=0>

<% response.write "" response.write "

" response.write "" set rs=conn.execute("select * from buyok_produc where online=true and Remark='1' order by Tjdate desc,AddDate desc") if rs.bof and rs.eof then response.write "" else k=1 Do While Not rs.eof response.write "" for i=1 to 6 k=k+1 %> " rs.movenext if k>6 then exit do if rs.eof then exit do next loop end if set rs=nothing response.write "

暂时商品

<% if rs("quantity")=0 then response.write "" elseif rs("PriceList")=0 then response.write "" else response.write "" else response.write "" end if end if response.write "

.gif>

<%=lleft(rs("ProdName"),18)%>

"&quehuo&"

"&wujiage&"

"&rs("PriceListtext")&":"&FormatNum(rs("PriceList"),2)&"

" if request.cookies("buyok")("userid")="" then response.write "

" %>

<% response.write "" response.write "

" response.write "" set rs=conn.execute("select * from buyok_produc where MIDCode='SM服饰' and online=true order by Tjdate desc,AddDate desc") if rs.bof and rs.eof then response.write "" else k=1 Do While Not rs.eof response.write "" for i=1 to 5 k=k+1 %> " rs.movenext if k>10 then exit do if rs.eof then exit do next loop end if set rs=nothing response.write "

暂时商品

<% if rs("quantity")=0 then response.write "" elseif rs("PriceList")=0 then response.write "" else response.write "" else response.write "" end if end if response.write "

.gif>

<%=lleft(rs("ProdName"),18)%>

"&quehuo&"

"&wujiage&"

"&rs("PriceListtext")&":"&FormatNum(rs("PriceList"),2)&"

" if request.cookies("buyok")("userid")="" then response.write "

" %>

<% set cqrsprod=conn.execute("select * from buyok_produc where MIDCode='SM服饰' and online=true order by ClickTimes desc,AddDate desc") Do While Not cqrsprod.eof prodname=lleft(cqrsprod("ProdName"),22) response.write "" k=k+1 if k>28 then exit do if cqrsprod.eof then exit do cqrsprod.movenext loop set cqrsprod=nothing %>

·"&prodname&"

<% response.write "" response.write "

" response.write "" set rs=conn.execute("select * from buyok_produc where midCode='贞操带' and online=true order by Tjdate desc,AddDate desc") if rs.bof and rs.eof then response.write "" else k=1 Do While Not rs.eof response.write "" for i=1 to 3 k=k+1 %> " rs.movenext if k>6 then exit do if rs.eof then exit do next loop end if set rs=nothing response.write "

暂时没有商品

<% if rs("quantity")=0 then response.write "" elseif rs("PriceList")=0 then response.write "" else response.write "" else response.write "" end if end if response.write "

.gif>

<%=lleft(rs("ProdName"),18)%>

"&quehuo&"

"&wujiage&"

"&rs("PriceListtext")&":"&FormatNum(rs("PriceList"),2)&"

" if request.cookies("buyok")("userid")="" then response.write "

" %>

<% response.write "" response.write "

" response.write "" set rs=conn.execute("select * from buyok_produc where midCode='低温蜡烛' and online=true order by Tjdate desc,AddDate desc") if rs.bof and rs.eof then response.write "" else k=1 Do While Not rs.eof response.write "" for i=1 to 3 k=k+1 %> " rs.movenext if k>6 then exit do if rs.eof then exit do next loop end if set rs=nothing response.write "

暂时没有商品

<% if rs("quantity")=0 then response.write "" elseif rs("PriceList")=0 then response.write "" else response.write "" else response.write "" end if end if response.write "

.gif>

<%=lleft(rs("ProdName"),18)%>

"&quehuo&"

"&wujiage&"

"&rs("PriceListtext")&":"&FormatNum(rs("PriceList"),2)&"

" if request.cookies("buyok")("userid")="" then response.write "

" %>

<% response.write "" response.write "

" response.write "" set rs=conn.execute("select * from buyok_produc where midCode='口塞口枷' and online=true order by Tjdate desc,AddDate desc") if rs.bof and rs.eof then response.write "" else k=1 Do While Not rs.eof response.write "" for i=1 to 3 k=k+1 %> " rs.movenext if k>6 then exit do if rs.eof then exit do next loop end if set rs=nothing response.write "

暂时没有商品

<% if rs("quantity")=0 then response.write "" elseif rs("PriceList")=0 then response.write "" else response.write "" else response.write "" end if end if response.write "

.gif>

<%=lleft(rs("ProdName"),18)%>

"&quehuo&"

"&wujiage&"

"&rs("PriceListtext")&":"&FormatNum(rs("PriceList"),2)&"

" if request.cookies("buyok")("userid")="" then response.write "

" %>

<% response.write "" response.write "

" response.write "" set rs=conn.execute("select * from buyok_produc where midCode='手脚镣铐' and online=true order by Tjdate desc,AddDate desc") if rs.bof and rs.eof then response.write "" else k=1 Do While Not rs.eof response.write "" for i=1 to 3 k=k+1 %> " rs.movenext if k>6 then exit do if rs.eof then exit do next loop end if set rs=nothing response.write "

暂时没有商品

<% if rs("quantity")=0 then response.write "" elseif rs("PriceList")=0 then response.write "" else response.write "" else response.write "" end if end if response.write "

.gif>

<%=lleft(rs("ProdName"),18)%>

"&quehuo&"

"&wujiage&"

"&rs("PriceListtext")&":"&FormatNum(rs("PriceList"),2)&"

" if request.cookies("buyok")("userid")="" then response.write "

" %>