<% Set Conn = ConnectDataBase() function getChildTid(tid) classidstr = "" strsql = "select typeid from usip_news_type where f_id="&tid set objrs = server.createobject("adodb.recordset") objrs.open strsql,conn,1,1 if not objrs.eof then for i = 1 to objrs.recordcount if objrs.eof then exit for classidstr = classidstr & Cstr(objrs("typeid")) if i <> objrs.recordcount then classidstr = classidstr & "," end if objrs.movenext next else classidstr = tid end if objrs.close set objrs = nothing getChildTid = classidstr end function %> <%Sub showarticlelist(num,tid) %> <% sql = "select top "&num&" title,html_path from usip_news where typeid in("&tid&") and ischeck=1 and ispub=1 order by pub_time desc" set rs = conn.execute(sql) do while not rs.eof temptitle = rs("title") if len(temptitle) > 10 then temptitle = left(temptitle,10) & "..." end if %> <% rs.movenext loop rs.close set rs = nothing %>
<% end sub %>
用户登陆
  用户名:  
  密 码:  
用户注册
相关链接
知识库

  第二届全国青少年网络科普行系列活动 >> 京华时报-京华网:第二届全国青少年网络科普行启动

京华时报-京华网:第二届全国青少年网络科普行启动
作者:孙威

2008年4月1日17:4 打印 关闭

  中国互联网协会网络科普联盟、“我们的文明”主题系列活动组委会近日在京启动“第二届全国青少年网络科普行系列活动”。  (更多精彩新闻 请访问京华网www.jinghua.cn

  这次活动为期9个月,从即日开始,到10月结束。刚刚荣获“世界信息峰会大奖”的中国数字科技馆作为此次活动的网上主平台。活动围绕“节约资源能源、保护生态环境”的主题,开展网上科学实验、科普Flash作品征集展播、科普图片征集、青少年科学命题创意挑战赛等活动,全国各地青少年均可参加。为了提高活动质量,组委会还将对参加活动的100所中、小学校教师结合网上科学实验、科普Flash制作等进行培训。青少年创作的优秀电子作品,将收入中国数字科技馆资源库,亲手参与数字科技馆建设。

来源:京华时报-京华网
(责任编辑: 郭爽 )
版权所有:中国互联网协会网络科普联盟·2004 京ICP备05020248号
联系地址:北京市海淀区学院南路86号 邮政编码:100081
未经书面特别授权,请勿转载或建立镜像