ASP 程序循环问题!高手帮忙解决

来源:百度知道 编辑:UC知道 时间:2024/05/15 18:26:10
下面这段程序,怎么改成大于15条后,另起一列!!总共循环30条!
是另起一列!!请高手帮忙!谢谢!

Sub Show_Hire(topNum,ShowType,Len1,Len2)
Dim rsh,sqlh
Set rsh=Server.CreateObject("ADODB.RecordSet")
sqlh="Select Top 15 * From job_c_hire Where hire_status=1 and hire_enddate>date() order by hire_announcedate desc"
rsh.Open sqlh,conn,1,1
If Not(rsh.Eof) Then
%>
<table width="380" border="0" cellpadding="0" cellspacing="0">
<%
i=1
Do While Not rsh.Eof
hire_place=left(rsh("hire_place"),Len1)
company_name=left(rsh("hire_comname"),Len2)
%>
<tr bgcolor='#FFFFFF'>

<td width="50" height="30" align="right"><img src="images/tp0011.gif" width="9" height="15" border="0">  </td>
<td><a href="compa

Select Top 15 *

你只选择了15条阿,不可能出现换行的...
如果要换

<table width="380" border="0" cellpadding="0" cellspacing="0">
<tr>
<td>
<table>
<%
i=1
Do While Not rsh.Eof
hire_place=left(rsh("hire_place"),Len1)
company_name=left(rsh("hire_comname"),Len2)
%>
<tr bgcolor='#FFFFFF'>

<td width="50" height="30" align="right"><img src="images/tp0011.gif" width="9" height="15" border="0"> </td>
<td><a href="company/hire_info.asp?id=<%=rsh("hire_id")%>" target="_blank"><%=hire_place%></a></td>
<td><%If rsh("hire_cmember")<>"" and rsh("company_id")<>"" Then%><a href="company/com