PageRenderTime 43ms CodeModel.GetById 17ms RepoModel.GetById 0ms app.codeStats 0ms

/Wap/User/CheckUserlogin.asp

https://github.com/joechen2010/health
ASP | 103 lines | 94 code | 6 blank | 3 comment | 0 complexity | be4a8fd8d1adc2d831d5386c0c9b2454 MD5 | raw file
    

  1. <%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>

    2. 

  2. <%

    3. 

  3. Option Explicit

    4. 

  4. Response.ContentType="text/vnd.wap.wml"

    5. 

  5. Response.Charset="utf-8"

    6. 

  6. Response.Write "<?xml version=""1.0"" encoding=""utf-8""?>" &vbcrlf

    7. 

  7. Response.Write "<!DOCTYPE wml PUBLIC ""-//WAPFORUM//DTD WML 1.1//EN"" ""http://www.wapforum.org/DTD/wml_1.1.xml"">" &vbcrlf

    8. 

  8. %>

    9. 

  9. <!--#include file="../Conn.asp"-->

    10. 

  10. <!--#include file="../KS_Cls/Kesion.CommonCls.asp"-->

    11. 

  11. <!--#include file="../KS_Cls/Kesion.Label.CommonCls.asp"-->

    12. 

  12. <!--#include file="../KS_Cls/Md5.asp"-->

    13. 

  13. <%

    14. 

  14. Dim KSCls

    15. 

  15. Set KSCls = New UserLogin

    16. 

  16. KSCls.Kesion()

    17. 

  17. Set KSCls = Nothing

    18. 

  18. 

    19. 

  19. Class UserLogin

    20. 

  20.         Private KS

    21. 

  21. 		Private UserName,PassWord,Verifycode,ExpiresDate,RndPassword

    22. 

  22. 		Private LoginVerificCodeTF

    23. 

  23. 		Private Sub Class_Initialize()

    24. 

  24. 		    Set KS=New PublicCls

    25. 

  25. 		End Sub

    26. 

  26.         Private Sub Class_Terminate()

    27. 

  27. 		    Call CloseConn()

    28. 

  28. 		    Set KS=Nothing

    29. 

  29. 		End Sub

    30. 

  30. 		Public Sub Kesion()

    31. 

  31. 			UserName=KS.R(KS.S("UserName"))

    32. 

  32. 			PassWord=KS.R(KS.S("PassWord"))

    33. 

  33. 			ExpiresDate=KS.R(KS.S("ExpiresDate"))

    34. 

  34. 			Verifycode=KS.R(KS.S("Verifycode"))

    35. 

  35. 			LoginVerificCodeTF=KS.Setting(34)

    36. 

  36. 			RndPassword=KS.R(KS.MakeRandomChar(20))

    37. 

  37. 			IF UserName="" Then

    38. 

  38. 			   Call KS.ShowError("错误提示","用户名不能为空，请输入！")

    39. 

  39. 			End IF

    40. 

  40. 		    IF PassWord="" Then

    41. 

  41. 			   Call KS.ShowError("错误提示","登录密码不能为空，请输入！")

    42. 

  42. 			End IF

    43. 

  43. 			IF Trim(Verifycode)<>Trim(Session("Verifycode")) And LoginVerificCodeTF=1 Then

    44. 

  44. 			   Call KS.ShowError("错误提示","验证码有误，请重新输入！")

    45. 

  45. 			End IF

    46. 

  46. 			

    47. 

  47. 			PassWord=MD5(PassWord,16)

    48. 

  48. 			Dim UserRS:Set UserRS=Server.CreateObject("Adodb.RecordSet")

    49. 

  49. 			 UserRS.Open "Select UserID,UserName,PassWord,Locked,GroupID,Score,LastLoginIP,LastLoginTime,LoginTimes,RndPassword,IsOnline,GradeTitle,wap From KS_User Where UserName='" &UserName & "' And PassWord='" & PassWord & "'",Conn,1,3

    50. 

  50. 			If UserRS.Eof And UserRS.BOf Then

    51. 

  51. 			   UserRS.Close:Set UserRS=Nothing

    52. 

  52. 			   Call KS.ShowError("错误提示","你输入的用户名或密码有误，请重新输入！")

    53. 

  53. 			ElseIf UserRS("Locked")=1 Then

    54. 

  54. 			   UserRS.Close:Set UserRS=Nothing

    55. 

  55. 			   Call KS.ShowError("错误提示","您的账号已被管理员锁定，请与管理员联系！")

    56. 

  56. 			ElseIF UserRS("Locked")=3 Then

    57. 

  57. 			   UserRS.Close:Set UserRS=Nothing

    58. 

  58. 			   Call KS.ShowError("错误提示","您的账号还没有激活，请注意查收您的邮箱并进行激活！")

    59. 

  59. 			ElseIF UserRS("Locked")=2 Then

    60. 

  60. 			   UserRS.Close:Set UserRS=Nothing

    61. 

  61. 			   Call KS.ShowError("错误提示","您的账号还没有通过认证！")

    62. 

  62. 			Else

    63. 

  63. 			   '登录成功，更新用户相应的数据

    64. 

  64. 			   If datediff("n",UserRS("LastLoginTime"),now)>=KS.ChkClng(KS.Setting(36)) Then '判断时间

    65. 

  65. 			      UserRS("Score")=UserRS("Score")+KS.ChkClng(KS.Setting(37))

    66. 

  66. 			   End If

    67. 

  67. 			   UserRS("LastLoginIP") = KS.GetIP

    68. 

  68. 			   UserRS("LastLoginTime") = Now()

    69. 

  69. 			   UserRS("LoginTimes") = UserRS("LoginTimes") + 1

    70. 

  70. 			   UserRS("RndPassword")= RndPassword

    71. 

  71. 			   UserRS("IsOnline")=1

    72. 

  72. 			   If KS.IsNul(UserRS("wap")) or KS.strLength(UserRS("wap")) < 32 Then UserRS("wap")= MD5(KS.MakeRandomChar(20),32)

    73. 

  73. 			   UserRS.Update

    74. 

  74. 			   '***************************************

    75. 

  75. 				on error resume next

    76. 

  76. 				UserRS("GradeTitle")=Conn.Execute("select top 1 usertitle from KS_AskGrade where score<=" & UserRS("Score") & " order by score desc")(0)

    77. 

  77. 						

    78. 

  78.                  UserRS.Update

    79. 

  79. 						

    80. 

  80. 			   

    81. 

  81. 			   

    82. 

  82. 			   Dim ToUrl

    83. 

  83. 			   ToUrl = KS.S("ToUrl")

    84. 

  84. 			   ToUrl = Replace(Replace(ToUrl,"&amp;","&"),"&","&amp;")

    85. 

  85. 			   If ToUrl = "" Then ToUrl = "Index.asp"

    86. 

  86. 			   ToUrl = KS.JoinChar(ToUrl)

    87. 

  87. 			   ToUrl = ToUrl & KS.WSetting(2) & "=" & UserRS("wap") & ""

    88. 

  88. 			   '***************************************

    89. 

  89. 			   Response.Write "<wml>" &vbcrlf

    90. 

  90. 			   Response.Write "<head>" &vbcrlf

    91. 

  91. 			   Response.Write "<meta http-equiv=""Cache-Control"" content=""no-Cache""/>" &vbcrlf

    92. 

  92. 			   Response.Write "<meta http-equiv=""Cache-Control"" content=""max-age=0""/>" &vbcrlf

    93. 

  93. 			   Response.Write "</head>" &vbcrlf

    94. 

  94. 			   Response.Write "<card title=""正在进入.."" newcontext=""true"" ontimer=""" & ToUrl & """><timer value=""3""/>" &vbcrlf

    95. 

  95. 			   Response.Write "<p align=""left"">" &vbcrlf

    96. 

  96. 			   Response.Write "登陆成功...<a href="""&ToUrl&""">马上进入</a>"

    97. 

  97. 			   Response.Write "</p>" &vbcrlf

    98. 

  98. 			   Response.Write "</card>" &vbcrlf

    99. 

  99. 			   Response.Write "</wml>"   

    100. 

  100. 			End If

    101. 

  101.         End Sub

    102. 

  102. End Class

    103. 

  103. %>
    104.