%
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
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%>
<%
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
%>
<%
a=a+1
end if
rs.movenext
loop
rs.close
end if
%>
<%
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
%>
<%
a=a+1
end if
rs.movenext
loop
rs.close
end if
%>
<%=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%>
<%tmp=conn.execute("select * from MEMBER_LEVEL where MEMBER_LEVEL_ID="&AUTHORIZATION_MODE&"")
auth=tmp("MEMBER_LEVEL_NAME")
set tmp=nothing%>
<%=auth%>
<%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%>
<%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%>
<%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%>
<%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 %>
<%
'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
%>