<%Set conn = CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/db/happyland.mdb") Set Rs = Server.CreateObject("ADODB.recordset") Rs.Open "select * from hotnews order by hotsn desc", conn,1,3 %> 宏仁企業集團 GRACE T.H.W. GROUP
   
 
<% If Not Rs.Eof then %> <% SI = 0 %> <% Do While Not Rs.Eof And SI < 4 %> <% Si = SI + 1 %> <% Rs.MoveNext %> <% Loop %> <% End If %> <% for k=1 to 4-SI%> <%next%>
<%=Si%> ','','width=400,height=300')"><%=Rs("title")%>
   
  其它 ..
<% Rs.close Rs.Open "select * from emp order by e_no desc", conn,1,3 If Not Rs.Eof then %> <% SI = 0 %> <% Do While Not Rs.Eof And SI < 5 %> <% Si = SI + 1 %> <% Rs.MoveNext %> <% Loop %> <% End If %> <% for k=1 to 5-SI%> <%next%>
1
 <%=Rs("e_job")%> 需求人數<%=Rs("e_p")%>