下面的程序是阿喔动感管理通用程序,非常简单不用解释了吧!
if username="admin" and password="admin" then
|
请记得修改两个admin分别用户名和密码!
login.ASP
<HTML>
<head>
<title>管理者登陆</title>
<link rel="stylesheet" href=../../"DOWNLOAD.CSS">
</head>
<body>
<div align="center"><center>
<table border="0" cellspacing="1" width="90%">
<tr>
<td> <form method="post"
action="chklogin.ASP">
<table width="45%" border="1"
cellspacing="0" cellpadding="1" align="center"
bordercolordark="#ecf5ff"
bordercolorlight="#6699cc">
<tr>
<td><table
width="100%" border="0" cellspacing="1"
cellpadding="1">
<tr>
<td width="33%"
align="right" height="30">用户名:</td>
<td
width="67%"><input name="username" maxlength="20"
class="smallInput" size="20"> </td>
</tr>
<tr>
<td width="33%"
align="right" height="30">密 码:</td>
<td
width="67%"><input type="password" name="password"
maxlength="16" class="smallInput"
size=&
quot;20"> </td>
</tr>
<tr>
<td
colspan="2" height="15"></td>
</tr>
</table>
</td>
</tr>
<tr align="center">
<td
height="40">
<input type="submit" name="Submit" value="确
定" class="buttonface">
&nbsp;
<input type="reset" name="Submit2" value="重
写" class="buttonface">
</td>
</tr>
</table>
</form>
<p align="center"> </td>
</tr>
</table>
</center></div>
</body>
</HTML>
__________________________________________________________________
chklogin.ASP
<%
dim sql
dim rs
dim seekerrs
dim founduser
dim username
dim companyid
dim password
dim errmsg
dim founderr
founderr=false
FoundUser=false
username=request.form("username")
password=request.Form("password")
if username="" then
response.redirect "index.ASP"
end if
if password="" then
response.redirect "index.ASP"
end if
if username="admin" and password="admin" then
response.cookies("adminok")=true
response.redirect "manage.ASP"
else
response.redirect "index.ASP"
end if
%>
|