Hola tengo un codigo y no me funciona la session, seguro le estoy
pifiando en algo, me podrian dar una ayudita?
Mil Gracias!!
Este es el código:
Pagina login.asp
'comienzo de session
<% response.buffer = true %>
<% if session("password")= true then
response.redirect"xelupload/form.asp"
else
if request("password")<>"" then
if request("password")= "password" then
session("password")=true
response.redirect"xelupload/form.asp"
else
response.redirect "xelupload/form.asp"
end if
end if
%>
'fin de session
<!-- #include file="i_utils.asp" -->
<%
dim user_name
dim password
dim submit
dim registerlink
dim login_form_sql
sub request_login_form
''' request expected input parameters for this form
user_name = request("user_name")
password = request("password")
submit = request("submit")
registerlink = request("registerlink")
end sub
sub validate_login_form
''' request and validate data entered from this form
user_name = trim(request("user_name"))
if user_name = "" then
error_list.add "564336","username must be specified."
b_error = true
end if
password = trim(request("password"))
if password = "" then
error_list.add "564337","password must be specified."
b_error = true
end if
submit = trim(request("submit"))
registerlink = trim(request("registerlink"))
end sub
sub get_defaults_login_form
''' set default values for this form
submit = "LOGIN"
registerlink = "click aqui para registrarte"
end sub
sub db_select_login_form
login_form_sql = "SELECT " & _
"user_name, " & _
"password FROM Users" & _
""
end sub
do_search = request("do_search")
''' request action
action = lcase(request("action"))
''' action case handler
select case action
case "login"
' verify and select the user from database
validate_login_form
do_login
case "logout"
' end the user's current session
session.abandon
end select
':: handle the default case(s) for each form (separate from action= parameter)
get_defaults_login_form
%>
<!-- #include file='i_header.asp' -->
<!-- #include file='i_menu.asp' -->
<%
display_errs
display_msg
%>
<table class='headerTable'>
<tr>
<td class='headerTD'>
Login
</td>
</tr>
</table>
<table >
<form name="login_form" action="" method="get" >
<tr>
<td class='labelTD'>username</td>
<td class='dataTD' width='80%'>
<input type=text name="user_name" size="" maxlength="" value="<% =user_name%>">
</td>
</tr>
<tr>
<td class='labelTD'>password</td>
<td class='dataTD' >
<input type=password name="password" size="" maxlength="" value="<% =password %>">
</td>
</tr>
<tr>
<td class='labelTD'></td>
<td class='dataTD' >
<input class=cmd type=submit name="submit" value="LOGIN" >
</td>
</tr>
<tr>
<td class='labelTD'>Usuario Nuevo?</td>
<td class='dataTD' >
<a href="register.asp"><% =registerlink %></a>
</td>
</tr>
<input type=hidden name="action" value="login">
</form>
</table>
<!-- #include file=i_footer.asp -->
<%
':: assure that any db resources are freed
on error resume next
rs.Close
set rs = NOTHING
cn.Close
set cn = NOTHING
user_cn.Close
set user_cn = NOTHING
end if
on error goto 0
%>
y en las paginas a la quiero proteger:
<% if session("password")= false then response.redirect "login.asp"%>
<% session.timeout = 15 %>
<%
Response.Buffer = True
%>