用密码验证来保护动感首页更新的实现
</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
%>
| 
