登录出错
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="conn.asp" -->
<!--#include file="include/md5.asp" -->
<%
sql="select * from member where username='"&trim(request("username"))&"';" '按用户名进行查询
set rs=Server.CreateObject("ADODB.Recordset")
rs.open sql,db,3,3
if not rs.eof then'如果用户名存在
if rs("password")=md5(trim(request("password"))) then'将数据库中存储的密码和用户提交的密码进行比较
session("usertype")=rs("usertype")
session("userid")=rs("userid")
session("username")=trim(request("username")) '将相关的信息写到 session 内,以便随时获取
rs.update
else '如果密码不一样
session("username")=""
session("usertype")=""
session("userid")=""
response.Write("<script>alert('用户名或密码错误!');window.location.href='customer.asp';</script>")
response.End() '清除所有与用户有关的信息,并转向到首页
end if
else '如果用户名不存在
session("username")=""
session("usertype")=""
session("userid")=""
response.Write("<script>alert('用户名或密码错误!');window.location.href='customer.asp';</script>")
response.End() '清除所有与用户有关的信息,并转向到首页
end if
rs.close
set rs=nothing
%>
老是提示'用户名或密码错误!'