home *** CD-ROM | disk | FTP | other *** search
/ 74.208.221.89 / 74.208.221.89.zip / 74.208.221.89 / manage / loginin.aspx < prev    next >
Text File  |  2015-02-25  |  3KB  |  64 lines
  1. <%@ Page Language="VB" Debug="true" %>
  2. <%@ Import Namespace="System.Web.Mail" %>
  3. <%@ Import Namespace="System.Net" %> 
  4. <%@ Import Namespace="System.IO" %> 
  5. <script runat="server">
  6. Dim mycon As New conValue()
  7. Dim siteid As Integer
  8. Sub page_load()
  9. If (Request.Form("siteid") = "") Then
  10. siteid = "1020"
  11. Else
  12. siteid = Request.Form("siteid")
  13. End If
  14.   mycon.Con("Select count(*) as count from sls_users where email = '" & Request.Form("email") & "' AND password = '" & Request.Form("password") & "'", 1, 2)
  15.             If (mycon.temp1 = 0) Then
  16.                 Response.Redirect("login.aspx?msg=nouser&siteid=" & Request.Form("siteid"))
  17.             End If
  18.  
  19.             Dim dname As String
  20.             dname = Request.ServerVariables("REMOTE_ADDR")
  21.             
  22.             Dim email,organization,name,name1,mobile,permissions,uid,mdomain As String
  23.             
  24.             mycon.Con("Select uid,email,crid,permissions,name,domain from sls_users where email = '" & Request.Form("email") & "' AND password = '" & Request.Form("password") & "'", 1, 1)
  25.             While mycon.sql1.Read
  26.                 email = Trim(mycon.sql1("email"))
  27.                 name = Trim(mycon.sql1("name"))
  28.                 name1 = Trim(mycon.sql1("name"))
  29.                 permissions = Trim(mycon.sql1("permissions"))
  30.                 uid = Trim(mycon.sql1("uid"))
  31.                 mdomain = Trim(mycon.sql1("domain"))
  32.             End While
  33.  
  34.  
  35.           
  36.          Response.Cookies("gen")("email") = email
  37.          Response.Cookies("gen")("cid") = siteid
  38.          Response.Cookies("gen")("permissions") = permissions
  39.          Response.Cookies("gen")("name") = name1
  40.          Response.Cookies("gen")("organization") = organization                            
  41.          Response.Cookies("gen")("edomain")    = mdomain
  42.          Response.Cookies("gen")("uid") = uid
  43.          
  44.          Response.Cookies("name").Value = name1
  45.  
  46.           Response.Cookies("cid").Value = siteid
  47.            Response.Cookies("uid").Value = uid
  48.          Response.Cookies("cust")("bg") = "nbg1"
  49.          Response.Cookies("cust")("colour1") = "#F3F3F3"
  50.          Response.Cookies("cust")("colour2") = "nbg1"
  51.          Response.Cookies("cust")("colour3") = "nbg1"
  52.             
  53.         Response.Cookies("pg")("frame1") = "None"
  54.         Response.Cookies("pg")("frame2") = "None"
  55.         Response.Cookies("pg")("frame3") = "None"
  56.         Response.Cookies("pg")("frame4") = "None"
  57.         
  58.                 
  59.                         
  60.             mycon.Con("Insert into sls_logins (crid,name,email,ipaddr,date,domain) values ('" & Request.Form("siteid") & "','" & name & "','" & Request.Form("email") & "','" & dname & "',getdate(),'" & Request.Form("edomain") & "')", 1, 3)
  61.         Response.Redirect("index.aspx")
  62.         End Sub
  63.         </Script>
  64.