<%@ Language="VBScript" %>
<%
if Request.ServerVariables("Server_Name") = "localhost" then
Application("Connection1") = "Provider=Microsoft.jet.OLEDB.4.0;" & "Data Source = D:\inetpub\wwwroot\PM\db\PM.mdb" & ";USER ID=;PASSWORD=;"
else
Application("Connection1") = "Provider=Microsoft.jet.OLEDB.4.0;" & "Data Source=D:\doms\1997L6A4\dat\PM.mdb" & ";USER ID=;PASSWORD=;"
end if
' Dim V 'For Variant
' For Each V in Request.ServerVariables
' Response.Write V & "=" & Request.ServerVariables(V) & "
"
' Next
Session("SN") = Request.ServerVariables("Server_Name") ' Response.Write Session("SN")&" & "& Session("dsn")
Session("dsn") = Request.ServerVariables("APPL_PHYSICAL_PATH")
if Request.Form("user_name") = "" then
dim UserAgent
UserAgent = Request.ServerVariables("HTTP_USER_AGENT")
if inStr(UserAgent, "MSIE 4") > 0 or inStr(UserAgent, "MSIE 5") > 0 or inStr(UserAgent, "MSIE 6") then
Session("Browser") = "IE"
else
if inStr(UserAgent, "Mozilla/4") > 0 then
Session("Browser") = "NS"
Response.redirect ("http://Microsoft.com")
end if
end if
%>
To Sample:
User ID: Test
Password: Drive
<% else
' dim DatabaseConnection, Recordset1, C1, C2
Set DatabaseConnection = Server.CreateObject("ADODB.Connection")
DatabaseConnection.Open (Application("Connection1"))
Set Recordset1 = Server.CreateObject("ADODB.Recordset")
Recordset1.CursorType = 1
Recordset1.CursorLocation = 2
Recordset1.LockType = 3
Recordset1.ActiveConnection = DatabaseConnection
C1 = "((USERS.user_name)='"&Request.Form("user_name")&"')"
C2 = "((USERS.PASSWORD)='"&Request.Form("PASSWORD")&"')"
SQL = "SELECT * FROM USERS WHERE ("&C1&" AND "&C2&" AND ((USERS.STATUS)>'0'));"
Recordset1.Open SQL, DatabaseConnection
if Recordset1.EOF then %>
<% Response.End
else
Session("USER_ID") = Recordset1("USER_ID")
Session("user_name")= Recordset1("user_name")
Session("STATUS") = Recordset1("STATUS")'(1,2); 2 = Access to 'Edit' Button
Recordset1.Close
DatabaseConnection.Close
Set DatabaseConnection = Nothing
Response.Redirect "Frame.asp"
end if
end if
%>