login.asp

功能不是很全面,需要自己修改和添加.尊重作者版权,希望大家相互学习,提出意见和建议.

<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="conn.asp" -->
<%
if request.QueryString("action")="login" then
dim username,password
username=trim(request.Form("username"))
password=trim(request.Form("password"))
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from admin where username='"&username&"'",conn,1,1
if rs.eof then
  response.write "<script>alert('登录失败');history.back();</script>"
  response.end
  else
    if rs("password")<>password then
      response.write "<script>alert('登录失败');history.back();</script>"
      response.end     
     end if      
     session("admin")=username
response.write"<script>location.href='admin.html'</script>"
response.End
  end if
end if
%>