下面的程序是阿喔动感管理通用程序，非常简单不用解释了吧！
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"> <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 %>