<!--#include file="conn.asp" -->
<%
if len(Server.Htmlencode(Request("admin")))>21 or len(Server.Htmlencode(Request("admin")))="" then call loginerr()
if len(Server.Htmlencode(Request("adminpass")))>21 or len(Server.Htmlencode(Request("admin")))="" then call loginerr()
Set rs=Server.CreateObject("ADODB.Recordset")
sql="select * from login where id=1"
rs.open sql,conn,1,1
if rs("admin")=Server.Htmlencode(Request("admin")) then
if rs("adminpass")=Server.Htmlencode(Request("adminpass")) then
session("0dsj_diary")=Request("admin")
else
call loginerr()
end if
else
call loginerr()
end if
call closeconn()
sub loginerr()
response.write "<script language=javascript>alert('对不起,用户密码不正确,请重试!')</script>"
response.write "<script language=javascript>history.back(-1);</script>"
response.end
end sub
Response.write "<script language=javascript>alert('欢迎" & Request("admin") & "登陆!')</script>"
response.write "<br><br><br><br><br><br><br>"
response.write "<center style='font-size:9pt'>两秒自动转入日记页面,如不能转入请<a href='index.asp'>点击这里</a></center>"
%>
<meta http-equiv="refresh" content="1;URL='index.asp'">