login_come.asp 创想设计Flash相册 1.0源码程序 - ASP源码程序

www.gusucode.com > 创想设计Flash相册 1.0源码程序 > Photo\admin\login_come.asp
    <%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
</head>
<%
xxx=request.cookies("admin")
if xxx<>"" then 
if cint(xxx)>3 then

response.write "<script language=javascript>alert('非法！您的IP及电脑信息已被记录！返回首页！');window.location='/';</script>"
Response.end()
end if
end if
%>
<!--#include file="conn.asp"-->
<%		
passname=request.Form("passname")
password=request.Form("password")
if passname="" or password=""   then
	response.write "<script language=javascript>alert('用户名或密码为空！');history.go(-1);</script>"
	 if request.cookies("admin")="" then
				response.cookies("admin")=1
			else
				response.cookies("admin")=cint(request.cookies("admin"))+1
			end if
	response.End
end if
		set ss = server.CreateObject("ADODB.Recordset")
		sqlstring_1 = "select * from admin_admin"
		ss.open sqlstring_1,conn,1,1
		name_pass=ss("admin_name")
		word_pass=ss("admin_password")
	if passname=name_pass then
		if password=word_pass then
		session("admin")="xxycomein"
			response.write "<script language=javascript>alert('登陆成功！');window.location='index.asp';</script>"
			
		else
		    response.write "<script language=javascript>alert('登陆失败！');history.go(-1);</script>"
			if request.cookies("admin")="" then
				response.cookies("admin")=1
			else
				response.cookies("admin")=request.cookies("admin")+1
			end if
		end if
	else
		  response.write "<script language=javascript>alert('登陆失败！');history.go(-1);</script>"
		  if request.cookies("admin")="" then
				response.cookies("admin")=1
			else
				response.cookies("admin")=cint(request.cookies("admin"))+1
			end if
    end if
	
		
		%>
<body>

</body>
</html>