<%
' Admin logout
if Request.QueryString("f")="logout" then
Session("uid")=""
Session("usertype")=""
Session.Abandon
end if
Dim strCookieName ' The name of the cookie we're processing
Dim strCookieValue ' The value to be assigned to it
strCookieName = "Signin"
strCookieValue = "Sign out"
strCookieValue1 = "Sign in"
if Request.Cookies(strCookieName)=strCookieValue then ' sign out
if Request.Form("hdnflag")=1 then
if session("uid")<>"" then
Response.Redirect ("Download.asp")
end if
end if
Response.Cookies(strCookieName) = strCookieValue1
Response.Cookies(strCookieName).Expires = Date() + 300
Session("uid")=""
Session("usertype")=""
Session.Abandon
'Response.Write("cookie set and kiill session")
End If
%>
<%
Set rs = Server.CreateObject("ADODB.Recordset")
if trim(Request.Form("txtUserID"))<>"" then
'Response.Write Encrypt(trim(Request.Form("txtPwd")),"100")
'Response.End
strSQL = "SELECT * FROM partner where userid='" & trim(Request.Form("txtUserID")) & "' and Pwd='" & Encrypt(trim(Request.Form("txtPwd")),"100") & "'"
'Response.Write strsql
'Response.End
rs.Open strSQL, adoCon,3,3
if not (rs.EOF and rs.BOF) then
session("uid")=rs.Fields("id")
session("usertype")=rs.Fields("usertype")
strCookieName = "Signin"
strCookieValue = "Sign out"
If strCookieName <> "" Then
If strCookieValue <> "" Then
Response.Cookies(strCookieName) = strCookieValue
Response.Cookies(strCookieName).Expires = Date() + 1
End If
End If
select case rs.Fields("UserType")
case 0
Response.Redirect("Download.asp")
case 1
Response.Redirect("Admin.asp")
case 2
Response.Redirect("Hr.asp")
end select
else
%>
<%
end if
end if
if session("uid")<>"" then
Response.Redirect("Download.asp")
end if
%>
