check.asp

业务管理系统 业务管理系统 业务管理系统 业务管理系统 业务管理系统 业务管理系统 业务管理系统

<!-- #include file="dbconn.asp" -->
<%
  dim name
  dim pass
  if (not isnull(request("name"))) then
    name=request.form("name")
    pass=request.form("pass")
  end if
  set rs=server.createobject("adodb.recordset")
  sql="select * from user where username='"&name&"' and password='"&pass&"'"
  rs.open sql,conn,3,3
  if not rs.eof and not rs.bof then
  response.cookies("flag")=true
  response.cookies("username")=rs("username")
  response.Cookies("cx")=rs("memo")
  '---------------加登录记录
  sj=now()
  set rs2=server.createobject("adodb.recordset")
  sql2="select * from login"
  rs2.open sql2,conn,3,3
  rs2.addnew
  rs2("姓名")=name
  rs2("时间")=sj
  rs2.update
  rs2.close 
  set rs2=nothing 
  '------------------
  response.redirect "main.asp"
  else
  response.redirect "index.htm"
  end if
  rs.close
  set rs=nothing
  conn.close
  set conn=nothing
%>