alguém poderia me explicar passo a passo o que foi feito aqui .
E se possivel me ajudar a acrecentar na Paginação a opção Todos .
Unica coisa que sei dessa paginação é que ele divide em ordem alfabetica os nicks , mas eu queria colocar a opção Todos .
Se alguém se habilitar em ajudar a colocar e me explicar passo a passo o que foi feito no codigo .
Grato.
<%
Option Explicit
Dim sql,rsUsers,rsUser,username,startletter,alphabet
username = Request.Cookies("username")
startletter = Request.QueryString("startletter")
'Example of protecting a page for members only
if username = "" then
Response.Redirect("nologin.asp?page=userview.asp")
end if
'If no letter has been clicked (this is 1st visit), start displaying at letter A
if startletter = "" then
startletter = "A"
end if
%>
<!--#include file="conn.asp"-->
<%
'If 123 option is chosen, pick all records that don't start with a letter (this makes a BIG sql string)
if startletter = "nonalphabet" then
sql = "SELECT username, icon FROM users WHERE username Not Like 'a%'"
for alphabet = 98 to 122
sql = sql & " AND username Not Like '" & chr(alphabet) & "%'"
next
sql = sql & " ORDER BY username"
'Otherwise just get the users that start with the chosen letter
else
sql = "SELECT username, icon FROM users WHERE username Like '" & startletter & "%' ORDER BY username"
end if
Set rsUsers = Server.CreateObject("ADODB.Recordset")
rsUsers.Open sql, conn, 3, 3
sql = "SELECT icon FROM Users WHERE username = '" & username & "'"
Set rsUser = Server.CreateObject("ADODB.Recordset")
rsUser.Open sql, conn, 3, 3
%>
Pergunta
mestre fyoda
alguém poderia me explicar passo a passo o que foi feito aqui .
E se possivel me ajudar a acrecentar na Paginação a opção Todos .
Unica coisa que sei dessa paginação é que ele divide em ordem alfabetica os nicks , mas eu queria colocar a opção Todos .
Se alguém se habilitar em ajudar a colocar e me explicar passo a passo o que foi feito no codigo .
Grato.
<% Option Explicit Dim sql,rsUsers,rsUser,username,startletter,alphabet username = Request.Cookies("username") startletter = Request.QueryString("startletter") 'Example of protecting a page for members only if username = "" then Response.Redirect("nologin.asp?page=userview.asp") end if 'If no letter has been clicked (this is 1st visit), start displaying at letter A if startletter = "" then startletter = "A" end if %> <!--#include file="conn.asp"--> <% 'If 123 option is chosen, pick all records that don't start with a letter (this makes a BIG sql string) if startletter = "nonalphabet" then sql = "SELECT username, icon FROM users WHERE username Not Like 'a%'" for alphabet = 98 to 122 sql = sql & " AND username Not Like '" & chr(alphabet) & "%'" next sql = sql & " ORDER BY username" 'Otherwise just get the users that start with the chosen letter else sql = "SELECT username, icon FROM users WHERE username Like '" & startletter & "%' ORDER BY username" end if Set rsUsers = Server.CreateObject("ADODB.Recordset") rsUsers.Open sql, conn, 3, 3 sql = "SELECT icon FROM Users WHERE username = '" & username & "'" Set rsUser = Server.CreateObject("ADODB.Recordset") rsUser.Open sql, conn, 3, 3 %>Link para o comentário
Compartilhar em outros sites
2 respostass a esta questão
Posts Recomendados
Participe da discussão
Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.