上方，是我们前行的方向和目标
<%
'if RsList.eof or RsList.bof then
if not(RsList.bof and RsList.eof) then
dim colorset
i = 1
do while i < 300 and not RsList.eof
if ProID = 0 then
if i = 1 then
colorset = "msyh15_green2"
else
colorset = "msyh15_hs"
end if
ProID = RsList("ProID")
else
if ProID = RsList("ProID") then
colorset = "msyh15_green2"
else
'response.Write(ProID)
' response.Write("ProID=")&RsList("ProID")
colorset = "msyh15_hs"
end if
end if
%>
<%
i= i + 1
RsList.movenext
loop
else
%>
<%
end if
RsList.close
set RsList = nothing
%>
<%
set RsList = server.CreateObject("adodb.recordset")
SqlList = "SELECT * FROM ProductList20 where ProID = "&ProID&" ORDER BY ProRank, ProUpdateTime DESC "
' response.Write(sqllist)
RsList.open SqlList, objConn, 1, 1
if not(RsList.bof and RsList.eof) then
photo1 = RsList("ProImage1")
photo2 = RsList("ProImage2")
titile1 = RsList("titile")
%>
案例剖析: <% = titile1 %>
<%
else
response.Write("