Home > Developer > Web Develop
Authenticate. asp
<%
Dim URL
URL = Request. QueryString
'ObtainURL.
%>
<Html>
<Body>
<Form method = post action = "/validate. asp">
<Input type = hidden name = "URL" VALUE = "<% = URL %>">
'SetURLSave to a hidden variable.
User Name:
<Input type = text name = "txtName">
Password:
<Input type = password name = "txtPassword">
<Input type = SUBMIT>
</FORM>
</Body> ReuseValidate. aspFile, read the user name and password from the database to determine whether to authorize the user.
Validate. asp
<%
Dim strUserName, strPassword
StrUserName = Request. form ("txtName ")
StrPassword = Request. form ("txtPassword ")
'Read the username and password from the form.
'Establish Database Connection...
Dim strSQL
StrSQL = "select * from ValidUsers WHERE UserName = "&_
StrUserName & "AND Password = "&_
StrPassword
'ProceedSQLQuery.
Dim rs
Set rs = Conn. Execute (strSQL)
If rs. EOF Then
'IfRecordsetNot empty,The user name is valid..
Session ("bolAuthenticated") = True
'SetBolAuthenticatedSetTrue.
Response. Redirect Request. form ("URL ")
'Pass the userURL.
Else
Response. Redirect "/notvalidated. asp
[1]
Start building with 50+ products and up to 12 months usage for Elastic Compute Service
1 on 1 presale consultation
24/7 Technical Support 6 Free Tickets per Quarter Faster Response
Alibaba Cloud offers highly flexible support services tailored to meet your exact needs.
A comprehensive suite of global cloud computing services to power your business
Payment Methods We Support
