<%checkcode=request.Form("checkcode") if checkcode=cstr(session("checkcode")) then response.Write("验证码正确") else response.Write"" end if response.write(session("checkcode")) admin_user=trim(request("admin_user")) admin_pass=trim(md5(request("admin_pass"))) set rs=server.createobject("adodb.recordset") sql="select * from admin where admin_user='"&admin_user&"'" rs.open sql,conn,1,3 if not rs.eof then if admin_pass<>rs("admin_pass") then response.write "" response.end else session("admin_user")=rs("admin_user") response.redirect "index.asp" end if else response.write "" response.end end if login_time=now() sql2="insert into admin(login_time) values('"&login_time&"')" conn.execute(sql2) rs.close conn.close set rs=nothing %>