qylogin.asp

来自「青岛分类信息网整合企业名录.供大家分享」· ASP 代码 · 共 34 行

<!--#include file="conn.asp"-->
<%
if session("user")<>"" then
response.redirect "edit.asp"
end if

name=HtmlEncode(trim(request.form("name")))
pass=HtmlEncode(trim(request.form("pass")))
if name<>"" then
sql="select * from data where username='"&name&"'"
set rs=server.createobject("adodb.recordset")
rs.open sql,connstr,1,1
if not rs.eof then
	if pass=rs("password") then
	  if rs("mark")="1" then
	  session("user")=name
	  session("companyid")=rs("id")
	  response.redirect "edit.asp"
	  else
	  response.write "<script>alert('对不起，本企业信息正在审核中，尚无此权限！');history.back();</script>"
      response.end
	  end if
	else
	response.write "<script>alert('密码错误，或是权限尚未开通，请确认！');history.back();</script>"
	response.end
	end if
else
response.write "<script>alert('此用户不存在，请重新输入！');history.back();</script>"
response.end
end if
end if
%>