动感首页更新实现之七 ------ 密码验证篇
发表于:2007-06-30来源:作者:点击数:
标签:
下面的程序是阿喔动感管理通用程序,非常简单不用解释了吧! if username=admin and password=admin then 请记得修改两个admin分别用户名和密码! login.asp html head title管理者登陆/title link rel=stylesheet href=DOWNLOAD.CSS /head body div align=ce
下面的程序是阿喔动感管理通用程序,非常简单不用解释了吧!
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="#6699
clearcase/" target="_blank" >cc">
<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="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">
<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
%>
作者:阿喔 出处:<ASP动感在线> http://asp.on.net.cn/
(待续)
原文转自:http://www.ltesting.net