pass.asp

有没有用DELPHI做的网上评分系统啊 我急需

<% 
Option Explicit 
Dim username, password 

username = Request.FORM("username") 
password = Request.FORM("password") 

'更改你的密码 
if (username = "admin") and (password = "admin") then 
Response.Cookies("loginadmin") = "True" 
Response.Redirect("admin.asp") 
end if 

Response.Redirect("login.asp") 
%> 
'成功则进入admin.asp页面 
'失败则返回login.asp