<%
set rsven=server.createobject("adodb.recordset")
rsvensql="select top 1 ad_1 from norshop_venad"
rsven.open rsvensql,conn,1,1
%>
<%=rsven("ad_1")%>
<%
rsven.close
set rsven=nothing%>
<%
set rsven=server.createobject("adodb.recordset")
rsvensql="select top 1 ad_2 from norshop_venad"
rsven.open rsvensql,conn,1,1
%>
<%=rsven("ad_2")%>
<%
rsven.close
set rsven=nothing%>
<%set rs=server.createobject("adodb.recordset")
rs.Open "select * from norshop_venlink order by bs",conn,1,1
do while not rs.EOF
if rs("logo")<>"" then%>
<%if right(ad_img1,3)="swf" then
call showflash(ad_img1,265,105,img1)
else%>
<%end if%>
<%
else
vgoogle=vgoogle+1
end if%>
<%if ad_img2<>"" then%>
<%if right(ad_img2,3)="swf" then
call showflash(ad_img2,265,105,img2)
else%>
<%end if%>
<%else
vgoogle=vgoogle+1
end if%>
<%if ad_img3<>"" then%>
<%if right(ad_img3,3)="swf" then
call showflash(ad_img3,265,105,img3)
else%>
<%end if%>
<%else
vgoogle=vgoogle+1
end if%>
<%
if int(vgoogle)>=3 then%>
<%htmlend%>
<%end if
%>
<%if huoshow=1 then%>
最新发货通知：
<%set rs=server.createobject("adodb.recordset")
sql="select top 5 * from norshop_huo order by huo_id DESC"
rs.open sql,conn,1,1
if rs.eof or rs.bof then
else
do while not rs.eof%>
" target=_blank>
<%=rs("huo_name")%>
(<%=rs("huo_date")%>)
<%rs.movenext
loop
end if
rs.close
set rs=nothing%>
更多>>
<%if tjindex="" then tjindex=10
set rs=server.createobject("adodb.recordset")
rs.open "select top "&tjindex&" * from norshop_hw where tjindex=1 and hw_kucun>0 order by hw_id DESC",conn,1,1
i=0
i_t = 0
do while not rs.eof
i=i+1
i_t=i_t+1
if i>=6 then i=1%>
<%end if%>
<%rs.movenext
loop
rs.close
set rs=nothing%>
<%set rs=server.createobject("adodb.recordset")
sql="select top 1 * from norshop_logo where sort=0 and nsort=0"
rs.open sql,conn,1,1
if right(rs("banner"),3)="swf" then%>
<%else%>
"target="_blank">" onload=DrawImage(this,375) border="0"><%end if
rs.close
set rs=nothing%>
最新商品>>
最新活动>>
<%set rs=server.createobject("adodb.recordset")
rs.open "select top 8 * from norshop_article order by id DESC",conn,1,1
i=0
do while not rs.eof
i=i+1%>
<%=i%>
..html" target=_blank><%=left(rs("a_name"),16)%>
<%rs.movenext
loop
rs.close
set rs=nothing%>
<%if gun="" then gun=10
set rs=server.createobject("adodb.recordset")
rs.open "select top "&gun&" * from norshop_hw where hw_kucun>0 order by hw_buys DESC,hw_id DESC",conn,1,1%>
<%do while not rs.eof%>
<%if tejia="" then tejia=10
set rs=server.createobject("adodb.recordset")
rs.open "select top "&tejia&" * from norshop_hw where tejia=1 and hw_kucun>0 order by hw_id DESC",conn,1,1
i=0
i_p=0
do while not rs.eof
i=i+1
i_p=i_p+1
if i>=6 then i=1%>
最新商品>>
最新商品>>
