56770_pinglun.asp

来自「能进行网上购物的需求」· ASP 代码 · 共 46 行

<TABLE class="bg_l" border="0" style="border-collapse: collapse;border:dotted 1px" bordercolor="#CCCCCC" cellpadding=0 width="100%" align="center">
<tr>
<td width="100%" align="left" height="25" CLASS="navtablehead"  colspan="2" style="BORDER-bottom: #999999 1px dotted">&nbsp;
<%if request("LAN")="english" then 
response.write("Product Comment") 
elseif request("LAN")="fan" then 
 response.write("最新商品評論") 
 else
 response.write("最新商品评论") 
end if%></td>
</tr>
<%Set rs= Server.CreateObject("ADODB.Recordset")
sql="select top 6 * from 56770_Dvote where sy=false order by id desc"
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql, conn, 1, 1
if rs.eof then
if request("LAN")="english" then 
        response.write "Did not comment on!"
elseif request("LAN")="fan" then 
        response.write "對不起！沒有任何評論！"
 else
        response.write "对不起！没有任何评论！"
end if
else
        do while not rs.eof
%>
<tr> <td height="10"><font color=#cc0000>☉</font>
<a target="_blank" href="showproduct.asp?lan=<%=request("lan")%>&id=<%=rs("downid")%>">
<% if len(rs("content"))>9 then%>
<%=left(rs("content"), 9)%>...
<%else%>
<%=rs("content")%>
<%end if%>
</a></td>
</td>
</tr>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
</table>