⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 login.asp

📁 个人相册程序-------------供大家分享
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<script language="JScript" runAt="server">
var inbird=true;
</script>
<!--#include file="inc/functions.asp" -->
<script language="JScript" runAt="Server">
  var func=new birdFunc();
  var input=func.getInput();
  if(input["mode"]=="chk"){
  var login_pwd=func.MD5(input["pwd"]).toUpperCase();
  var login_user=input["user"];
  var login_scode=input["scode"];
   }
  if(Session("birdSecurityCode")==null){
      Session("birdSecurityCode")=func.randomStr(4,"0123456789");
  }else{
      if(Session("birdSecurityCode").length!=4) Session("birdSecurityCode")=func.randomStr(4,"0123456789");
  }
</script>
<%
login_strSourceFile = Server.MapPath("../config.xml")
 Set login_objXML = Server.CreateObject("Microsoft.XMLDOM")
 'Set objXML = Server.CreateObject("Microsoft.FreeThreadedXMLDOM")
 login_objXML.load(login_strSourceFile)
 If login_objXML.parseError.ErrorCode <> 0 Then 
      login_objXML.loadXML "<?xml version=""1.0"" encoding=""gb2312"" ?>"
 End If
set login_objadmin = login_objXML.documentElement.SelectSingleNode("admin")

login_url=request.servervariables("URL")
mode=trim(request.Form("mode"))
if mode="chk" then
      if login_user="" then
        Response.write "<script>alert('你还没有输入用户名!!!');history.back();</script>"
        Response.End()
      end if
      if login_pwd="" then
        Response.write "<script>alert('你还没有输入密码!!!');history.back();</script>"
        Response.End()
      end if
	  if login_scode="" or login_scode<>Session("birdSecurityCode") then
        Response.write "<script>alert('验证码输入错误!!!');history.back();</script>"
        Response.End()
      end if
	if login_user=login_objadmin.SelectSingleNode("user").text and login_pwd=login_objadmin.SelectSingleNode("pwd").text then
	session("login_user")=login_user
    else
	Response.write "<script>alert('用户名或密码错误!!!');history.back();</script>"
	Response.End()
	end if
end if
%>
<%
if session("login_user")="" then
str="<html>"
str=str & "<head>"
str=str & "<title>管理员登录--飞鸟个人相册V3.0免费版 欢迎订购会员版 qq:28928247</title>"
str=str & "<meta http-equiv='Content-Type' content='text/html; charset=gb2312'>"
str=str & "<style type='text/css'>"
str=str & "<!--"
str=str & "td {"
str=str & "font-family: Arial, Helvetica, sans-serif;"
str=str & "font-size: 12px;"
str=str & "font-style: normal;"
str=str & "line-height: normal;"
str=str & "text-decoration: none;"
str=str & "}"
str=str & ".input1 {"
str=str & "border: 1px solid #999999;"
str=str & "}"
str=str & "-->"
str=str & "</style>"
str=str & "</head>"
str=str & "<body LEFTMARGIN='0' MARGINWIDTH='0' MARGINHEIGHT='0' topmargin='20'>"
str=str & "<table width='398' height='93' border='0' align='center' cellpadding='0' cellspacing='0'>"
str=str & "<tr>"
str=str & "<td width='398' height='22' align='center' bgcolor='#006699'>&nbsp;</td>"
str=str & "</tr>"
str=str & "<tr>"
str=str & "<td height='71'>"
str=str & "<table width='100%' border='0' cellpadding='0' cellspacing='2' bgcolor='#F0F0F0'>"
str=str & "<form name='form1' method='post' action='"&login_url&"'>"
str=str & "<input type=hidden name=mode value=chk>"
str=str & "<tr>"
str=str & "<td height='25' align='left' bgcolor='#E6EEF0'>&nbsp;&nbsp;用户名:&nbsp;&nbsp;              <input name='user' type='text' class='input1'  size='10'></td>"
str=str & "</tr>"
str=str & "<tr>"
str=str & "<td height='25' align='left' bgcolor='#F2ECF2'>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;密码:&nbsp;&nbsp;&nbsp;              <input name='pwd' type='password' class='input1'  size='10'></td>"
str=str & "</tr>"
str=str & "<tr>"
str=str & "<td height='25' align='left' bgcolor='#F2ECF2'>&nbsp;&nbsp;验证码:&nbsp;&nbsp;              <input name='scode' type='text' class='input1'  size='10'><img src=""scode.asp"" alt=""验证码""></td>"
str=str & "</tr>"
str=str & "<tr>"
str=str & "<td height='25' align='center'><input type='submit' name='Submit' value='登 陆'  ></td>"
str=str & "</tr>"
str=str & "</form>"
str=str & "</table></td>"
str=str & "</tr>"
str=str & "</table>"
str=str & "</body>"
str=str & "</html>"
response.Write(str)
response.End()
end if
%>

⌨️ 快捷键说明

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