环球少儿国际英语 -- 打造中国少儿英语连锁第一品牌--Let Us Sing Together让我们一起唱歌

环球少儿国际英语

全国
分校

北京复兴门对外经贸东直门公主坟学院路花园桥海淀图书城亚运村石景山天通苑华威桥人大回龙观北苑望京通州朝阳路华东上海徐汇上海浦东上海闵行江苏南京浙江杭州浙江余杭浙江新昌浙江新安江浙江台州温州水头镇浙江苍南福建福州福建厦门福建泉州安徽蚌埠江苏扬州江苏坯州江苏金湖华南湖南长沙湖南湘潭湖南怀化湖北襄樊湖北武穴湖北汉口湖北武昌广东深圳 >广东佛山 >广东阳江广西柳州 华中北 山东青岛山东威海山东东营山东聊城天津南开天津河西河南郑州陕西西安东北黑龙江大庆辽宁抚顺辽宁海城沈阳皇姑辽宁大石桥

总部新闻 | 分校新闻 | 教育动态 | 加盟新闻 | 感悟环球

您所在的位置：首页 -> 学习乐园 -> 论坛热帖 ->

Let Us Sing Together让我们一起唱歌

发布:hul 发布日期:2007-08-06 11:32:08

没有相关文章

<% set conn=Server.CreateObject("ADODB.Connection") conn.Open "driver={SQL Server};server=.;uid=GlobalOld;pwd=~!@#$GlobalOld;database=globalkidsOld" %> <% function createdate(str) createdate=year(str) & "-" & right("00" & month(str),2) & "-" & right("00" & day(str),2) end function function createdate_jian(str) createdate_jian=year(str) & "/" & right("00" & month(str),2) & "/" & right("00" & day(str),2) end function function gettext(str,strlen) if IsNull(str) then gettext="" exit function end if dim l,t,c,i l=len(str) t=0 for i=1 to l c=Abs(Asc(Mid(str,i,1))) if c>255 then t=t+2 else t=t+1 end if if t>=strlen then walkgotTopic=left(str,i) exit for else walkgotTopic=str end if next gettext=walkgotTopic end function function delhtml(str) Set regEx = New RegExp regEx.Pattern = "<\/*[^<>]*>" regEx.IgnoreCase = True regEx.Global = True delhtml = regEx.Replace(str,"") end function function libiao(id,lenth) libiao="" libiao=libiao & "" & chr(10) libiao=libiao & "" & chr(10) libiao=libiao & "" & chr(10) libiao=libiao & "" & chr(10) set rs=nothing libiao=libiao & "

" & chr(10) set rs=server.CreateObject("adodb.recordset") rs.open"select top 10 a.title,a.addtime,a.scfile,b.dons,a.scfile,a.filepathname from wz_article as a,adminback as b where a.addrenid=b.id and classid="&id&" order by a.paixu,a.id desc",conn,1,3 if not rs.eof then libiao=libiao & "·"&gettext(rs("title"),lenth)&" "&createdate(rs("addtime"))&"
" rs.movenext end if if not rs.eof then libiao=libiao & "·"&gettext(rs("title"),lenth)&" "&createdate(rs("addtime"))&"
" rs.movenext end if if not rs.eof then libiao=libiao & "·"&gettext(rs("title"),lenth)&" "&createdate(rs("addtime"))&"
" rs.movenext end if if not rs.eof then libiao=libiao & "·"&gettext(rs("title"),lenth)&" "&createdate(rs("addtime"))&"
" rs.movenext end if if not rs.eof then libiao=libiao & "·"&gettext(rs("title"),lenth)&" "&createdate(rs("addtime"))&"
" rs.movenext end if libiao=libiao & "

" & chr(10) if not rs.eof then libiao=libiao & "·"&gettext(rs("title"),lenth)&" "&createdate(rs("addtime"))&"
" rs.movenext end if if not rs.eof then libiao=libiao & "·"&gettext(rs("title"),lenth)&" "&createdate(rs("addtime"))&"
" rs.movenext end if if not rs.eof then libiao=libiao & "·"&gettext(rs("title"),lenth)&" "&createdate(rs("addtime"))&"
" rs.movenext end if if not rs.eof then libiao=libiao & "·"&gettext(rs("title"),lenth)&" "&createdate(rs("addtime"))&"
" rs.movenext end if if not rs.eof then libiao=libiao & "·"&gettext(rs("title"),lenth)&" "&createdate(rs("addtime"))&"
" rs.movenext end if libiao=libiao & "

" & chr(10) end function function danlie(id,num,lenth,imageurl,yanshi) '类id,条数，长度，图片路径，样式 danlie="" if trim(imageurl)="" then image_url="·" else image_url="

" end if if trim(yangshi)="" then yang_shi="" else yang_shi=yangshi end if set rs=server.CreateObject("adodb.recordset") rs.open"select top "&num&" a.title,a.addtime,a.scfile,b.dons,a.scfile,a.filepathname from wz_article as a,adminback as b where a.addrenid=b.id and classid ="&id&" order by a.paixu,a.id desc",conn,1,3 if rs.eof then danlie=danlie & "没有信息" & chr(10) else do while not rs.eof danlie=danlie & ""&image_url&""&gettext(rs("title"),lenth)&"
" rs.movenext loop end if set rs=nothing end function function tabledanlie(id,num,lenth,imageurl,width,height,yangshi,cellspac,cellpadd) tabledanlie="" if trim(imageurl)="" then image_url="·" else image_url="

" end if if trim(yangshi)="" then yang_shi="" else yang_shi=yangshi end if set rs=server.CreateObject("adodb.recordset") rs.open"select top "&num&" a.title,a.addtime,a.biaozhi,a.scfile,b.dons,a.scfile,a.filepathname from wz_article as a,adminback as b where a.addrenid=b.id and classid ="&id&" order by a.paixu,a.id desc",conn,1,3 if rs.eof then tabledanlie=tabledanlie & "没有信息" & chr(10) else do while not rs.eof biaozhi="" if rs("biaozhi")=1 then biaozhi="new" end if tabledanlie=tabledanlie & "" rs.movenext loop end if set rs=nothing tabledanlie=tabledanlie & "

"&image_url&"

"&gettext(rs("title"),lenth)&""&biaozhi&"

" end function function tabledanlie_shijian(id,num,lenth,imageurl,width,height,yangshi,cellspac,cellpadd) tabledanlie_shijian="" if trim(imageurl)="" then image_url="·" else image_url="

" end if if trim(yangshi)="" then yang_shi="" else yang_shi=yangshi end if set rs=server.CreateObject("adodb.recordset") if id="" then rs.open"select top "&num&" a.title,a.addtime,a.scfile,b.dons,a.scfile,a.filepathname from wz_article as a,adminback as b where a.addrenid=b.id order by a.paixu,a.id desc",conn,1,3 else rs.open"select top "&num&" a.title,a.addtime,a.scfile,b.dons,a.scfile,a.filepathname from wz_article as a,adminback as b where a.addrenid=b.id and classid ="&id&" order by a.paixu,a.id desc",conn,1,3 end if if rs.eof then tabledanlie_shijian=tabledanlie_shijian & "没有信息" & chr(10) else do while not rs.eof tabledanlie_shijian=tabledanlie_shijian & "" rs.movenext loop end if set rs=nothing tabledanlie_shijian=tabledanlie_shijian & "

"&image_url&"

"&gettext(rs("title"),lenth)&" "&createdate_jian(rs("addtime"))&"

" end function function tabledanlie_shijian_xin(id,num,lenth,imageurl,width,height,yangshi,cellspac,cellpadd) tabledanlie_shijian_xin="" if trim(imageurl)="" then image_url="·" else image_url="

" end if if trim(yangshi)="" then yang_shi="" else yang_shi=yangshi end if set rs=server.CreateObject("adodb.recordset") if id="" then rs.open"select top "&num&" a.title,a.addtime,a.scfile,b.dons,a.scfile,a.filepathname from wz_article as a,adminback as b where a.addrenid=b.id order by a.paixu,a.id desc",conn,1,3 else rs.open"select top "&num&" a.title,a.addtime,a.scfile,b.dons,a.scfile,a.filepathname from wz_article as a,adminback as b where a.addrenid=b.id and classid in("&id&") order by a.id desc",conn,1,3 end if if rs.eof then tabledanlie_shijian_xin=tabledanlie_shijian_xin & "没有信息" & chr(10) else do while not rs.eof tabledanlie_shijian_xin=tabledanlie_shijian_xin & "" rs.movenext loop end if set rs=nothing tabledanlie_shijian_xin=tabledanlie_shijian_xin & "

"&image_url&"

"&gettext(rs("title"),lenth)&" "&createdate_jian(rs("addtime"))&"

" end function function shuanglie(id,num,lenth,imageurl,width,height,yangshi,cellspac,cellpadd) shuanglie="" if trim(imageurl)="" then image_url="·" else image_url="

" end if if trim(yangshi)="" then yang_shi="" else yang_shi=yangshi end if i=num/2 j=1 shuanglie=shuanglie & "" & chr(10) shuanglie=shuanglie & "

" & chr(10) set rs=server.CreateObject("adodb.recordset") rs.open"select top "&i&" a.title,a.addtime,a.scfile,b.dons,a.scfile,a.filepathname from wz_article as a,adminback as b where a.addrenid=b.id and classid="&id&" order by a.paixu,a.id desc",conn,1,3 if rs.eof then shuanglie=shuanglie & "没有信息" & chr(10) else do while not rs.eof shuanglie=shuanglie & ""&image_url&""&gettext(rs("title"),lenth)&"
" rs.movenext loop end if set rs=nothing shuanglie=shuanglie & "

" & chr(10) set rs=server.CreateObject("adodb.recordset") rs.open"select top "&num&" a.title,a.addtime,a.scfile,b.dons,a.scfile,a.filepathname from wz_article as a,adminback as b where a.addrenid=b.id and classid="&id&" order by a.paixu,a.id desc",conn,1,3 if rs.eof then shuanglie=shuanglie & "没有信息" & chr(10) else do while not rs.eof if j>i then shuanglie=shuanglie & ""&image_url&""&gettext(rs("title"),lenth)&"
" end if j=j+1 rs.movenext loop end if set rs=nothing shuanglie=shuanglie & "

" & chr(10) end function function tableshuanglie(id,num,lenth,imageurl,width,height,yangshi,cellspac,cellpadd) tableshuanglie="" i=0 if trim(imageurl)="" then image_url="·" else image_url="

" end if if trim(yangshi)="" then yang_shi="" else yang_shi=yangshi end if tableshuanglie=tableshuanglie & "" & chr(10) tableshuanglie=tableshuanglie & "" & chr(10) set rs=server.CreateObject("adodb.recordset") rs.open"select top "& num &" a.title,a.addtime,a.scfile,b.dons,a.scfile,a.filepathname from wz_article as a,adminback as b where a.addrenid=b.id and classid="&id&" order by a.paixu,a.id desc",conn,1,3 if not rs.eof then do while not rs.eof tableshuanglie=tableshuanglie & "" & chr(10) i=i+1 j=i mod 2 if j=0 then tableshuanglie=tableshuanglie & "" & chr(10) end if rs.movenext loop tableshuanglie=tableshuanglie & "" & chr(10) tableshuanglie=tableshuanglie & "

"& image_url &""&gettext(rs("title"),lenth)&"

" & chr(10) end if end function function tableshuanglie2(id,num,lenth,imageurl,width,height,yangshi,cellspac,cellpadd) tableshuanglie2="" i=0 if trim(imageurl)="" then image_url="·" else image_url="

" end if if trim(yangshi)="" then yang_shi="" else yang_shi=yangshi end if tableshuanglie2=tableshuanglie2 & "" & chr(10) tableshuanglie2=tableshuanglie2 & "" & chr(10) set rs=server.CreateObject("adodb.recordset") rs.open"select top "& num &" a.title,a.addtime,a.scfile,b.dons,a.scfile,a.filepathname from wz_article as a,adminback as b where a.addrenid=b.id and classid="&id&" order by a.paixu,a.id desc",conn,1,3 if not rs.eof then do while not rs.eof tableshuanglie2=tableshuanglie2 & "" & chr(10) tableshuanglie2=tableshuanglie2 & "" & chr(10) rs.movenext loop tableshuanglie2=tableshuanglie2 & "" & chr(10) tableshuanglie2=tableshuanglie2 & "

"& image_url &""&gettext(rs("title"),lenth)&"

" & chr(10) end if end function function newslanmu(leiid,leiname) newslanmu="" newslanmu=newslanmu & "" & chr(10) newslanmu=newslanmu & "" & chr(10) newslanmu=newslanmu & "

" & chr(10) newslanmu=newslanmu & "" & chr(10) newslanmu=newslanmu & "" & chr(10) newslanmu=newslanmu & "" & chr(10) newslanmu=newslanmu & "

"&leiname&"

" & chr(10) set rs=server.CreateObject("adodb.recordset") rs.open"select a.title,a.addtime,a.scfile,b.dons,a.scfile,a.filepathname from wz_article as a,adminback as b where a.addrenid=b.id and classid="&leiid&" order by a.paixu,a.id desc",conn,1,3 if rs.eof then newslanmu=newslanmu & "" & chr(10) else rs.pagesize=20 page=clng(request("page")) if page="" or page<1 then page=1 end if if page>rs.pagecount then page=rs.pagecount end if rs.AbsolutePage =page q=0 for i=1 to rs.pagesize newslanmu=newslanmu & "" & chr(10) q=q+1 j=q mod 5 if j=0 then newslanmu=newslanmu & "" & chr(10) end if rs.movenext if rs.eof then exit for next newslanmu=newslanmu & "

没有信息

·"&rs("title")&" "&createdate(rs("addtime"))&"

" & chr(10) newslanmu=newslanmu & "" & chr(10) newslanmu=newslanmu & "

" & chr(10) newslanmu=newslanmu & "" & chr(10) newslanmu=newslanmu & "" & chr(10) newslanmu=newslanmu & "

" & chr(10) nowstart=page-4 if nowstart<1 then nowstart=1 end if nowend=page+3 if nowend>rs.pagecount then nowend=rs.pagecount end if for ipage=nowstart to nowend if cstr(ipage)=cstr(page) then newslanmu=newslanmu & " " & ipage &" " & chr(10) else newslanmu=newslanmu & " " & ipage &" " & chr(10) end if next newslanmu=newslanmu & "

" & chr(10) end if set rs=nothing end function function teachinglanmu(leiid,leiname) teachinglanmu="" teachinglanmu=teachinglanmu & "" & chr(10) teachinglanmu=teachinglanmu & "" & chr(10) teachinglanmu=teachinglanmu & "" & chr(10) teachinglanmu=teachinglanmu & "" & chr(10) teachinglanmu=teachinglanmu & "" & chr(10) end if set rs=nothing teachinglanmu=teachinglanmu & "" & chr(10) teachinglanmu=teachinglanmu & "" & chr(10) teachinglanmu=teachinglanmu & "" & chr(10) teachinglanmu=teachinglanmu & "

" & chr(10) teachinglanmu=teachinglanmu & "

"&leiname&"

" & chr(10) teachinglanmu=teachinglanmu & "

" & chr(10) set rs=server.CreateObject("adodb.recordset") rs.open"select a.title,a.addtime,a.scfile,b.dons,a.scfile,a.filepathname from wz_article as a,adminback as b where a.addrenid=b.id and classid="&leiid&" order by a.paixu,a.id desc",conn,1,3 if rs.eof then teachinglanmu=teachinglanmu & "没有信息" & chr(10) else rs.pagesize=25 page=clng(request("page")) if page="" or page<1 then page=1 end if if page>rs.pagecount then page=rs.pagecount end if rs.AbsolutePage =page q=0 for i=1 to rs.pagesize teachinglanmu=teachinglanmu & "·"& rs("title") &" "& rs("addtime") &"
" & chr(10) q=q+1 j=q mod 5 if j=0 then teachinglanmu=teachinglanmu & "

" & chr(10) teachinglanmu=teachinglanmu & "

" end if rs.movenext if rs.eof then exit for next teachinglanmu=teachinglanmu & "

" & chr(10) teachinglanmu=teachinglanmu & "

" & chr(10) teachinglanmu=teachinglanmu & "" & chr(10) teachinglanmu=teachinglanmu & "" & chr(10) teachinglanmu=teachinglanmu & "

" & chr(10) nowstart=page-4 if nowstart<1 then nowstart=1 end if nowend=page+3 if nowend>rs.pagecount then nowend=rs.pagecount end if for ipage=nowstart to nowend if cstr(ipage)=cstr(page) then teachinglanmu=teachinglanmu & " " & ipage &" " & chr(10) else teachinglanmu=teachinglanmu & " " & ipage &" " & chr(10) end if next teachinglanmu=teachinglanmu & "

" & chr(10) end function function tulanmu(leiid,leiname) tulanmu="" tulanmu=tulanmu & "" & chr(10) tulanmu=tulanmu & "" & chr(10) tulanmu=tulanmu & "

"& leiname &"

" & chr(10) set rs=server.CreateObject("adodb.recordset") rs.open"select a.title,a.addtime,a.scfile,b.dons,a.scfile,a.filepathname,a.zhaopian,a.content from wz_article as a,adminback as b where a.addrenid=b.id and classid="&leiid&" order by a.paixu,a.id desc",conn,1,3 if rs.eof then tulanmu=tulanmu & "

没有信息

" & chr(10) else rs.pagesize=12 page=clng(request("page")) if page="" or page<1 then page=1 end if if page>rs.pagecount then page=rs.pagecount end if rs.AbsolutePage =page q=0 j=0 for i=1 to rs.pagesize tulanmu=tulanmu & "" & chr(10) tulanmu=tulanmu & "" & chr(10) tulanmu=tulanmu & "" & chr(10) tulanmu=tulanmu & "

"& rs("title") &"
" & gettext(trim(delhtml(rs("content"))),200) & "... ...

" & chr(10) rs.movenext if rs.eof then exit for next tulanmu=tulanmu & "

" & chr(10) tulanmu=tulanmu & "" & chr(10) tulanmu=tulanmu & "" & chr(10) tulanmu=tulanmu & "" & chr(10) tulanmu=tulanmu & "

" & chr(10) nowstart=page-4 if nowstart<1 then nowstart=1 end if nowend=page+3 if nowend>rs.pagecount then nowend=rs.pagecount end if for ipage=nowstart to nowend if cstr(ipage)=cstr(page) then tulanmu=tulanmu & " " & ipage &" " & chr(10) else tulanmu=tulanmu & " " & ipage &" " & chr(10) end if next tulanmu=tulanmu & "

" & chr(10) end if set rs=nothing end function %>

焦点关注

·中行迎奥运英语大赛	·环球到油城
·和首都小朋友一起欢	·夏令营一期开营二期

·走进打工子弟学校

·热烈祝贺广西运营部	·环球少儿扎根大庆、
·环球少儿积极探索二	·环球少儿进驻东营

·少儿英语等级考试大	·2007年9月北京市剑桥
·学生穿拖鞋上学学校	·英语口语等级考试（

·环球少儿国际英语故	·环球少儿国际英语的
·谁让教师背负起无限	·研究显示受虐影响脑

学习乐园

·How to love learni	·How do animals spe
·The Fox and the Cr	·My Bed is a Boat
·The Larks in the C	·My Shadow

·练英语口语必须烂熟	·英语常用口头禅集锦
·小学英语练习题.1	·12333

·Just Do It	·The poor bird
·New Beijing, GREat	·the Sun and The Ea
·The Way to Keep He	·My Favourite Book(

;

·家长该如何为孩子选	·空心菜让“胃肠感冒
·夏季补水知识多：饮	·如何对孩子进行约束
·经典40句教育孩子不	·让孩子自由抒发感情

无标题文档

北京海淀中关村南大街甲18号北京·国际 D座9层
电话：62126655
传真：62126611-661