Värde i Request.ServerVariables( "AUTH_USER" )?

racceMedlem sedan juni 200029 inlägg

11 jan. 2001 19:45#1

Hej! Hittade denna koden i en newsgroup:

<%
Response.Buffer = True
Response.Clear
%>

<%

authUser = TRIM(Request.ServerVariables( "AUTH_USER" ) )
authPass = TRIM(Request.ServerVariables( "AUTH_PASSWORD" ) )

IF authUser = "" THEN
  Response.Status = "401 Not Authorized"
  Response.AddHeader "WWW-Authenticate", "Basic Realm=""SUPEREXPERT"""
  Response.End

else

dbname="customsecurity.mdb"
username = mid(authUser, separator + 1)

set conntemp=server.createobject("adodb.connection")
cnpath="DBQ=" & server.mappath(dbname)
conntemp.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath
sqltemp="select * from users where user='"
sqltemp=sqltemp & username & "'"
set rstemp=conntemp.execute(SQLTemp)
end if

If rstemp.eof then%>

 Geen user <%=username%> in database<br>
 Probeer opnieuw in te <A href='securitylogin.asp'>loggen</a>

<%response.end
end if

If rstemp("Password")=password then
 'session("name")=rstemp("user")

 response.redirect ("index.htm")
else
%>
 Password Unrecognized<br>
 Probeer opnieuw in te <A href='securitylogin.asp'>loggen</a>

<%

response.end
rstemp.close
conntemp.close
set rstemp=nothing
set conntemp=nothing
   end if
   Response.Write "</H3><HR>"
%>

<html>

<head>

<TITLE>securityloginrespond.asp</TITLE>

</head>

<body bgcolor="#FFFFFF">

</body>

</html>

Hur får man värden i Request.ServerVariables( "AUTH_PASSWORD" ) samt Request.ServerVariables( "AUTH_USER" )?

Ska man få upp en ruta på nått sätt och skriva in lösen och pass? Tror man ska det. Men hur?

//Markus