<%
Response.Expires= -1
Response.ExpiresAbsolute = Now() - 1
response.CacheControl="no-cache"
server.ScriptTimeout=50000
%>
document.writeln("ר¼Ò½²×ù
");
document.writeln("");
<%
sql="select top 15 cast(title as varchar(38)) as showtitle,title,t_color,htmlpath,html,addlink from edu_news where newcataid=320 and newsubid=787 and isshow=1 order by shownum,addtime desc"
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3
if not(rs.eof or rs.bof) then
do while not rs.eof
if rs("addlink")="" or isnull(rs("addlink")) then
newslink="/ms/web_news/html/"&rs("htmlpath")&"/"&rs("html")
else
newslink=rs("addlink")
end if
%>
document.writeln("- \" target=\"_blank\" title=\"<%=rs(1)%>\"><%=rs(0)%>
");
<%
rs.movenext
loop
end if
rs.close
set rs=nothing
%>
document.writeln("
");