以下一个ASP文件，谁能给一个管理员登录的ASP代码

<%
 dim sql
 dim rs
 dim seekerrs
 dim founduser
 dim username 
 dim companyid
 dim password
 dim errmsg
 dim founderr
 founderr=false
 FoundUse=false
 username=request.form("username")
 password=request.form("password")
 if usename="" then
  response.rediect "index.asp"
 end if
 if password="" then
  response.credirect "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文件名为chklogin.asp

什么意思。

看下面应该调数据库的部分也没写。如果这都不会，找本书先去学。不学而论，扯乎？

楼上，他这个不要数据库呀，直接在源码里就验证了一个用户名和密码都是admin的用户