📄 login_html.asp
字号:
<%@Language = "VBScript"%>
<%
Option Explicit
Response.Buffer = True
Response.Expires = -1000
%>
<!-- #INCLUDE FILE="inifiles.asp" -->
<!-- #INCLUDE FILE = "chatlib.asp" -->
<%
Dim vINIFile
Dim vUserName, vUserPassword
Dim vUserRoomNumber, vUserRoomPassword
Dim vCheckPassword
Dim vUserOK, vRoomOK
Dim vRoomCount, vRoomName, vRoomPassword
Dim vLoginError, vRoomError
Dim vUserArray, vMoodArray, vUserCount
Dim vCheckOp
'Is user already logged into the chat?
'If they are, send them straight there
If Session("ChatName") <> "" Then
Response.Redirect "chatroom.asp"
Response.Flush
Response.End
End If
'Load INI-file if necessary
vINIFile = Application("INIFile")
If vINIFile = "" Then
Application.Lock
vINIFile = LoadINIFile(Server.MapPath("chat_ini.asp"))
Application("INIFile") = vINIFile
Application.Unlock
End If
'Process Form?
If Request.Form("login") = "1" Then
vUserName = Request.Form("txtUserName")
vUserPassword = Request.Form("txtUserPassword")
vUserRoomNumber = CInt(Request.Form("room"))
vUserRoomPassword = Request.Form("txtRoomPassword" & vUserRoomNumber)
vUserOK = False
vRoomOK = False
'Check Room Login
vCheckPassword = INIFileValue(vINIFile, "Rooms", "Password" & vUserRoomNumber)
If UCase(Trim(vCheckPassword)) = UCase(Trim(vUserRoomPassword)) Then
vRoomOK = True
Else
vRoomError = "Incorrect Password for Room '" & INIFileValue(vINIFile, "Rooms", "Name" & vUserRoomNumber) & "'"
vRoomOK = False
End If
If vRoomOK Then
'Check User Login
Application.Lock
vUserArray = Application("ChatUsers" & vUserRoomNumber)
vMoodArray = Application("ChatMoods" & vUserRoomNumber)
vUserCount = Application("UserCount" & vUserRoomNumber)
If vUserName <> "" Then
vCheckOp = CheckOp(vUserName, vUserPassword)
If vCheckOp = "BadPassword" Then
'Incorrect Password
vLoginError = "The user password you entered was incorrect."
vUserOK = False
Else
'Password is Correct
If LogUserIn(vUserName, vUserArray, vMoodArray, vUserCount) = True Then
Session("Kicked") = "False"
If vCheckOp = "OK" Then
Session("Op") = "True"
Session("Password") = vUserPassword
Else
Session("Op") ="False"
Session("Password") = ""
End If
Session("ChatName") = vUserName
Session("RoomNo") = vUserRoomNumber
Application("ChatUsers" & vUserRoomNumber) = vUserArray
Application("ChatMoods" & vUserRoomNumber) = vMoodArray
Application("UserCount" & vUserRoomNumber) = vUserCount
AddLineToChat vUserRoomNumber, "**" & vUserName & " has arrived**"
Session("StartLine") = Application("ChatLineCount" & vUserRoomNumber)
Session("LastLine") = Application("ChatLineCount" & vUserRoomNumber)
vUserOK = True
Else
'Bad Login - user already exists
vLoginError = "That username is already in use."
vUserOK = False
End If
End If
Else
'Cannot use empty user name
vLoginError = "You must enter a valid user name."
vUserOK = False
End If
Application.Unlock
End If
If vUserOK And vRoomOK Then
Response.Redirect "chatroom.asp"
Response.Flush
Response.End
End If
Else
vUserRoomNumber = 1
End If
%>
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body bgcolor="#FFFFFF">
<b><font face="Verdana, Arial, Helvetica, sans-serif" size="+1">Chat Room Login
Page</font></b>
<form method="post" action="login_html.asp">
<%If vLoginError<>"" Then%>
<div align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#FF0000"><%=vLoginError%></font></b></div>
<%End If%>
<%If vRoomError<>"" Then%>
<div align="left"><b><font face="Verdana, Arial, Helvetica, sans-serif" color="#FF0000"><%=vRoomError%></font></b></div>
<%End If%>
<table width="500" border="0" cellspacing="0" cellpadding="2">
<tr bgcolor="#FF9933">
<td width="18"><font face="Verdana, Arial, Helvetica, sans-serif" size="-1"><b>1.</b></font></td>
<td colspan="4"><font face="Verdana, Arial, Helvetica, sans-serif" size="-1">Enter
Login Information</font></td>
</tr>
<tr>
<td width="18" bgcolor="#FFFFCC"><font face="Verdana, Arial, Helvetica, sans-serif" size="-1"></font></td>
<td bgcolor="#FFFFCC" width="96"><font face="Verdana, Arial, Helvetica, sans-serif" size="-1">Name</font></td>
<td colspan="3" bgcolor="#FFFFCC"><font face="Verdana, Arial, Helvetica, sans-serif" size="-1">
<input type="text" name="txtUserName" value="<%=vUserName%>" size="30">
</font></td>
</tr>
<tr>
<td width="18" height="20" bgcolor="#FFFFCC"><font face="Verdana, Arial, Helvetica, sans-serif" size="-1"></font></td>
<td bgcolor="#FFFFCC" width="96" height="20"><font face="Verdana, Arial, Helvetica, sans-serif" size="-1">Password<br>
<font size="-2">(operators only)</font></font></td>
<td colspan="3" height="20" bgcolor="#FFFFCC"><font face="Verdana, Arial, Helvetica, sans-serif" size="-1">
<input type="password" name="txtUserPassword" size="30">
</font></td>
</tr>
<tr>
<td width="18" height="20" bgcolor="#FFFFCC"> </td>
<td bgcolor="#FFFFCC" width="96" height="20"> </td>
<td colspan="3" height="20" bgcolor="#FFFFCC"> </td>
</tr>
<tr bgcolor="#FF9900">
<td width="18"><font face="Verdana, Arial, Helvetica, sans-serif" size="-1"><b>2.</b></font></td>
<td colspan="4" bgcolor="#FF9900"><font face="Verdana, Arial, Helvetica, sans-serif" size="-1">Select
a Room</font></td>
</tr>
<tr bgcolor="#FFCC33">
<td width="18" bgcolor="#FFFFCC"><font face="Verdana, Arial, Helvetica, sans-serif" size="-1"></font></td>
<td width="50">
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="-2">Select
</font></div>
</td>
<td><font face="Verdana, Arial, Helvetica, sans-serif" size="-2">Name</font></td>
<td width="50">
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="-2">Users</font></div>
</td>
<td width="115">
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="-2">Password</font></div>
</td>
</tr>
<%
vRoomCount = 1
Do
vRoomName = INIFileValue(vINIFile, "Rooms", "Name" & vRoomCount)
If vRoomName = "" Then Exit do
vRoomPassword = INIFileValue(vINIFile, "Rooms", "Password" & vRoomCount)
%>
<tr bgcolor="#FFFFCC">
<td width="18" bgcolor="#FFFFCC"> </td>
<td width="50" bgcolor="#FFFFCC">
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="-1">
<input type="radio" name="room" value="<%=vRoomCount%>" <%If vRoomCount=vUserRoomNumber Then Response.Write "checked"%>>
</font></div>
</td>
<td bgcolor="#FFFFCC"><font face="Verdana, Arial, Helvetica, sans-serif" size="-1"><%=Server.HTMLEncode(vRoomName)%></font></td>
<td width="50" bgcolor="#FFFFCC">
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="-1"><%=(0 + Application("UserCount" & vRoomCount))%></font></div>
</td>
<td width="115" bgcolor="#FFFFCC">
<div align="center"><font face="Verdana, Arial, Helvetica, sans-serif" size="-1">
<%If vRoomPassword<>"" Then%>
<input type="password" name="txtRoomPassword<%=vRoomCount%>" size="20">
<%Else%>
<font face="Verdana, Arial, Helvetica, sans-serif" size="-1">(not required)</font>
<%End If%>
</font></div>
</td>
</tr>
<%
vRoomCount = vRoomCount + 1
Loop
%>
<tr>
<td colspan="5" bgcolor="#FFFFCC"><font> </font></td>
</tr>
<tr bgcolor="#FF9933">
<td width="18"><font face="Verdana, Arial, Helvetica, sans-serif" size="-1"><b>3.</b></font></td>
<td colspan="4" bgcolor="#FF9900"><font face="Verdana, Arial, Helvetica, sans-serif" size="-1">Click
to Log In</font></td>
</tr>
<tr>
<td colspan="5" bgcolor="#FFFFCC">
<div align="right"> <font>
<input type="submit" name="submit" value="Log In">
</font></div>
</td>
</tr>
</table>
<input type="hidden" name="login" value="1">
</form>
</body>
</html>
<%
Response.Flush
Response.End
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -