<% dim groupid groupid=Request.QueryString("groupid") if groupid="" then groupid=5 end if %> <% tmp=conn.execute("select * from down_courseware where down_courseware_id="&clng(request("id"))&"") IS_ISSUANCE=tmp("IS_ISSUANCE") if IS_ISSUANCE=0 then response.end response.redirect "\" end if keyword=tmp("keyword") DOWN_COURSEWARE_ID=tmp("DOWN_COURSEWARE_ID") DOWN_COURSEWARE_NAME=tmp("DOWN_COURSEWARE_NAME") DOWN_COURSEWARE_TYPE_ID=tmp("DOWN_COURSEWARE_TYPE_ID") COURSEWARE_CHARACTER_ID=tmp("COURSEWARE_CHARACTER_ID") NEW_RESOURCE_TYPE_ID=tmp("NEW_RESOURCE_TYPE_ID") DOWN_COURSEWARE_OS=tmp("DOWN_COURSEWARE_OS") DOWN_COURSEWARE_SIZE=tmp("DOWN_COURSEWARE_SIZE") WEEK_COUNT=tmp("WEEK_COUNT") DOWNLOAD_ADDRESS=tmp("DOWNLOAD_ADDRESS") DOWNLOAD_COUNT=tmp("DOWNLOAD_COUNT") DOWNLOAD_EXPLAIN=tmp("DOWNLOAD_EXPLAIN") AUTHORIZATION_MODE=tmp("AUTHORIZATION_MODE") SPECIALITY=tmp("SPECIALITY") NEATEN_DATE=tmp("NEATEN_DATE") SHOW=tmp("SHOW") ZYPJ=tmp("ZYPJ") PIC_ADDRESS=tmp("PIC_ADDRESS") PIC_EXPLAIN=tmp("PIC_EXPLAIN") DOWN_COURSEWARE_REMARK=tmp("DOWN_COURSEWARE_REMARK") keywords=tmp("DOWN_COURSEWARE_NAME") DOWN_COURSEWARE_date=tmp("DOWN_COURSEWARE_date") DOWN_COURSEWARE_book=tmp("DOWN_COURSEWARE_book") UP_COURSEWARE_LAIYUAN=tmp("Down_courseware_laiyuan") Down_courseware_date=tmp("down_courseware_date") set tmp=nothing tmp=conn.execute("select * from NEW_RESOURCE_TYPE where NEW_RESOURCE_TYPE_ID="&NEW_RESOURCE_TYPE_ID&"") NEW_RESOURCE_TYPE_NAME=tmp("NEW_RESOURCE_TYPE_NAME") set tmp=nothing %> <%=DOWN_COURSEWARE_NAME%>课件下载 - 中国高等学校教学资源网 <% if groupid=1 then%>
当前位置:首页 » 共享课件下载 » 课件下载排行TOP50 <% Updateadmin=request("Updateadmin") if cstr(Updateadmin)="1" then conn.execute "update member set is_email=1 where member_id='" & session("userid") & "'" Session("is_email")="1" end if if session("userok")="" then if groupid="" or groupid >=3 then%>
<%else%> <%end if%> 帐号: 密码:
<% else dim tmp12,member_level_name1 tmp12=conn.execute("select b.member_level_name from member a,member_level b where a.member_level_id=b.member_level_id and a.member_id=" & session("userid")) member_level_name1=tmp12("member_level_name") set tmp12=nothing%> 级别: <% if Session("eduku")="1" then printvalue="黄金VIP会员" elseif Session("eduku")="0" then printvalue=member_level_name1 end if if Session("is_admin")="1" then printvalue="学校管理员" response.write printvalue %> <%tmp12=conn.execute("select END_DATE from member where member_id=" & session("userid")) if isnull(tmp12("END_DATE")) then END_DATE="无" else END_DATE=tmp12("END_DATE") end if set tmp12=nothing %> 到期时间:<%=END_DATE%>
        来访IP:<%=Request.ServerVariables("Remote_Addr")%> <%end if%>
<% end if %>
工作时间:8:30-17:30 | CCTR客服:400-810-4002    
 
 
 
name=keywords>
 
 
 
 
 
 
 
                     
 
 
     
 
   
资源库 | SYNC普通高校公共教学素材资源库 | SYNC院系级产品 | GLIB高职高专专业教学资源全库
试题库 | CECS试题库考试中心版 | CECS试题库中心版 | CECS学科课程试题库单机版
在线服务 | CCTR网站团体黄金会员 | CCTR网站团体会员 | CCTR网站个人VIP会员
 
     
 
     
 
 
 

产品咨询:400-810-4002 qq:1075702838
网站会员事务联系:010-62973261

 
     
   
各地直属服务机构>>
当前位置:首页》 共享课件下载》课件下载排行TOP50
 
 
     
  <% if groupid>5 then%>
<% else %> <%end if%>
 
<% if(trim(Request("keywords"))<>"") then kword=trim(Request("keywords")) else kword="关键字" end if %>
 
     
 
 
     
 
 
<% OldWeek = WeekDay(Date())-1 If OldWeek = 0 Then OldWeek = 7 OldWeek = Date()-OldWeek NewWeek = Date()+(9-WeekDay(Date())) set rs=server.createobject("adodb.recordset") sqltext="select top 10 * from DOWN_COURSEWARE where " sqltext=sqltext&" (WEEK_FIRST_DATE < '" & NewWeek & "') And (WEEK_FIRST_DATE > '" & OldWeek & "') and WEEK_COUNT>0" sqltext=sqltext&" order by WEEK_COUNT desc" rs.open sqltext,conn,1,1 '假如没有数据时 If rs.eof and rs.bof then %> <%else a=0 do while not rs.eof if a<=10 then %> bgcolor="#FFFFFF"<%else%>bgcolor="#f7fcfd"<%end if%>> <% a=a+1 end if rs.movenext loop rs.close end if %>
本周没有课件下载
.html"><%=rs("DOWN_COURSEWARE_NAME")%> <%=rs("WEEK_COUNT")%>
 
 
     
 
     
 
 
<% set rs=server.createobject("adodb.recordset") sqltext="select top 10 * from DOWN_COURSEWARE where IS_RECOMMENDATON=1 order by WEEK_COUNT desc" rs.open sqltext,conn,1,1 '假如没有数据时 If rs.eof and rs.bof then %> <%else a=0 do while not rs.eof if a<=10 then %> bgcolor="#FFFFFF"<%else%>bgcolor="#f7fcfd"<%end if%>> <% a=a+1 end if rs.movenext loop rs.close end if %>
当前没有推荐精品课件
.html" target="_blank">·<%=rs("DOWN_COURSEWARE_NAME")%>
 
 
     
 
 
 
 
<%=DOWN_COURSEWARE_NAME%>-共享课件明细说明
 
   
资源名称:
<%=DOWN_COURSEWARE_NAME%> <%dim rs_ad,asdn,number number=-1 set rs_ad = conn.execute("select * from adtable where partid=2 order by aid desc") do while not rs_ad.eof asdn= split(rs_ad("categoryid"),",") for i=0 to Ubound (asdn) if cstr(NEW_RESOURCE_TYPE_ID)=asdn(i) then number=rs_ad("aid")%> <% Exit For exit do end if Next rs_ad.movenext loop sql="select * from adtable where partid=2 order by aid desc" if number<>-1 then sql="select * from adtable where partid=2 and aid="&number end if set rs_ad = conn.execute(sql) if rs_ad("typeid")="-11" then %> &url=<%=server.URLEncode(rs_ad("gourl"))%>" target="_blank">" width="<%=rs_ad("width")%>" height="<%=rs_ad("height")%>" border="0" alt="<%=rs_ad("title")%>"> <%end if if rs_ad("typeid")="2" then%> "> <% end if set rs_shows=conn.execute("update adtable set shows=shows+1 where aid="&rs_ad("aid")) set rs_shows=nothing %>
资源性质:
<%tmp=conn.execute("select * from COURSEWARE_CHARACTER where COURSEWARE_CHARACTER_ID="&COURSEWARE_CHARACTER_ID&"") COURSEWARE_CHARACTER_NAME=tmp("COURSEWARE_CHARACTER_NAME") set tmp=nothing%> <%=COURSEWARE_CHARACTER_NAME%>
资源类型:
<%tmp=conn.execute("select * from NEW_RESOURCE_TYPE where NEW_RESOURCE_TYPE_ID="&NEW_RESOURCE_TYPE_ID&"") NEW_RESOURCE_TYPE_NAME=tmp("NEW_RESOURCE_TYPE_NAME") set tmp=nothing%> <%=NEW_RESOURCE_TYPE_NAME%>
适用专业:
<%=SPECIALITY%> 
操作系统:
<%aa=split(DOWN_COURSEWARE_OS,",")%> <%if aa(0)="1" then%> <%end if%> <%if aa(1)="1" then%> <%end if%> <%if aa(2)="1" then%> <%end if%> <%if aa(3)="1" then%> <%end if%> <%if aa(4)="1" then%> <%end if%>
授权方式:
<%tmp=conn.execute("select * from MEMBER_LEVEL where MEMBER_LEVEL_ID="&AUTHORIZATION_MODE&"") auth=tmp("MEMBER_LEVEL_NAME") set tmp=nothing%> <%=auth%>
资源大小:
<%=round(clng(DOWN_COURSEWARE_SIZE)/1024,2)%>K
资源评价:
<%if ZYPJ=1 then%> ★ <%end if%> <%if ZYPJ=2 then%> ★★ <%end if%> <%if ZYPJ=3 then%> ★★★ <%end if%> <%if ZYPJ=4 then%> ★★★★ <%end if%> <%if ZYPJ=5 then%> ★★★★★ <%end if%>
是否原创:
<%if UP_COURSEWARE_LAIYUAN="原创" then Response.write("是") else Response.write(" ")%>  <%if Down_courseware_date<>"" or Down_courseware_date<>null then %>           原创时间为:<%=Down_courseware_date%><%end if%>
下载统计:
本周下载:<%=WEEK_COUNT%>  总下载:<%=DOWNLOAD_COUNT%>
资源简介:
<%=DOWN_COURSEWARE_REMARK%>   
<%=DOWN_COURSEWARE_book%>   
相关试题库: <% set rs_ad = conn.execute("select top 1 * from adtable where categoryid like '%"&cstr(NEW_RESOURCE_TYPE_ID)&"%' and partid=1 order by newid()") if not rs_ad.eof then if rs_ad("typeid")="1" then%> &url=<%=server.URLEncode(rs_ad("gourl"))%>" target="_blank">" width="<%=rs_ad("width")%>" height="<%=rs_ad("height")%>" border="0" alt="<%=rs_ad("title")%>"> <%end if if rs_ad("typeid")="2" then%>
">
<%end if set rs_shows=conn.execute("update adtable set shows=shows+1 where aid="&rs_ad("aid")) set rs_shows=nothing else%> <%end if rs_ad.close set rs_ad=nothing%>
下载地址:
" target="_blank">【北方网通用户下载】 " target="_blank">【南方电信用户下载】
仿真教学:
<% set rs_ad = conn.execute("select top 1 * from adtable where categoryid like '%"&cstr(NEW_RESOURCE_TYPE_ID)&"%' and partid=3 order by newid()") if not rs_ad.eof then if rs_ad("typeid")="1" then%> &url=<%=server.URLEncode(rs_ad("gourl"))%>" target="_blank">" width="<%=rs_ad("width")%>" height="<%=rs_ad("height")%>" border="0" alt="<%=rs_ad("title")%>"> <%end if if rs_ad("typeid")="2" then%>
">
<%end if set rs_shows=conn.execute("update adtable set shows=shows+1 where aid="&rs_ad("aid")) set rs_shows=nothing else%> <%end if rs_ad.close set rs_ad=nothing%>
软件培训:
<% set rs_ad = conn.execute("select top 1 * from adtable where categoryid like '%"&cstr(NEW_RESOURCE_TYPE_ID)&"%' and partid=4 order by newid()") if not rs_ad.eof then if rs_ad("typeid")="1" then%> &url=<%=server.URLEncode(rs_ad("gourl"))%>" target="_blank">" width="<%=rs_ad("width")%>" height="<%=rs_ad("height")%>" border="0" alt="<%=rs_ad("title")%>"> <%end if if rs_ad("typeid")="2" then%>
">
<%end if set rs_shows=conn.execute("update adtable set shows=shows+1 where aid="&rs_ad("aid")) set rs_shows=nothing else%> <%end if rs_ad.close set rs_ad=nothing%>
是否收藏: <%if session("userid")="" then%> ">添加到我的收藏夹 <% else tt=conn.execute("select count(id) as t from DOWN_COURSEWARE_FAV where DOWN_COURSEWARE_ID="&clng(request("id"))&" and MEMBER_ID="&clng(session("userid"))&"") if tt("t")>0 then tmp1=conn.execute("select DOWN_COURSEWARE_ID,fav_time from DOWN_COURSEWARE_FAV where DOWN_COURSEWARE_ID="&clng(request("id"))&" and MEMBER_ID="&clng(session("userid"))&"") %> 该课件已收藏,收藏时间:<%=tmp1("fav_time")%> <%else%> ">添加到我的收藏夹 <%end if end if %>
我来分类:
<% set rsReview=server.createobject("adodb.recordset") sqltext1="select top 6 * from DOWN_COURSEWARE_REVIEW Where DOWN_COURSEWARE_ID="&clng(request("id"))&" order by DOWN_COURSEWARE_REVIEW_ID desc" rsReview.open sqltext1,conn,1,1 if rsReview.eof and rsReview.bof then %> 没有分类。 <% else while not rsReview.eof %>
  • <%if rsReview("USER_ID")<>"" then%>[<%=rsReview("USER_ID")%>]:<%end if%><%=rsReview("DOWN_COURSEWARE_REVIEW_CONTENT")%>[<%=rsReview("DOWN_COURSEWARE_REVIEW_TIME")%>]

  • <% rsReview.movenext wend rsReview.close end if %>

    ')">我来对该课件/素材的适用专业进行分类>>

    相关课件:
    <% 'Response.Write keyword if not keyword="" then keyword_s=split(keyword,"|") sql_s="" for i=0 to Ubound(keyword_s) sql_s=sql_s&"or "&"keyword like '%"&keyword_s(i)&"%'" next sql_s=mid(sql_s,3) if request("all")="1" then ss="" else ss="top 20" end if sql_s="SELECT "&ss&" DOWN_COURSEWARE.*,COURSEWARE_CHARACTER.COURSEWARE_CHARACTER_NAME AS COURSEWARE_CHARACTER_NAME FROM dbo.DOWN_COURSEWARE LEFT OUTER JOIN COURSEWARE_CHARACTER ON DOWN_COURSEWARE.COURSEWARE_CHARACTER_ID = COURSEWARE_CHARACTER.COURSEWARE_CHARACTER_ID where DOWN_COURSEWARE.NEW_RESOURCE_TYPE_ID="&NEW_RESOURCE_TYPE_ID&" and ("&sql_s&") and DOWN_COURSEWARE.DOWN_COURSEWARE_ID<>"&DOWN_COURSEWARE_ID&"" end if 'Response.Write sql_s if sql_s="" then sql_s="select top 0 * from DOWN_COURSEWARE" end if set rsKeyWord=server.createobject("adodb.recordset") sqltext2=sql_s rsKeyWord.open sqltext2,conn,1,1 if rsKeyWord.eof and rsKeyWord.bof then %> 没有相关课件. <% else Response.Write "
      " kkk=0 while not rsKeyWord.eof %>
    1.   .html"> <%=rsKeyWord("DOWN_COURSEWARE_NAME")%>   [<%=rsKeyWord("COURSEWARE_CHARACTER_NAME")%>]

    2. <% kkk=kkk+1 rsKeyWord.movenext wend if kkk=20 then %> <% if groupid<>"" or groupid<3 then %> &all=1&groupid=<%=groupid%>"> ..显示全部 <%else%> &all=1"> ..显示全部 <% end if end if rsKeyWord.close end if %>
    下载说明:
    1.请您先关闭弹出窗口拦截功能,否则将不能正常下载课件;
    2.建议采用讯雷(Thunder)下载。      
    <%=DOWNLOAD_EXPLAIN%>
     

    首页 | 关于我们 | 联系方式 | 版权声明 | 汇款方式 | 会员注册 | 购买软件 | 招聘信息
    全国高校CAI推广中心主办
    中国高等学校教学资源网 CopyRight©2004 版权所有
    办理机关:北京市公安局海淀分局   1101081957
    京ICP证070553号