|
 |
|
<%
strSQL="Select top 4 * From v_web_product where p_good='1' Order by p_createtime Desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open strSQL,conn,1,1
for j=1 to 4
if rs.eof then exit for
p_name=trim(rs("p_name"))
if len(p_name)>6 then
p_name=left(p_name,6)&".."
end if
%>
    |
<% rs.movenext
next
rs.close
set rs=nothing %>
| |
风湿骨痛贴 |
筋骨痛消膏(黑膏药) |
海陆空晕车贴 |
筋骨痛消膏 |
|
|
|
|
 |
 |
|
<%
strSQL="Select top 8 * From v_web_product where p_new='1' Order by p_createtime Desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open strSQL,conn,1,1
for j=1 to 8
if rs.eof then exit for
if (j mod 5=0) and j<>10 then
%>
|
<%
end if
p_name=trim(rs("p_name"))
if len(p_name)>6 then
p_name=left(p_name,6)&".."
end if
%>
    |
<% rs.movenext
next
rs.close
set rs=nothing %>
| |
小儿氨酚黄那敏颗粒 |
退热贴 |
痛消贴【黑膏药】 |
眩晕贴 |
|
    |
| |
风湿祛痛贴 |
舒通贴 |
小儿清肺散 |
痛消贴【巴布贴】 |
|
|
|
|
|
 |
<%
strSQL="Select top 20 * From v_web_product where p_okname='1' Order by p_createtime Desc"
Set rs=Server.CreateObject("ADODB.RecordSet")
rs.open strSQL,conn,1,1
for j=1 to 30
if rs.eof then exit for
%>
|
|
|
<%
rs.movenext
next
rs.close
set rs=nothing
%>
|
|
|
|
 |
 |
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
strSQL="Select top 6 * From web_news Where nClass=5 Order by ID Desc"
rs.open strSQL,conn,1,1
i=1
do while not rs.eof and i<=6
%>
|
|
<%
rs.movenext
i=i+1
loop
rs.close
set rs=nothing
%>
|
|
 |
|
|
 |
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
strSQL="Select top 6 * From web_news Where nClass=6 Order by ID Desc"
rs.open strSQL,conn,1,1
i=1
do while not rs.eof and i<=6
%>
|
<%
rs.movenext
i=i+1
loop
rs.close
set rs=nothing
%>
|
|
|
|
|
 |
<%
Set rs=Server.CreateObject("ADODB.RecordSet")
strSQL="Select top 10 * From web_news Where nClass=9 Order by ID Desc"
rs.open strSQL,conn,1,1
i=1
do while not rs.eof and i<=10
%>
| |
<%
rs.movenext
i=i+1
loop
rs.close
set rs=nothing
%>
|
 |
|
贺各科械准字号贴剂隆重上 
