<% if request("msg") <> "" then msg_list.add "requestmsg", request("msg") %>
<%
'::::::::::::::::::::::::::::::::::::::::::::::::: :::::::::::::::::::::::::::::::::::::::::
'::: generated by aspapp v1.1 --- page version - 11/30/01 1:56:46 AM
'::::::::::::::::::::::::::::::::::::::::::::::::: :::::::::::::::::::::::::::::::::::::::::
'-------------------------------- DECLARATION SECTION ----------------------------------------------
''' NOTE: global vars are declared in i_utils.asp library.
''' The i_utils.asp library also contains various subrountines for
''' formatting, user managment, general database access, error
''' handling and tree form functions.
''''''''' login
dim user_name
dim password
dim submit
dim registerlink
dim login_sql
':::::::::::::::::::::::::::::::::::: GENERAL SUBROUTINES :::::::::::::::::::::::::::::::::::::::::::::::::: :::::
sub request_login
''' request expected input parameters for this form
user_name = request("user_name")
password = request("password")
submit = request("submit")
registerlink = request("registerlink")
end sub
'::::::::::::::::::::::::::::::: REQUEST AND VALIDATION ::::::::::::::::::::::::::::::::::::::::::::
'::::::::::::::::::::::::::::::: DEFAULT FIELD VALUES ::::::::::::::::::::::::::::::::::::::::::::
sub get_defaults_login
''' set default values for this form
user_name = "guest"
password = "guest"
submit = "LOGIN"
registerlink = "click here to register"
end sub
'------------------------------- DATABASE SUBROUTINES ----------------------------------------------
'----------------------------------- MAIN -------------------------------------------------------------
''' request form keys
''' determine if search parameters are being passed
do_search = request("do_search")
'----------------------------------- ACTION CASE HANDLER --------------------------------------------
''' request action
action = lcase(request("action"))
''' action case handler
select case action
case "login"
' verify and select the user from database
''' call the do_login function in i_utils.asp
do_login
case "logout"
' remove the user from current session
session("user_id") = NULL
session("accesslevel") = NULL
'::::::::::::::::::::::::::::::::::::::::::::::::: :::::::
' custom action handler(s)
''' select 'custom actions' to specify your case statements
'::::::::::::::::::::::::::::::::::::::::::::::::: :::::::
end select
''' no action was requested, so handle the default case for each form
get_defaults_login
%>
<%
display_errs
display_msg
%>
To access forum demo:
username: guest
password: guest
To access the administration areas:
username: admin
password: admin
<TABLE style="{width:430;}">
<FORM action="login.asp" method=POST name="login">
<TR class=formtr valign=top>
<TD class=labelTD align=right>
username
</TD>
<TD class=dataTD >
<input type=text name="user_name" size= maxlength="25" value="<% =user_name%>">
</TD>
</TR>
<TR class=formtr valign=top>
<TD class=labelTD align=right>
password
</TD>
<TD class=dataTD >
<input type=password name="password" size="" maxlength="25" value="<% =password%>">
</TD>
</TR>
<TR class=formtr valign=top>
<TD class=labelTD align=right>
</TD>
<TD class=dataTD>
<input class=cmd type=submit name="submit" value="LOGIN">
</TD>
</TR>
<TR class=formtr valign=top>
<TD class=labelTD align=right>
new user?
</TD>
<TD class=dataTD >
click here to register
</TD>
</TR>
<input type=hidden name="action" value="login">
<input type=hidden name="ret_page" value="<% =request("ret_page") %>">
</FORM>
</TABLE>
<%
''' 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
on error goto 0
%>
Rispondi quotando
