del_zjgs.asp

this a program about talent web database used asp and VB.

<table class="box1" cellSpacing="0" cellPadding="2" width="550" border="0">
  <tr>
    <td width="100%"><table class="zzz" cellSpacing="0" cellPadding="0" width="100%" bgColor="#E6F2FF" border="0">
<tbody>
      <tr>
        <td class="zzz" width="70%"><font color="#999999">
        
        <table class="shuang" cellSpacing="0" cellPadding="0" width="550" align="center" background="images/bg4.gif" border="0">
          <tr>
            <td vAlign="top" width="550"><table cellSpacing="1" cellPadding="1" width="550" bgColor="#666666" border="0">
<tbody>
              <tr>
                <td class="zzz" width="99%" bgColor="#EEEEEE" height="60" align="left">
            <table cellSpacing="1" cellPadding="1" width="550" bgColor="#666666" border="0">
<tbody>
<%
strsql="select uname,uid from tblmembers where dis='Y' and utype='M'  order by jdat desc,uname desc "
if trim(Request.QueryString("dif"))="s" then
key=trim(Request.QueryString("keyword"))
strsql="select uname,uid from tblmembers where dis='Y' and utype='M' and uname like '%" & key & "%' order by jdat,uname desc "
end if
rsd.Open strsql,conn,adOpenStatic
if not(rsd.EOF and rsd.BOF) then
        page=trim(Request.QueryString("page"))
        if page="" or not(isnumeric(page)) then page=1
        page=cint(page)
        rsd.PageSize=20
        rsd.CacheSize=20
        cpage=rsd.PageCount
        
        rsd.AbsolutePage=page        
while not rsd.EOF
%>
      <tr bgColor="#ffffff">
        <td class="zzz" width="100%" height="25"><img src="images/member.gif"><a href="showmember.asp?uid=<%=rsd("uid")%>"><%=rsd("uname")%></a></td>
      </tr>
<%
rsd.MoveNext
wend
rsd.Close
%>
</tbody>
</table>
<table cellSpacing="0" cellPadding="0" width="100%" align="center" border="0" height="10">
<tbody>
        <tr>
          <td bgColor="#fccb81"><font class="zzz">&nbsp;&nbsp;&nbsp;&nbsp;当前是第<%=page%>页</font></td>
          <td bgColor="#fccb81"><font class="zzz">总共有<%=cpage%>页</font></td>
          <%
          if cpage>1 then
          %>
          <%if page<>1then%>
          <td bgColor="#fccb81"><font class="zzz"><a href="zjgs.asp?<%=qstr%>page=1">第一页 </a></font></td>
          <%end if%>
          <%if page>1 then%>
          <td bgColor="#fccb81"><font class="zzz"><a href="zjgs.asp?<%=qstr%>page=<%=page-1%>">上一页 </a></font></td>
          <%end if%>
          <%if page<cpage then%>
          <td bgColor="#fccb81"><font class="zzz"><a href="zjgs.asp?<%=qstr%>page=<%=page+1%>">下一页 </a></font></td>
          <%end if%>
          <%if page<>cpage then%>
          <td bgColor="#fccb81"><font class="zzz"><a href="zjgs.asp?<%=qstr%>page=<%=cpage%>">最后一页 </a></font></td>
          <%end if%>
          <%end if%>
          <td align="right" bgColor="#fccb81"><font class="zzz">转到指定页面:</font></td>
          <td align="left" bgColor="#fccb81">
          <select name="select" id="s1" LANGUAGE="javascript" onchange="return s1_onchange()">
          <%for i=1 to cpage%>
          <option <%if i=page then Response.Write " selected "%> value="zjgs.asp?<%=qstr%>page=<%=i%>"><%=i%></option>
          <%next%>
          </select>
        </tr>
</tbody>
      </table>
      <%else
Response.Write "<table><tr><td>没有找到相应的公司，请继续搜索！</td></tr></table>"
end if%>
                </td>
              </tr>
</tbody>
            </table>
            </td>
          </tr>
        </table>
        </td>
      </tr>
    </table>
    </td>
  </tr>
</table>