3.
dim conn,param,rs
set conn=server.createobject("adodb.connection")
param="driver={microsoft access driver (*.mdb)}"
conn.open param & ";dbq=" & server.mappath("psd.mdb")
sql="select*from psd where id='" & id & "' and psd='" & psd & "'"
set rs=conn.execute(sql)
if rs.eof then
checkpwd=false
else
checkpwd=true
end if
end function%>
<%
if isEmpty(session("passed")) then session("passed")=false
id=request("id")
psd=request("psd")
if id="" or psd="" then
response.write"请输入您的登录名及密码。"
elseif not checkpwd(id,psd) then
response.write"用户名或密码错误!<br>请检查你的用户名及密码然后再试一次!"
else
session("passed")=true
end if
if not session("passed") then%>
'用户输入的信息完全正确并验证通过,开始编写html代码,做一个用户登录界面。