56770_gg.asp

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

<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("Web News") 
elseif request("LAN")="fan" then 
 response.write("商城動態") 
 else
 response.write("商城动态") 
end if%></td>
</tr>
<%
'读取广告内容
Set rsnews=Server.CreateObject("ADODB.RecordSet")
sqlnews="select top 1 * from 56770_news where newstype=67 order by id DESC"
rsnews.open sqlnews, conn, 3, 3
do while not rsnews.eof
%>
<tr>
<td>
<img src="images/guangbo1.gif">
<%if request("LAN")="english" then 
response.write rsnews("subject_ename")
elseif request("LAN")="fan" then 
 response.write rsnews("subject_fname")
 else
 response.write rsnews("subject")
end if%></td></tr>
<tr>
<td>
<marquee height=88 direction=up onMouseOver=this.stop() onMouseOut=this.start() scrollamount="3"  scrolldelay="166" border="0">
<%if request("LAN")="english" then 
message_ename = replace(message_ename, chr(32), "&nbsp;")
message_ename = replace(rsnews("message_ename"), chr(13), "<br>")
response.write message_ename
elseif request("LAN")="fan" then 
message_fname = replace(message_fname, chr(32), "&nbsp;")
message_fname = replace(rsnews("message_fname"), chr(13), "<br>")
 response.write message_fname
 else
message = replace(message, chr(32), "&nbsp;")
message = replace(rsnews("message"), chr(13), "<br>")
 response.write message
end if%>
</marquee>　
</td></tr>
<tr>
<td align="right" width="100%">&nbsp;<%=rsnews("idate")%>&nbsp;&nbsp;<a href="help.asp?lan=<%=request("lan")%>&newstype=67" title="查看更多动态">more..</a></td>
</tr>
<% rsnews.movenext
loop
rsnews.close
set rsnews=nothing%>
</table>