Migrar funcion JavaScript a función jQuery

[combuilder]

Voy a poner listing.asp.

Para usuarios:

Código:

	<!-- #include file="../inc/vbfunctions.asp" -->

<% On Error Resume Next
Response.Buffer = False
bBotonesDePagina = True <!-- Cuadro de Botones para PAGINAS -->
bWithRefresh = True <!-- Botón de Refrescar ON-OFF -->
varColSpan = 6
iRecPerPage = 10

wAnc = 80

sTabla = "Usuarios"
sCampoID = "idUsuario"
sCampoDesc = "Usuario"
CampoBusqueda2 = ""
totFieldCount = 0
sIdShow = Request(sCampoID)

sSQLOrden = " ORDER BY Usuario ASC"

' SEARCH '
			sWHERE = Request.QueryString("sssUsuario")
			sWHERE5 = sWHERE

			sWHERE2  = Request.QueryString
			if len(sWHERE) > 0 then
				sWHERE2 = "&sssUsuario=" & sWHERE
				sWHERE = " WHERE Usuario LIKE '" & sWHERE & "%'"
			else
				sWHERE2 = ""
			End if

If Request.QueryString("NAV") = "" Then
	intPage = 1
Else
	intPage = Request.QueryString("NAV")
End If

	SqlSelect = "SELECT * from " & sTabla & " " & sWHERE & sSQLOrden

	Set adoConnection = server.CreateObject("ADODB.Connection")
	Set AdoRS = server.CreateObject("ADODB.Recordset")

	adoConnection.Open sCadenaConexion
		if bMySQL then adoConnection.Execute UseDatabase

bAddNewDefault = True
bViewDefault = True
bEditDefault = True
bDeleteDefault = True
%>
<!-- #include file="../inc/permisos.asp" -->
<%

		AdoRS.ActiveConnection = AdoConnection
		AdoRS.CursorLocation = 3
		AdoRS.CursorType = 3
		AdoRS.Open SqlSelect
		AdoRS.PageSize = iRecPerPage
		AdoRS.CacheSize = AdoRS.PageSize
		intPageCount = AdoRS.PageCount
		intRecordCount = AdoRS.RecordCount

If intRecordCount = 0 Then
	sNo = "Sin datos que mostrar!"
else

		If CInt(intPage) > CInt(intPageCount) Then intPage = intPageCount
		If CInt(intPage) <= 0 Then intPage = 1
		AdoRS.AbsolutePage = intPage
		intStart = AdoRS.AbsolutePosition
			If CInt(intPage) = CInt(intPageCount) Then
				intFinish = intRecordCount
				Else
				intFinish = intStart + (AdoRS.PageSize - 1)
			End If
End If %>



		<br>
	   	<table id="tablatitulo">
				<tr>
					<td class="titulo">Los Usuarios</td>
				    <% if bAddNew then %>
					    <td id="addnew">
                        <!-- a href="#second" OnClick="JavaScript:cargaSolapa('second','<%=sTabla%>/add.asp?<%=sVED%>')">Nuevo Usuario</a -->Nuevo User</td>
				    <% End if %>
				    <%if bWithRefresh Then %>
					    <td id="refrescar"><center><a href="#main" OnClick="JavaScript:cargaSolapa('main','<%=sTabla%>/listing.asp?<%=sVED%>')">Refrescar</a></center></td>
				    <% End if %>
			  	</tr>
	    </table>
<br>

<hr>

<table id="tablamaestra">
<thead>
	      <tr>

			  <td>Admin</td>

			  <td>Escritura</td>

			  <td>Usuario</td>


	        <% If bView then %>
            <td width="<%=wAnc%>">Ver</td>
	        <% End if
	        If bEdit then %>
	        <td width="<%=wAnc%>"><div align="center">Editar</div></td>
	        <% End if
	        If bDelete then %>
	        <td width="<%=wAnc%>">Eliminar</td>
	        <% End if %>
          </tr>
</thead>
<tbody>
          <% if len(sNo) > 0 then %>
          <tr>
            <td colspan="<%=varColSpan%>"><i>
              <% response.write sNo %>
            </i></td>
          </tr>
          <%else %>
          <%bColor = sColor1
			  For intRecord = 1 To AdoRS.PageSize%>
          <%
    sidUsuario = kEB
    If AdoRS("idUsuario") <> "" Then sidUsuario = RemoveAcute(AdoRS("idUsuario"))


         if AdoRS.Fields("esadmin") = -1 then
               sesadmin = "Si"
               else
               sesadmin = "No"
         end if
      
         if AdoRS.Fields("escritura") = -1 then
               sescritura = "Si"
               else
               sescritura = "No"
         end if
      
    susuario = kEB
    If AdoRS("usuario") <> "" Then susuario = RemoveAcute(AdoRS("usuario"))

%>

          <tr>
            <% vidUsuario = AdoRS("idUsuario").Value %>
			            <!-- Texto para campos Boleanos -->
		            <!-- %If AdoRS("camposino") then %>
							SI - <img src="../res/si.gif">
							< else >
							NO - <img src="../res/no.gif">
					< End if % -->


			    <td><%=sEsAdmin%></td>

			    <td><%=sEscritura%></td>

			    <td><%=sUsuario%></td>


            <% If bView then %>
            <td>
            <a href="#second" OnClick="JavaScript:cargaSolapa('second','<%=sTabla%>/view.asp?<%=sCampoID%>=<%=sidUsuario%>&<%=sVED%>')">
            	<img src="inc/view.gif" alt="Ver" width="17"></a></td>
            <% End if
	        If bEdit then %>
            <td>
            <a href="#second" OnClick="JavaScript:cargaSolapa('second','<%=sTabla%>/update.asp?<%=sCampoID%>=<%=sidUsuario%>&<%=sVED%>')">
            	<img src="inc/update.gif" alt="Actualizar"></a></td>
			<% End if
	        If bDelete then %>
            <td>
            	<a href="#second" OnClick="JavaScript:cargaSolapa('second','<%=sTabla%>/delete.asp?<%=sCampoID%>=<%=sidUsuario%>&<%=sVED%>')">
            		<img src="inc/delete.gif" alt="Borrar"></a></td>
            <% End if
             AdoRS.MoveNext

				If AdoRS.EOF Then Exit For
			Next%>
          </tr>
          <% end if %>
</tbody>


<tfoot>
	<!-- Parte final de la TablaMaestra -->
</tfoot>
        </table>

	    <% AdoRS.Close
				Set AdoRS = Nothing
				adoConnection.Close
				Set adoConnection = Nothing %>
      <br></td>
</tr>

<tr>
	  <td>
<% If bBotonesDePagina Then %>
<form method="GET" action="JavaScript:cargaSolapaPag('main','<%=sTabla%>/listing.asp?<%=TempString%><%=sWHERE2%>&<%=sVED%>')">
		<center>
				<%if intRecordCount > 0 then
					TempString = "b1=Submit"
					If CInt(intPage) = 1 Then 	%>
							<img src="inc/prev_off.gif" width="25">
					<%else %>
							<a href="#main" OnClick="JavaScript:cargaSolapa('main','<%=sTabla%>/listing.asp?<%=TempString%>&NAV=1<%=sWHERE2%>&<%=sVED%>')">
							<img src="inc/prev_on.gif" width="25"></a>
					<% End if

					If CInt(intPage) > 1 Then%>

						<a href="#main" OnClick="JavaScript:cargaSolapa('main','<%=sTabla%>/listing.asp?<%=TempString%>&NAV=<%=intPage - 1%><%=sWHERE2%>&<%=sVED%>')">
							<img src="inc/prev_on.gif" width="25"></a>
						<%else %>
						<img src="inc/prev_off.gif" width="25">
					<%End If

		Response.Write "Registros " & intStart & " a " & intFinish & " de " & intRecordCount %>

		- Ir a P&aacute;gina <input type="text" id="spage" name="spage" size="3" value="<%=intPage%>">

		<%If CInt(intPage) < CInt(intPageCount) Then%>
								<a href="#main" OnClick="JavaScript:cargaSolapa('main','<%=sTabla%>/listing.asp?<%=TempString%>&NAV=<%=intPage + 1%><%=sWHERE2%>&<%=sVED%>')">
									<img src="inc/post_on.gif" width="25"></a>
							<%else %>
								<img src="inc/post_off.gif" width="25">
							<% End If
							If CInt(intPage) = intPageCount Then %>
								<img src="inc/post_off.gif" width="25">
							<%else %>
							<a href="#main" OnClick="JavaScript:cargaSolapa('main','<%=sTabla%>/listing.asp?<%=TempString%>&NAV=<%=intPageCount%><%=sWHERE2%>&<%=sVED%>')">
									<img src="inc/post_on.gif" width="25"></a>
					<% End if

				End if%>
</center>
</form>

<% End if %>
	  </td>

	</tr>


<div id="second">
	<!-- #include file="../inc/listingerror.asp" -->

<%	if sIdShow > 0 then %>
	<!-- #include file="../Usuarios/view.asp" -->
<% End if %>

</div>