<%
if Request.Form ("submit")<>"" then
dim errmsg
if Request.Form ("username")=username and Request.Form ("password")=password then
session("aloform")=true
response.redirect "ad_view.asp"
else
errmsg=errmsg+"
"+"用户名和密码错误!"
call error()
end if
Response.End
end if
call topjava()
%>