水利部牧区水利科学研究所

<% set rs=server.createobject("adodb.recordset") sql="select top 15 * from jobnews order by id desc" rs.open sql,conn,1,1 %>

友情链接

中国人民共和国水利部

中国水利科技网

中国水利报社

中国水文信息网

相关链接

<% do while not rs.eof %>

','top=20,left=360,width=410,height=350')"> <% if len(rs("title"))>18 then%> <%=left(rs("title"),15)%>... <% else%> <%=rs("title")%> <%end if%> [<%=rs("idate")%>]
<% n=n+1 rs.movenext if n>=20 then exit do loop rs.close set rs=nothing %>

更多内容...

<% sql1="select top 6 * from bt order by dt desc" set rs1=conn.execute (sql1) %> <% for i=1 to 10 if rs1.eof then exit for end if %> <% rs1.movenext next %>

&bz=bt','top=20,left=360,width=410,height=350')">

<%=rs1("title")%>