<!-- #include file="conn.asp" -->
<!-- #include file="md5.asp" -->
<%Call Head()
call saycardd("管理员登录")
 dim username,password,TP,rs,sql
TP=request.form("TP")
if TP<>"" then
   username=request.form("username")
   password=md5(md5(request.form("password"),16),32)
   password1=md5(md5(request.form("password1"),16),32)
   set Rs=server.createobject("adodb.recordset")
   Sql="select * from [adminguli] where [password]='"&password&"' and [twapp_admin]='"&password1&"' and [username]='"&username&"'"
Rs.open sql,conn,1,1
if Rs.eof then
rs.close
set rs=nothing
  Call Error("登录失败！")
  end if
if password=Rs("password") and password1=rs("twapp_admin") and username=Rs("username") then
else
  Call Error("登录失败！")
  end if
   sid=rs("sid")
   lastdate=rs("lastdate")
   lastip=rs("lastip")
response.write "登录成功!"
rs.close
set rs=nothing
   response.write "<br/>上次登录时间:"&lastdate&"<br/>"
   response.write "上次登录IP:"&lastip&"<br/>"
   response.write "<a href='info.asp?saytk="&saytk&"&amp;sid="&sid&"'>进入管理</a><br/>"
conn.close
set conn=nothing
else
call xlanlj("login.asp")%>
用户:<input name="username" title="用户" type="text"/><br/>
密码:<input name="password" title="密码" type="password"/><br/>
高密:<input name="password1" title="高密" type="password"/><br/>
<%if saytk>1 then
call xltjlj("tp","1")
call xlanlj1("管理员进入")
else%>
<anchor>管理员进入<go href="login.asp" method="post" accept-charset="utf-8">
<postfield name="TP" value="1"/><postfield name="username" value="$(username)"/><postfield name="password" value="$(password)"/><postfield name="password1" value="$(password1)"/></go></anchor><br/>
<%end if
end if%>龙门网-SayTK.COM
<%call head1%>