先上代码：VB code:
<%
rs.Open "Select * from [Position]",conn,1,3
rs.MoveFirst
if not rs.eof then
rs.pagesize=5
curpage=Request.QueryString("curpage")
if curpage="" then curpage=1
end if
While Not rs.EOF
response.Write("<tr>")
response.Write("<td width='15' class=13><div align=center>></div></td>")
response.Write("<td width='450' class=13><a href=job_list_show.asp?id="&rs("编号")&" class=13>" & rs("Title") & "</a></td>")
response.Write("<td width='150' class=13>招聘人数："& rs("Number") & "人</td>")
response.Write("<td width='80' class=13>" & rs("Time") & "</td>")
response.Write("</tr>")
response.Write("<tr>")
response.Write("<td height=10 colspan=4 valign=top class=13><img src=img/ling.jpg width=694 height=4></td>")
response.Write
