📄 login.asp

📁 京云下载系统
💻 ASP
字号:
<%
JyDownLoginTitle="用户登陆"
if request("JyDownType")="logout" then
JyDownLoginTitle="退出登陆"
JyDownLoginMgs="成功:退出登陆成功!"
if Session("JyDownAdminName")<>"" then
Session("JyDownAdminName")  =""
Session("JyDownAdminDj")=""
response.cookies("JyDownUserSoftUrl")=""
end if
if request.cookies("JyDownUserName")<>"" then
response.cookies("JyDownUserName")  =""
response.cookies("JyDownUserDj")=""
end if
elseif request("JyDownType")="login" then
server_vv=len(Request.ServerVariables("SERVER_NAME"))
server_v1=left(Cstr(Request.ServerVariables("HTTP_REFERER")),server_vv)
server_v2=left(Cstr("http://"&Request.ServerVariables("SERVER_NAME")),server_vv)
if server_v1<>server_v2 or server_v1="" or server_v1="" then
response.write("<script>alert('错误：禁止从站点外部提交数据!.')</script>")
response.end
end if
  if request.form("user")<>"" and request.form("pwd")<>"" then
%>
<!--#include file="mdb_path_user.asp"-->
<!--#include file="config.asp"-->
<%user=replace(request("user")," ","+++ close")
  pwd=replace(request("pwd")," ","+++ close")
  set rs=server.createobject("adodb.recordset")
  rs.open "select * from UserInfo where user='"&user&"' and pwd='"&pwd&"'",conn,1,1
  if not rs.eof then
    if pwd=rs("pwd") and user=rs("user") then
      JyDownDj=rs("dj")
      if JyDownDj=0 or JyDownDj=1 or JyDownDj=2 or JyDownDj=3 then
        if rs("lock")=1 then
          JyDownLoginMgs="错误:帐号 "&user&" 已被锁定,你不能登陆!"
        else
          JyDownLoginMgs="成功:帐号 "&user&" 登录成功!"
          if JyDownDj=0 then SF="普通会员"
          if JyDownDj=1 then SF="高级会员"
          if JyDownDj=2 then SF="系统管理员"
          if JyDownDj=3 then SF="站长"
          response.cookies("JyDownUserName")=rs("user")
          response.cookies("JyDownUserDj")=rs("dj")
          if JyDownDj=2 or JyDownDj=3 then
            if rs("softurl")<>"" then
            response.cookies("JyDownUserSoftUrl")=rs("softurl")
            end if
            Session("JyDownAdminName")=rs("user")
            Session("JyDownAdminDj")=rs("dj")
            Session("JyDownAdminAdmin")=rs("admin")
          end if
        end if
      else
        JyDownLoginMgs="错误:你的用户等级错误,不能登陆,请与站长联系!"
      end if
    else
      JyDownLoginMgs="错误:用户名或密码错误!"
    end if
  else
    JyDownLoginMgs="错误:用户名或密码错误!"
  end if
  rs.close
  set rs=nothing
  conn.close
  set conn=nothing
  else
    JyDownLoginMgs="错误:用户名和密码都不能为空!"
  end if
end if
%>
<html>

<head>
<title>99软件站 - <%=JyDownLoginTitle%> - [www.99soft.com]</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<style>
td{font-size:9pt;line-height:140%} 
body{font-size:9pt;line-height:140%} 

a:link          { color: #0033CC; text-decoration: none }
a:visited       { color: #0033CC; text-decoration: none }
a:active        { color: #FF0000; text-decoration: none }
a:hover         { color: #000000; text-decoration: underline}
</style>
</head>
<body topmargin="0" leftmargin="0" bgcolor="#FFFFFF" text="#000000">
<script language=javascript src="../in_top2.js"></script>
<form method="post" action="login.asp?JyDownType=login" target="_top">
<div align="center">
<center>
<table border="0" cellpadding="2" cellspacing="1" style="border-collapse: collapse" width="300" bgcolor="#555555">
  <tr>
    <td width="100%" bgcolor="#6A6A6A"><font color="#FFFFFF"><b><%=JyDownLoginTitle%></b></font></td>
  </tr>
<%if JyDownLoginMgs<>"" then%>
  <tr>
    <td width="100%" bgcolor="#FFFFFF">
    <font color="#FF0000">·</font><%=JyDownLoginMgs%>
    <%if SF<>"" then%><br><font color="#FF0000">·</font>身份:<font color="#008080"><%=SF%></font><%
    if JyDownDj="2" or JyDownDj="3" then%>
    <br><font color="#FF0000">·</font><a href="index.asp">进入系统管理中心</a><%else
    %><br><font color="#FF0000">·</font><a href="../">返回首页</a><%end if%>
    <br><font color="#FF0000">·</font><%if webuseredit="1" then%><a href="edit.asp"><%end if%>修改个人资料</a>
    <br><font color="#FF0000">·</font><a href="login.asp?JyDownType=logout">退出登陆</a>
    <%else%><%if request("JyDownType")<>"logout" then%><br><font color="#FF0000">·</font><%if webreg="1" then%><a href="reg.asp"><%end if%>注册帐号</a><%end if%>
    <br><font color="#FF0000">·</font><a href="login.asp">重新登陆</a><%end if%></td>
  </tr>
<%else%>
  <tr>
    <td width="100%" bgcolor="#FFFFFF">
    <table border="0" cellpadding="2" cellspacing="0" style="border-collapse: collapse" width="100%">
      <tr>
        <td width="100%" align="center">用户名：<input name="user" maxlength="20" size="16"></td>
      </tr>
      <tr>
        <td width="100%" align="center">密&nbsp;&nbsp;码：<input type="password" name="pwd" maxlength="20" size="16"></td>
      </tr>
    </table>
    </td>
  </tr>
  <tr>
    <td width="100%" bgcolor="#DFDFDF">
    <p align="center"><input type="submit" name="Submit" value="登 陆">&nbsp;
    <input type="button" name="Submit1" <%if webreg="1" then%>onclick="javascript:location.href='reg.asp'"<%else%>disabled<%end if%> value="注 册"></td>
  </tr>
<%end if%>
</table>
</center>
</div>
</form>
<script language=javascript src="../in_copy2.js"></script>
</body>
</html>
⌨️ 快捷键说明

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