33 lines
862 B
Plaintext
33 lines
862 B
Plaintext
html "
|
|
<CENTER><TABLE CELLPADDING=0 CELLSPACING=0 border=1 bgcolor=wheat>
|
|
<TR><TD colspan=2 bgcolor=tan align=center>LOGIN</TD></TR>
|
|
<TR><TD align=right>UserName</TD><TD>"
|
|
TEXTBOX #userName, ""
|
|
html "</TR></TD><TR><TD align=right>Password:</TD><TD>"
|
|
PasswordBox #passWord, ""
|
|
|
|
html "</TD></TR><TD align=center colspan=2>"
|
|
button #si, "Signin", [doSignin]
|
|
html " "
|
|
button #ex, "Exit", [exit]
|
|
html "</TD></TR></TABLE>"
|
|
WAIT
|
|
|
|
[doSignin]
|
|
loginUserName$ = trim$(#userName contents$())
|
|
loginPassWord$ = trim$(#passWord contents$())
|
|
if (loginUserName$ = "admin" and loginPassWord$ = "admin" then
|
|
print "Login ok"
|
|
else
|
|
print "invalid User or Pass"
|
|
cls
|
|
goto [loop]
|
|
end if
|
|
|
|
print Platform$ ' OS where Run BASIC is being hosted
|
|
print UserInfo$ ' Information about the user's web browser
|
|
print UserAddress$ ' IP address of the user
|
|
|
|
[exit]
|
|
end
|