<% 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日15:57 【打印 关闭】
　　中国互联网协会网络科普联盟丶“我们的文明”主题系列活动组委会今天在京启动“第二届全国青少年网络科普行系列活动”。活动到今年10月结束,围绕“节约资源能源丶保护生态环境”主题,将开展网上科学实验丶科普Flash作品征集展播丶科普图片征集丶青少年科学命题创意挑战赛等活动,全国各地青少年均可参加。刚刚荣获“世界信息峰会大奖”的中国数字科技馆成为此次活动的网上主平台。组委会还将对参加活动的100所中丶小学校教师结合网上科学实验丶科普Flash制作等进行培训。
来源：中文天下
(责任编辑： 郭爽 )
版权所有：中国互联网协会网络科普联盟·2004 京ICP备05020248号
联系地址：北京市海淀区学院南路86号　邮政编码：100081
未经书面特别授权，请勿转载或建立镜像