login.asp

来自「NT80购物系统1.0 系统说明： 1 界面美观大方」· ASP 代码 · 共 23 行

<!--#include file="conn.asp"-->

<%
if request("Submit")<>"" then
  set rs=server.createobject("adodb.recordset")
  sql="SELECT name,pass from admin where name='"&request("name")&"'"
  rs.open sql,conn,1,3
  if rs.bof and rs.eof then %>
    错误：用户名不存在
  <%else
    if rs("pass")=request("pass") then
	  session("admin")=rs("name")
	  response.redirect "mian.asp"
	else %>
	  错误：密码不正确
	<%end if
  end if
  rs.close
  set rs=nothing
  call connclose
end if
%>