admincklogin.asp

来自「客户关系管理信息系统的源代码」· ASP 代码 · 共 13 行

<!--#include file="conn.asp"-->
<%
admin=trim(request.Form("admin"))
pw=trim(request.form("pw"))
sql="select * from admin where admin='"&admin& "'and pw='"&pw&"'"
set rs=db.execute(sql)
  if not rs.eof or not rs.bof then
  session("admin")=admin
  response.redirect "adminlogin_ok.asp"
  else
  response.redirect "error.asp?id=1"
  end if
%>