    <TD vAlign=top width=215 background=images/ne_left_pic03.gif>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD><IMG height=175 src="images/ne_left_pic01.gif" width=215></TD></TR></TBODY></TABLE>
      <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
        <TBODY>
        <TR>
          <TD><IMG height=30 src="images/ne_left_tt01.gif" width=215></TD></TR></TBODY></TABLE>
      <TABLE cellSpacing=0 cellPadding=5 width="92%" align=center border=0>
        <TBODY>
        <TR>
          <TD>
            <TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
              <TBODY>
			<%
			Set rs=Server.CreateObject("ADODB.RecordSet")
			rs.Open "Select top 30 * from news order by id desc",conn,1,1
			if not rs.eof then
			DIM Appeared
			Call DisRndRecord(5,rs.recordCount)'调用函数该位置显示记录
			Sub DisRndRecord(DisNum,rsBound)
			DIM i,ThisRnd
			If rsBound < DisNum Then DisNum = rsBound'记录总数小于要抽取记录条数的情况
			For i = 0 To DisNum - 1
			ThisRnd = GetRnd(rsBound)'取得一个不重复的随机数
			rs.Move(ThisRnd)'游标移动到随机数位置数读取
			%>
              <TR height="25">
                <TD><FONT color=#ff9900>·&nbsp;</FONT><A class=article01 title="<%=rs("title")%>" href="newsview.asp?id=<%=rs("id")%>" target=_blank><%=left(rs("title"),25)%></A></TD>
                <TD align=right>[<FONT color=#999999><%=rs("num")%></FONT>]</TD></TR>
			<%
			rs.Move(-ThisRnd)
			Next
			End Sub
			Function GetRnd(bound)
			DIM ranNum
			Randomize()
			ranNum=int(bound*rnd)
			If Instr(Appeared,"["&ranNum&"]") Then'产生的随机数是否出现过
			ranNum = getRnd(bound)
			End If
			Appeared = Appeared & "["&ranNum&"]"'记录已出现的随机数
			GetRnd = ranNum
			End Function	
			end if		
			%></TBODY></TABLE></TD></TR></TBODY></TABLE></TD>