ACCESS数据库实现用户名和密码两项验证成功后可进入到指定的页面，挺急的，高手帮帮忙

这是一个登录页面的代码，希清粗望能帮到你。
<%
if request.form("send") = "pass" then
dim name,password
name = Request.form("usr")
password=md5(replace(Request.form("pwd"),"'",""))
set rs = server.createobject("adodb.recordset")
sql="select * from admin1 where name1='"&name&"'"
rs.open sql,conn,1,1

if request("verifycode")="" then
Response.write""
'Exit Sub'
elseif session("getcode")="9999" then
session("getcode")=""
elseif session("getcode")="" then
Response.write""
elseif cstr(session("getcode"))<>cstr(trim(request("verifycode"))) then
Response.write"答携镇"

end if

if rs.eof then
response.write("")
response.end
end if
if password <> rs("password1") then
response.write("")
response.end
else
sqladd="Insert into adminlog (username,ip) values ('"&name&"','"&Request.ServerVariables("REMOTE_ADDR")&"')"
conn.Execute(sqladd)
'次数
sqlhit="update admin1 set logintime=logintime+1 where name1='"&name&"'"
conn.Execute(sqlhit)
session.TimeOut=60
session("adminname") = rs("name1")
session("login")="ming_"&date()
session("flag")=rs("privilege")
rs.close
set rs = nothing
conn.close
set conn = nothing
response.redirect "welcome.asp"
end if

end if
%>

这个似乎很简单吧 网上到处都是 自己去看看吧。

你用什么语言