login.asp

NT80购物系统1.0 系统说明： 1 界面美观大方

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

<%
if request("Submit")<>"" then
  set rs=server.createobject("adodb.recordset")
  sql="SELECT name,pass,daili from use 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("use")=rs("name")
	  session("daili")=rs("daili")
	  response.redirect "index.asp"
	else %>
	  错误：密码不正确
	<%end if
  end if
  rs.close
  set rs=nothing
  call connclose
end if
%>