<% '---------------------------------------------------- 'http://www.majddesign.com 'info@majddesign.com '---------------------------------------------------- %> login
<% Session("UserLoggedIn") = "" If Request.Form("logine") = "check" Then CheckLogin Else ShowLogin End If %> <% Sub ShowLogin %>

  نام کاربری

 

کلمه عبور

 

 

                   
<% End Sub %> <% Sub CheckLogin if LCase(Request.Form("username")) = "madarsepahan" And LCase(Request.Form("userpwd")) = "2127" Then Session("UserLoggedIn") = "true" Response.Redirect "manager.asp" Else Response.Write("

نام کاربری و یا کلمه عبور شما اشتباه است

") ShowLogin End If End Sub %>

 

این سرویس توسط خدمات موسسه طرح برتر ارئه شده

www.majddesign.com