<% function cutstr(tempstr,tempwid) if len(tempstr)>tempwid then cutstr=left(tempstr,tempwid)&"(ÂÔ)" else cutstr=tempstr end if end function%>
" rowspan="2"> <%=script3%>

µã»÷ÏÂÔØ¶©»õºÏͬ
<%if flash<>""then%>

" alt="±¾³§×¨Àû²úÆ·HLÏßÇиî»ú´²¿ØÖÆ¿¨" border="0">

<%end if%>
">

">">×îÐÂÏûÏ¢"> <% set rs_news=server.createobject("adodb.recordset") sqltext4="select top 20 * from pagenews order by id desc" rs_news.open sqltext4,conn,1,1 %>

¡¡
<%i=0 do while not rs_news.eof%> <% rs_news.movenext i=i+1 if i=rs_home("newsou") then exit do loop rs_news.close %>
" target="_blank"> <%=cutstr(rs_news("title"),20)%><%if rs_news("time")=date() then%><%end if%>
>>¸ü¶àÐÂÎÅ
">

">">ÈÈÏú¾«Æ·">

¡¡
<% set rs_hot=server.createobject("adodb.recordset") sqltext4="select * from Product where tuijian=1 order by tuitime desc" rs_hot.open sqltext4,conn,1,1 %> <% if Rs_hot.BOF and Rs_hot.EOF Then %> <% Else i =0 do while not Rs_hot.eof %> <% i=i+1 if i=rs_home("sou") then exit do Rs_hot.MoveNext Loop End if rs_hot.close %>
»¹Ã»ÉèÖÃÍÆ¼öÉÌÆ·!
<%=rs_hot("Product_Name")%>

" target="_blank"> " alt="ÏßÇиîÈÈÃŲúÆ·" width="100" height="100" border="0">

<%=cutstr(rs_hot("Product_Intro"),80)%>

Êг¡¼Û: <%=rs_hot("P_OldPrice")%> Ôª ÍøÉϼÛ: <%=rs_hot("P_NewPrice")%>Ôª  
">[Ïêϸ½éÉÜ]')">[ÎÒÒªÆÀÂÛ]','<%=rs_hot("Product_name")%>')">[ÊÕ²Ø])">


">

">µã»÷ÅÅÐÐTop20 <%set rs=server.createobject("adodb.recordset") sqltext="select top 20 * from Product order by Look_Count desc" rs.open sqltext,conn,1,1 %>

<%i=0 do while not rs.eof%> <% rs.movenext i=i+1 if i=rs_home("phsou") then exit do loop rs.close %>
¡ý" target="_blank"><%=rs("Product_name")%> (<%=rs("P_NewPrice")%>Ôª)
">

">±¾Õ¾µ÷²é <% Set Rs = Server.CreateObject("ADODB.Recordset") Rs.ActiveConnection = Conn Rs.Open "SELECT id,note FROM vote Order BY id" %>

 

 

<%do while not Rs.EOF %> "> <%=Rs("note")%>

<%Rs.MoveNext Loop rs.close %> ²ì¿´½á¹û


Äúͨ¹ýºÎ;¾¶ÖªµÀ±¾Õ¾£¿

 
¡¡
¡¡
">

">ºÏ×÷Õ¾µã"> <% Set Rs = Server.CreateObject("ADODB.Recordset") Rs.ActiveConnection = Conn Rs.Open "SELECT top 20 * FROM links Order BY id" %>

 
<% if Rs.BOF and Rs.EOF Then %> <% Else i = 1 do while not Rs.eof %> <% i=i+1 Rs.MoveNext Loop End if rs.close %>
»¹Ã»ÓÑÇéÁ¬½ÓÕ¾µã!

" target="_blank">" width="120" height="30">

 
¡¡
¡¡
">

">">ÐÂÆ·ÉϼÜ"> <% set rs_hot=server.createobject("adodb.recordset") sqltext4="select top 6 * from Product order by Product_No desc" rs_hot.open sqltext4,conn,1,1 %>

¡¡
<%row_count=1 %> <% Do While Not rs_hot.EOF%> <%if row_count mod 2 <>0 then%> <%end if%> <% if row_count mod 3 =0 then%><%end if%> <% rs_hot.MoveNext row_count=row_count+1 Loop rs_hot.close %>

" target="_blank"> " alt="ÏßÇиîÐÂÆ·ÉÏÊÐ" width="100" height="100" border="0">
"><%=rs_hot("Product_Name")%>

Êг¡¼Û: <%=rs_hot("P_OldPrice")%> Ôª

ÍøÉϼÛ:<%=rs_hot("P_NewPrice")%>Ôª

)">