小弟在程序中常会有一段输出查询结果的代码。
代码如下：
<% sql="select * from dbbase"
 rs.open sql,conn,3,1

if not ( rs.eof and rs.bof ) then
%>
<table width=90% border=1 align="center" cellpadding="2" cellspacing="0">
    <tbody>
      <tr>
    <td width="8%" align="center" bgcolor="#D6E2F8"><span class="STYLE9">字段1</span></td>
    <td width="12%" align="center" bgcolor="#D6E2F8"><span class="STYLE9">字段2</span></td>
    <td width="12%" align="center" bgcolor="#D6E2F8"><span class="STYLE9">字段3</span></td>
    <td width="9%" align="center" bgcolor="#D6E2F8"><span class="STYLE9">字段4</span></td>
    <td width="9%" align="center" bgcolor="#D6E2F8"><span class="STYLE9">字段5</span></td>
    <td width="9%" align="center" bgcolor="#D6E2F8"><span class="STYLE9">字段6</span></td>
             <%
rs.pagesize=15
curpage=Request.QueryString("curpage")
if curpage="" then
curpage=1
end if
rs.absolutepage=curpage
for i= 1 to rs.pagesize
if rs.eof then
exit for
end if
%>
   </tr>
   <% n=n+1
      ls="ls"&n
      session(ls)=rs("teller_ls")  
   
   %>
    <tr>
    <td align="center"><%=rs("one")%></td>
    <td align="center"><%=rs("two")%></td>
    <td align="center"><%=rs("three")%></td>
    <td align="center"><%=rs("four")%></td>
    <td align="center"><%=rs("five")%></td>
    <td align="center"><%=rs("six")%></td>
    </tr>
  <%
          rs.movenext
    next
                              
    if rs.recordcount >=1 then%>
    <tr valign=top >
      <td colspan="8" valign=center bgcolor="#04AC9F"  ><div align="middle">
        <div align="right">
          <%if curpage=1 then%>
          <a href="right.asp?curpage=1&条件" class="STYLE2">刷新</a>
          <%else%>
          <a href="right.asp?curpage=1&条件" class="STYLE2">首页</a>
          <%end if%>
          <%if curpage=1 then%>
          <span class="STYLE2"> 上一页</span>
          <%else%>
          <a href="right.asp?curpage=<%=curpage-1%>&条件" class="STYLE2">上一页</a>
          <%end if%>
          <%if rs.pagecount<curpage+1 then%>
          <span class="STYLE2">下一页</span>
          <%else%>
          <a href="right.asp?curpage=<%=curpage+1%>&条件" class="STYLE2"   >下一页</a>
          <%end if%>
          <%if rs.pagecount<curpage+1 then%>
          <span class="STYLE2">尾页</span>
          <%else%>
          <a href="right.asp?curpage=<%=rs.pagecount%>&条件" class="STYLE2">尾页</a>
          <%end if  
              end if   
               
                 else               
  response.Write("<script>alert('对不起，您所查找的信息不存在!');history.back(-1)</script>")     
                end if  
            
                          
  rs.close

%>
 这段代码中“字段名”和rs内容以及条件是会有变化的，其他的都是相同的，请高手帮忙，我如可以将这段代码打成一个变量，或一个函数，用到该代码时只需要改变以上三个内容，不需要每次复制这段代码。谢谢指教