代码如下:
<!-- #include file=conn.asp -->
<%
Set Conn=server.createobject("ADODB.CONNECTION")
Conn.Open ConnString
set rs=server.createobject("adodb.recordset")
sql="select * from info"
rs.open sql,conn,1,1
r1=rs.recordcount
rs.close
set rs=nothing
set rs=server.createobject("adodb.recordset")
sql="select * from info where people<>'""' order by autoid desc"
rs.open sql,conn,1,1
jobnum=rs.recordcount
%>
<SCRIPT language=JavaScript src="openwin.js"></SCRIPT>
<% do while not rs.eof %>
<tr>
<td width="172" height="18" bgcolor="#EBEEF3" valign="bottom"> <%=rs("fclb")%></td>
<td width="174" height="18" bgcolor="#EBEEF3" valign="bottom"> <a href="javascript:openwin('info.asp?wymc=<%=rs("wymc")%>','top=10,left=80,width=460,height=420')"><% if len(rs("wymc"))>12 then%><%=Left(rs("wymc"),12)%>...<% else%><%=rs("wymc")%><%end if%></a></td>
<td width="72" height="18" bgcolor="#EBEEF3" valign="bottom">
<p align="center"><%=rs("addtime")%></p>
</td>
</tr>
<% c=c+1
rs.movenext
if c>=500 then exit do
loop
rs.close
set rs=nothing %>