📄 login.asp

📁 软件介绍：国内最完善功能最齐全的多级会员程序.主要功能涵盖所有多级会员管理所需,超强大会员自定义编辑功能

💻 ASP

字号:

<!--#INCLUDE FILE="conn.asp" -->
<%
if Request.Form.Count=0 then
%>

<html>
<head><title>管理登陆</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="yes2.css" rel="stylesheet" type="text/css">

</head>
<body>

<table width="500"  border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="150" align="left"></td>
<td width="350" align="right">
 
<a href="add.asp" title="新申请">我有新申请</a>&nbsp;&nbsp;  
<a href="server.asp">返回目录</a>&nbsp;&nbsp;  
</td>

</tr>
</table>
<table width="500"  border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td>&nbsp;</td>
<td><div align="right">&nbsp;</td>
</tr>
</table>

<table width="500" height="22"  border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#d8f0F8">
<tr>
<td width="500" align="center">管理登陆</td>
</tr>
</table>
<br>

<FORM action=login.asp method=POST>

<table width="300"  border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#ffffff">
<tr>
<td width="100" align="right">管理员帐号：</td>
<td><INPUT name=usernameme style="font-size: 14px" size=18 maxLength=16>
</td>
</tr>
  
<tr>
<td width="100" align="right">管理员密码：</td>
<td><INPUT maxLength=16 size=23 name=password type="password" style="font-size:9pt">
</td>         
</tr>

<tr>
<td width="100"  align="center"></td>
<td>&nbsp;&nbsp;
<input type="submit" name="imageField" value="提交" style="background-color: #FFFFFF; color: #00000E; border-style: dotted; border-width: 1">                                  
&nbsp;&nbsp;
<input type="reset" name="Submit2" value="重写" style="background-color: #FFFFFF; color: #00000E; border-style: dotted; border-width: 1">                            
</td>
</tr>
  
</table>
</form>

</body>

<%else%>
<%
Dim user
dim pwd
user=Request.Form("usernameme")
pwd=Request.Form("password")

if user=wdname then
if pwd=wdpass then
Response.write "用户登录成功"
user=""
pwd=""


response.Cookies("wdpwd")="www.yesitis.cn"
response.Cookies("wdpwd").expires=now()+100

Response.Redirect "server.asp"
%>
 
<%else
user=""
pwd=""
session("username")=""
response.write "<script language='javascript'>"                              
   response.write "alert('管理员密码无效');"                              
   response.write "history.go(-1);"                              
   response.write "</script>"                              
   Response.End
end if
else
user=""
pwd=""
session("username")=""
response.write "<script language='javascript'>"                              
   response.write "alert('管理员帐号无效');"                              
   response.write "history.go(-1);"                              
   response.write "</script>"                              
   Response.End
end if
end if
%>

<!--#include file="d.asp"-->

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -