<% sql = "select * from config" set rs = server.createobject("adodb.recordset") rs.open sql,conn,1,3 schoolname = rs("schoolname") gonggao = rs("gonggao") todaytimes = rs("todaytimes") times = rs("times") if rs("todaydate") <> date() then rs("todaydate") = date() todaytimes = 0 end if if request.cookies("counted") <> "yes" then response.cookies("counted") = "yes" response.cookies("counted").expires = now() + 1/72 times = times + 1 todaytimes = todaytimes + 1 rs("times") = times rs("todaytimes") = todaytimes rs.update end if rs.close dim num1 dim rndnum Randomize Do While Len(rndnum)<4 num1=CStr(Chr((57-48)*rnd+48)) rndnum=rndnum&num1 loop session("verifycode")=rndnum %>

管理员公告 <% if gonggao <> "" then response.write ""&gonggao else response.write "暂无" end if %> 新注册用户 <% sql = "select top 10 * from teacher order by id desc" rs.open sql,conn,1,1 if rs.recordcount < 1 then response.write "暂无" else do while not rs.eof response.write "v" response.write " "&rs("teacher")&"（"&rs("fenlei2")&"） " rs.movenext loop end if rs.close %> 访问统计 v 总访问量：<%=times%> v 今日访问：<%=todaytimes%>

最近更新 <% sql = "select top 10 * from main order by dateandtime desc" rs.open sql,conn,1,1 for i = 1 to 10 if rs.eof then response.write "" else dateandtime = rs("dateandtime") updatedate = year(dateandtime)&"/"&month(dateandtime)&"/"&day(dateandtime) if len(rs("title")) > 10 then filetitle = left(rs("title"),10)&"..." else filetitle = rs("title") end if %> <% rs.movenext end if next rs.close %> 文件标题 教师姓名 更新日期 所属<%=strfenlei2%>           );><%=filetitle%> ><%=rs("teacher")%> <%=updatedate%>   <%=rs("fenlei2")%> 下载排行 <% sql = "select top 10 * from main order by times desc" rs.open sql,conn,1,1 for i = 1 to 10 if rs.eof then response.write "" else if len(rs("title")) > 10 then filetitle = left(rs("title"),10)&"..." else filetitle = rs("title") end if %> <% rs.movenext end if next rs.close %> 文件标题 教师姓名 下载次数 所属<%=strfenlei2%>           );><%=filetitle%> ><%=rs("teacher")%> <%=rs("times")%>   <%=rs("fenlei2")%>

教师登陆 ID 密码 ">    资源列表 <% sql = "select * from teacher where true" rs.open sql,conn,1,1 teachercount = rs.recordcount rs.close response.write "本站现有 " response.write "v 注册教师："&teachercount&" " sql = "select * from type where true" rs.open sql,conn,1,1 set rs1 = server.createobject("adodb.recordset") do while not rs.eof response.write "v "&rs("type")&"：" sql1 = "select * from main where type='"&rs("type")&"'" rs1.open sql1,conn,1,1 response.write rs1.recordcount&" " rs1.close rs.movenext loop set rs1 = nothing rs.close %> <% sql = "select * from type" rs.open sql,conn,1,1 %> 快速搜索 课程 标题 类型 请选择      <% do while not rs.eof %> "><%=rs("type")%> <% rs.movenext loop rs.close %>

<% set rs = nothing conn.close set conn = nothing %>