📄 login.asp
字号:
<%@ LANGUAGE = "VBSCRIPT" %>
<% response.buffer = true %>
<html>
<head>
<title>管理员维护</title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body bgcolor="#FFFFCC">
<form method="POST" action="login.asp">
<p align="center"> </p>
<p align="center"> </p>
<p align="center"> </p>
<div align="center">
<center>
<table border="0" width="80%" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" align="center" colspan="2">
<font color="#FF0000"> </font>
</td>
</tr>
<tr>
<td width="100%" align="center" colspan="2">
<h3><font color="#FF0000"> 管 理 员 维 护</font></h3>
</td>
</tr>
<tr>
<td width="40%" align="right">Adminstor：</td>
<td width="60%"><input type="text" name="Admin" size="25" class="input_a"></td>
</tr>
<tr>
<td width="40%"> </td>
<td width="60%"> </td>
</tr>
<tr>
<td width="40%" align="right">Password：</td>
<td width="60%"><input type="password" name="Password" size="25" class="input_a"</td>
</tr>
<tr>
<td width="40%"> </td>
<td width="60%"> </td>
</tr>
<tr>
<td width="40%"> </td>
<td width="60%"><input type="submit" value=" 登录 " name="B1" class="b"> <input type="reset" value=" 重置 " name="B2" class="b"></td>
</tr>
</table>
</center>
</div>
</form>
<%
dim check
check = Trim(Request("B1"))
If check = "登录" Then
If Request("Admin") <> "Admin" Then
Response.Write "<p align='center'>用户错，请重试！</p>"
else
If Request("Password") <> "123456" Then
Response.Write "<p align='center'>密码错，请重试！</p>"
else
Response.cookies("adminok") = true
Response.Redirect "editbbs.asp"
End If
End If
%>
<%End If%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -