📄 login.asp

📁 网页源码,是最好的网店代码。可以支持批量上传产品等功能。
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="../inc/md5.asp"-->
<%
dim action
action=request.querystring("action")
select case action
	case"exit"
		exitlogin()
	case"login"
		checklogin()
	case else
		main()
end select
set yxbbs=nothing

sub main()%>
<body>
<form method="post" action="?action=login">
<div class="ta" style="width:450px;margin-top:50px; margin-left: auto;margin-right: auto;">
<div class="th jz">≡ 后台管理登陆 ≡</div>
<div class="td" style="height:100px;width:442px;"><br />
<div style="margin-left:90px;height:34px">用户名称：<input name="adminname" type="text" size="22"></div>
<div style="margin-left:90px;height:34px">后台密码：<input name="password" type="password" size="22"></div>
<div style="margin-left:90px;height:34px">输入数字：<input name="passcode" type="text" size="6"> <img align="absmiddle" src="../inc/code.asp" ></div>
</div>
<div style="clear: both;"></div> <div class="tf jz"><input type="submit" class="button" value="登 陆"></div>
</div>
</form>
</body>
</html>
<%end sub
sub checklogin()
	dim adminname,adminpassword,passcode
	if yxbbs.getcookiesinfo("adminlogin",0)=>3 then Call Alert("您已经连续三次输入错误,所以暂时不能在登陆后台管理了!")
	adminname=yxbbs.fun.getstr("adminname")
	adminpassword=yxbbs.fun.getstr("password")
	passcode=yxbbs.fun.getstr("passcode")
	if not yxbbs.fun.checkname(adminname) or passcode="" then
		Call Alert("您输入的用户名或随机验证码错误!---错误操作 "&yxbbs.updatecookiesinfo("adminlogin",1)&" 次!")
	end if
	if yxbbs.execute("select name from [yx_admin] where name='"&adminname&"' and password='"&md5(adminpassword)&"'").eof or session("checkcode")<>passcode then
		session(yxbbs.cachename&"adminname")=""
		session(yxbbs.cachename&"adminpassword")=""
		session("checkcode")=""
		Call Alert("您输入的用户名不存在或密码错误!---错误操作 "&yxbbs.updatecookiesinfo("adminlogin",1)&" 次!")
	else
		session(yxbbs.cachename&"adminname")=adminname
		session(yxbbs.cachename&"adminpassword")=adminpassword
		session("checkcode")=""
		response.write "<script language=javascript>top.window.location.href='index.asp';</script>"
		response.end
	end if
end sub

sub exitlogin()
	session(yxbbs.cachename&"adminname")=""
	session(yxbbs.cachename&"adminpassword")=""
	session("checkcode")=""
	response.redirect"../default.asp"
end sub
Sub Alert(message)
	message = replace(message,"'","\'")
	Response.Write ("<script LANGUAGE='javascript'>alert('" & message & "');window.location.href='Login.Asp';</script>")
	Response.End
End Sub
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -