/default.asp

http://github.com/khaneh/Orders · ASP · 125 lines · 116 code · 5 blank · 4 comment · 18 complexity · 17eef1ac4881dac672061e8652b8806d MD5 · raw file 

    

  1. <%

    2. 

  2. response.buffer = true

    3. 

  3. 'server.transfer "beta/login.asp"

    4. 

  4. response.redirect "beta"

    5. 

  5. function sqlSafe (s)

    6. 

  6.   st=s

    7. 

  7.   st=replace(St,"'","`")

    8. 

  8.   st=replace(St,chr(34),"`")

    9. 

  9.   sqlSafe=st

    10. 

  10. end function

    11. 

  11. %>

    12. 

  12. <HTML>

    13. 

  13. <HEAD>

    14. 

  14. <meta http-equiv="Content-Type" content="text/html; charset=windows-1256">

    15. 

  15. <meta http-equiv="Content-Language" content="fa">

    16. 

  16. <style>

    17. 

  17. 	Table { font-size: 10pt;}

    18. 

  18. </style>

    19. 

  19. <TITLE>Login </TITLE>

    20. 

  20. <SCRIPT LANGUAGE="JavaScript">

    21. 

  21. <!--

    22. 

  22. var tempKeyBuffer;

    23. 

  23. function myKeyDownHandler(){

    24. 

  24. 	tempKeyBuffer=window.event.keyCode;

    25. 

  25. }

    26. 

  26. function myKeyPressHandler(){

    27. 

  27. //	alert (tempKeyBuffer)

    28. 

  28. 	if (tempKeyBuffer>=65 && tempKeyBuffer<=90){

    29. 

  29. 		window.event.keyCode=tempKeyBuffer+32;

    30. 

  30. 	}

    31. 

  31. 	else if(tempKeyBuffer==186){

    32. 

  32. 		window.event.keyCode=59;

    33. 

  33. 	}

    34. 

  34. 	else if(tempKeyBuffer==188){

    35. 

  35. 		window.event.keyCode=44;

    36. 

  36. 	}

    37. 

  37. 	else if(tempKeyBuffer==190){

    38. 

  38. 		window.event.keyCode=46;

    39. 

  39. 	}

    40. 

  40. 	else if(tempKeyBuffer==191){

    41. 

  41. 		window.event.keyCode=47;

    42. 

  42. 	}

    43. 

  43. 	else if(tempKeyBuffer==192){

    44. 

  44. 		window.event.keyCode=96;

    45. 

  45. 	}

    46. 

  46. 	else if(tempKeyBuffer>=219 && tempKeyBuffer<=221){

    47. 

  47. 		window.event.keyCode=tempKeyBuffer-128;

    48. 

  48. 	}

    49. 

  49. 	else if(tempKeyBuffer==222){

    50. 

  50. 		window.event.keyCode=39;

    51. 

  51. 	}

    52. 

  52. }

    53. 

  53. //-->

    54. 

  54. </SCRIPT>

    55. 

  55. </HEAD>

    56. 

  56. 

    57. 

  57. <BODY onLoad="document.all.UserName.focus();">

    58. 

  58. 

    59. 

  59. <font face="tahoma">

    60. 

  60. <FORM METHOD=POST ACTION="default.asp">

    61. 

  61. <div dir='rtl' align = "center" >

    62. 

  62. <!--IMG SRC="images/khaneh.jpg" WIDTH="350" HEIGHT="20" BORDER=0 ALT=""-->

    63. 

  63. 

    64. 

  64. <TABLE>

    65. 

  65. <TR>

    66. 

  66. 	<TD colspan="2" align="center"></TD>

    67. 

  67. </TR>

    68. 

  68. <TR>

    69. 

  69. 	<TD> äÇã ßÇÑÈÑ </TD>

    70. 

  70. 	<TD><INPUT TYPE="text" NAME="UserName" onkeyDown="return myKeyDownHandler();" onKeyPress="return myKeyPressHandler();"></TD>

    71. 

  71. </TR>

    72. 

  72. <TR>

    73. 

  73. 	<TD> ÑãÒ ÚÈæÑ </TD>

    74. 

  74. 	<TD><INPUT TYPE="password" NAME="Password" onkeyDown="return myKeyDownHandler();" onKeyPress="return myKeyPressHandler();"></TD>

    75. 

  75. </TR>

    76. 

  76. <TR>

    77. 

  77. 	<TD></TD>

    78. 

  78. 	<TD><INPUT style="font-family:tahoma; width:100%;" TYPE="submit" name="act" value="æÑæÏ"></TD>

    79. 

  79. </TR>

    80. 

  80. </TABLE>

    81. 

  81.  <br>

    82. 

  82. &nbsp; 

    83. 

  83. <br>

    84. 

  84. <hr>

    85. 

  85. </div>

    86. 

  86. </FORM>

    87. 

  87. <br>

    88. 

  88. <%

    89. 

  89. if request("act")="æÑæÏ" then

    90. 

  90. '	conStr="dsn=sefareshat; uid=sefadmin; pwd=5tgb; DATABASE=sefareshat"

    91. 

  91. 	'	conStr = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("kid.mdb")

    92. 

  92.     conStr = "Provider=SQLNCLI10.1;Persist Security Info=False;User ID=sefadmin;Initial Catalog=sefareshat;Data Source=(local);PWD=5tgb;"

    93. 

  93.     Set conn = Server.CreateObject("ADODB.Connection")

    94. 

  94. 	conn.open conStr

    95. 

  95. '	conn.Execute ("DELETE FROM Temp_Moein")

    96. 

  96.     

    97. 

  97.     Set RS1 = conn.Execute("SELECT * FROM [tblCSR] WHERE [UserName]='" & sqlSafe(request("UserName")) & "' AND  [Password]='" & sqlSafe(request("Password")) & "' ")

    98. 

  98.     If (RS1.EOF) Then

    99. 

  99. 		session.abandon

    100. 

  100. 	%>

    101. 

  101. 		<TABLE border='1' width='70%' align='center' cellpadding='10' >

    102. 

  102. 		<TR>

    103. 

  103. 			<td align='center' dir='rtl' bgcolor='#FF8888'>Login Incorrect&nbsp;</td>

    104. 

  104. 		</TR>

    105. 

  105. 		</TABLE>

    106. 

  106. 	<%else

    107. 

  107. 		session("ID")=RS1("CSRID")

    108. 

  108. 		conn.Close

    109. 

  109. 		response.redirect "search.asp"

    110. 

  110.     End If

    111. 

  111. 

    112. 

  112. 	conn.Close

    113. 

  113. elseif request.querystring("err")<>"" then 

    114. 

  114. %>

    115. 

  115. 		<TABLE border='1' width='70%' align='center' cellpadding='10' >

    116. 

  116. 		<TR>

    117. 

  117. 			<td align='center' dir='rtl' bgcolor='#FF8888'><%=request.querystring("err")%>&nbsp;</td>

    118. 

  118. 		</TR>

    119. 

  119. 		</TABLE>

    120. 

  120. <%

    121. 

  121. end if

    122. 

  122. %>

    123. 

  123. </font>

    124. 

  124. </BODY>

    125. 

  125. </HTML>
    126.