newest.asp

专为各大学、函授学校以及远程教育中心向学生们发布复习材料、实验素材等课件而设计的一套专用的基于WEB的上传、下载系统

<!--#include file="conn.asp"-->
<%
homepath = "kejian/" '定义课件发布系统所在目录
rows = 10 '定义要显示的行数
showlength = 10 '定义文件标题显示的字数，超过部分将被以"..."代替

set rs = server.createobject("adodb.recordset")
sql = "select * from main,teacher where main.idofteacher=teacher.teacherid order by dateandtime desc"
rs.open sql,conn,1,1
for i = 1 to rows
 if rs.eof then exit for
 dateandtime = rs("dateandtime")
 updatedate = year(dateandtime)&"/"&month(dateandtime)&"/"&day(dateandtime)
 if len(rs("title")) > showlength then
  filetitle = left(rs("title"),showlength-2)&"..."
 else
  filetitle = rs("title")
 end if
%>
document.write("<a href=# onclick=javascript:showdetail(<%=rs("mainid")%>); title='标题：<%=rs("title")%>\n教师：<%=rs("teacher")%>  更新日期：<%=updatedate%>'><%=filetitle%></a><br>");
<%
 rs.movenext
next
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
function showdetail(id)
{
 window.open("<%=homepath%>detail.asp?id="+id,"detail","width=400,height=400,resizable=no,scrollbars=yes,menubar=no,status=no");
}