login.asp

又一套宾馆全站源码

<%
username=request.form("username")
psw=request.form("psw")

if Request.ServerVariables("REQUEST_METHOD") = "POST" then
set rs= server.createobject("ADODB.recordset")
rs.open "Select * from t_admin Where admin_username='" & username & "'",Application("Connect_String"),3,2

if rs.bof then 
 %>
<script language=vbscript>  
  MsgBox "错误的用户名"  
  location.href = "javascript:history.back()"  
</script>  
 <%
   elseif psw<>trim(rs("admin_psw")) then 
 %>
  <script language=vbscript>  
  MsgBox "您的密码错了！"  
  location.href = "javascript:history.back()"  
</script>  
 <%
else
  Session("user_id")=rs("admin_id")
  response.redirect("admin.asp")
 end if
end if
%>