关于ASP登陆界面的问题

来源：百度知道 编辑：UC知道 时间：2024/06/24 05:22:46
登陆成功，用户名和密码错误时弹出窗口要怎么写？
可以给我个完整的登陆页面源代码吗
在哪里下- -

<%
aad=request.form("用户名")
aps=request.form("密码")
if aad="" and aps="" then
response.Redirect"admin.asp"
response.end
end if
%>
<%
set rs=server.createobject("adodb.recordset")
rs.open "select * from [表] where aadmin='"&aad&"'and apassword='"&aps&"'",conn,1,3
if not rs.EOF then
session("sadmin")=rs("aadmin")
session("uptime")=rs("up_time")
rs("up_time")=year(now())&"-"&right(("0"&month(now())),2)&"-"&right(("0"&day(now())),2)&" "&hour(now)&":"&minute(now)&":"&second(now)
session("upip")=rs("up_ip")
rs("up_ip")=(Request.ServerVariables("REMOTE_ADDR"))
session("qx")=rs("qx")
rs.update