生物多样性 - Biodiversity Science,《生物多样性》,生物多样性杂志,生物多样性研究,生物多样性网站

编辑部公告

<% set rs=server.CreateObject("adodb.recordset") '本类别新闻标题 sql = "SELECT id,title,addtime,image,newsbutton FROM news where cateid=" + "2" +" and special=1 "+ " ORDER BY id DESC" 'response.write(sql) 'response.End() rs.open sql,conn,adOpenStatic 'if err.number <> 0 then 'response.Write(err.description) 'response.write "数据库出错" 'else if rs.bof and rs.eof then rs.close response.write "" else dim i,title for i = 1 to 6 if len(rs("title"))>50 then title =left(rs("title"),50)+"..." else title =rs("title") end if response.write "

※

"+""+ title + "

" + right(rs("addtime"),11) + "" 'response.write(rs1("addtime")) 'response.write(rs("newsbutton")) if rs("newsbutton") then response.write "" else response.write"
" end if response.Write("

") rs.movenext if rs.eof then exit for next rs.close 'end if end if %>

　　　　　　　　　　　　　　　　　　　更多>>