sk_crm_checklogin.asp

来自「为你节约成本,让你的企业在信息时代助上一臂之力!!! 真正做到无纸办公,全自动」· ASP 代码 · 共 56 行

<% @language="vbscript" %>
<!--#include file="conn.asp" -->
<!--#include file="Md5.asp"-->
<% 
response.buffer=true
Response.Expires=0
name=request("name")
pass=request("pass")
If name="" Then
Response.Write("<script>alert(""非法登陆，请确认密码的正确性！\n或者已经被管理员锁定！"");history.back();</script>")
response.end
end if
If pass="" Then
Response.Write("<script>alert(""非法登陆，请确认密码的正确性！\n或者已经被管理员锁定！"");history.back();</script>")
response.end
end if
dim rs,sql
set rs=server.createobject("adodb.recordset")
sql="select * from SK_mclass where name='"&name&"' and pass='"&md5(pass)&"'"
name=request("name")
pass=request("pass")
rs.open sql,conn,1,3
if rs.eof then
Response.Write("<script>alert(""非法登陆，请确认密码的正确性！\n或者已经被管理员锁定！"");history.back();</script>")
response.end
else
if rs("quanxian")="0" then
Response.Write("<script>alert(""非法登陆，请确认密码的正确性！\n或者已经被管理员锁定！"");history.back();</script>")
response.end
else
dd=rs("user_id")
mclass=rs("mclass_id")
quanxian=rs("quanxian")
fenye=rs("fenye")
if1=rs("if")
ming=rs("ming")
super=rs("super")
chayue=rs("chayue")
session("dd")=dd
session("pass")="wpass"
session("name")=name
session("ming")=ming
session("sk_mclass")=mclass
session("quanxian")=quanxian
session("chayue")=chayue
session("fenye")=fenye
session("waifenye")=rs("waifenye")
session("super")=super

conn.execute(sql)
end if
end if
%>
<%
Response.Redirect "SK_CRM_index.asp"
%>