<%
Set rsT = Server.CreateObject("ADODB.RecordSet")
SQLT="Select id From teacher order by id DESC"
rsT.Open SQLT,conn,1,1
do while not rsT.EOF
Set rs = Server.CreateObject("ADODB.RecordSet")
SQL="Select top 1 content,addtime,name,photo,nameid From bbs,teacher where bbs.nameid=teacher.id and nameid="&rsT("id")&" order by bbs.id DESC"
rs.Open SQL,conn,1,1
do while not rs.EOF
%>
| <%=rs("name")%> |
">more |
 " name="photo" width="80" height="80" align="absmiddle" id="photo" style="border:#FFF dotted 1px;" /> |
<%=rs("content")%> |
| <%=rs("addtime")%> |
<%
rs.MoveNext
loop
set rs=Nothing
rsT.MoveNext
loop
set rsT=Nothing
%>
