<! -- # Include file = "../conn. asp" -->
<%
Dim rs, SQL, x_name, x_pwd, x_count
If Request. Form ("do") = "OK" Then
If Request. Form ("user_name") = "" Then
Response. Write ("<script Language = 'javascript '> alert ('sorry, please enter your username! '); History. go (-1); </script> ")
Response. End ()
Else
X_name = Request. Form ("user_name ")
End If
'Indicates whether the username for the rebellion is empty!
If Request. Form ("user_pwd") = "" Then
Response. Write ("<script Language = 'javascript '> alert ('sorry, please enter your password! '); History. go (-1); </script> ")
Response. End ()
Else
X_pwd = Request. Form ("user_pwd ")
End If
'Disallow the user password to be empty!
Set rs = Server. Createobject ("adodb. recordset ")
SQL = "select * from [user] where user_name = '" & x_name & "' and user_pwd = '" & x_pwd &"'"
Rs. open SQL, conn, 1, 1
If not rs. Eof Then
Session ("s_name") = rs ("user_name ")
Session ("s_shen") = rs ("shenfen ")
Session ("s_shi") = rs ("shijian ")
Response. Redirect "infoin. asp"
Else
Response. Write ("<script language = 'javascript '> alert ('sorry, the user or password is incorrect! '); History. go (-1); </script> ")
Response. End ()
End If
Else
%>
<Title> -- & gt; system logon </title>
<Style type = "text/css">
<! --
. Zi {
Font-family: Arial, Helvetica, sans-serif;
Font-size: 10pt;
}
-->
</Style>
<P> & nbsp; </p>
<P> & nbsp; </p>
<P> & nbsp; </p>
<P> & nbsp; </p>
<Table width = "320" height = "140" border = "0" align = "center" cellpadding = "0" cellspacing = "1" bgcolor = "#33 CCFF" class = "zi">
<Tr>
<Td colspan = "2"> -- & gt; system logon </td>
</Tr>
<Form name = "form1" method = "post" action = "index. asp">
