56770_zhuanti.asp

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

<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("Latest special subject") 
elseif request("LAN")="fan" then 
 response.write("最新商品專題") 
 else
 response.write("最新商品专题") 
end if%></td>
</tr>
<%
sql="select top 10 * from news order by id desc"
set rs=server.createobject("adodb.recordset")
rs.open sql, conn, 3, 3
if rs.eof then
if request("LAN")="english" then 
response.write "<tr><td align=""center"">Have no still particularly</td></tr>"
elseif request("LAN")="fan" then 
response.write "<tr><td align=""center"">...尚 無 專 題...</td></tr>"
 else
response.write "<tr><td align=""center"">...尚 无 专 题...</td></tr>"
end if
else
do while not rs.eof
%>
<tr>
<td height="20"><img src="images/arrow.gif"><a href="list.asp?lan=<%=request("lan")%>&id=<%= RS("id") %>" target="_blank">
<%if request("LAN")="english" then 
response.write RS("TITLE_ename") 
elseif request("LAN")="fan" then 
 response.write RS("TITLE_fname")
 else
 response.write RS("TITLE") 
end if%></a></td>
</TR>
<%
rs.movenext
loop
end if
rs.close
set rs=nothing%>
</table>