chkadmin.asp

站完全依据SEO技术建立

<%dbdns="../"%>
<!--#include file="../inc/conn.asp"-->
<!--#include file="../inc/md5.asp"-->
<!--#include file="../inc/SF_Sql.asp"-->
<%	nick=replace(trim(request("user")),"'","")
password=md5(replace(trim(Request("pass")),"'",""))
regjm=replace(trim(Request("regjm")),"'","")
regjm1=replace(trim(Request("regjm1")),"'","")

if nick="" then
response.write "<script>alert('用户登录出错，下面是产生错误的可能原因：\n\n·请输入用户名');history.go(-1);</Script>"
Response.End
elseif password="" then
response.write "<script>alert('用户登录出错，下面是产生错误的可能原因：\n\n·请输入用户密码');history.go(-1);</Script>"
Response.End
elseif regjm1="" then
response.write "<script>alert('用户登录出错，下面是产生错误的可能原因：\n\n·请输入认证码');history.go(-1);</Script>"
Response.End
elseif regjm<>regjm1 then
response.write "<script>alert('用户登录出错，下面是产生错误的可能原因：\n\n·认证码输入错误');history.go(-1);</Script>"
Response.End
end if

set rs=server.createobject("adodb.recordset")
sql="select * from SMT_yp where SMT_pass='"&password&"' and SMT_user='"&nick&"'"
rs.open sql,conn,1,1
if not(rs.bof and rs.eof) then
if rs("SMT_key1")=0 then
response.write "<script>alert('用户登录出错，下面是产生错误的可能原因：\n\n·您注册的企业已被管理员关闭,如有问题请及时和我们联系');window.open('../index.asp','_self');</Script>"
Response.End
else
conn.execute("update SMT_yp set SMT_loginhtc=SMT_loginhtc+1 where SMT_id="&rs("SMT_id"))
conn.execute("update SMT_yp set SMT_lastdate="&SMT_citytime&" where SMT_id="&rs("SMT_id"))
session("useradmin")=rs("SMT_user")
session("id")=rs("SMT_id")
session("coname")=""
if request("ction")<>"index" then
response.write"<script>window.open('"&application("cityurl")&"user/admin.asp','_parent')</script>"
else
response.redirect "../index.asp"
end if
end if
else
response.write "<script>alert('用户登录出错，下面是产生错误的可能原因：\n\n·用户名或密码错误,请重新输入');history.go(-1);</Script>"
Response.End
end if

rs.close
conn.close
set rs=nothing
set conn=nothing

%>