|
下面的程序是阿喔動感管理通用程序，非常簡單不用解釋了吧！
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="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
%>
（出處：熱點網絡）
| 
