newest.asp

来自「一个教育系统」· ASP 代码 · 共 32 行

<!--#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");
}