📄 enter.asp
字号:
<!-- #include virtual="/kjasp/func/DB.fun" -->
<!-- #include virtual="/kjasp/func/CCookies.fun" -->
<%
If Not IsCookiesOpen Then
ErrMsg = "本网页须使用 Cookies 功能，请先开启 Cookies!"
End If
If Request("Send") <> Empty Then
UserID = Request( "UserID" )
Password = Request( "Password" )
SQL = "Select * From Users Where UserID='" & UserID & "'"
SQL = SQL & " And Password = '" & Password & "'"
Set rs = GetSecuredMdbRecordset( "UsersPwd.mdb", SQL, "kj6688" )
If Not rs.EOF Then
Response.Cookies("Name") = rs("Name")
Response.Redirect "Chatroom.htm"
Else
ErrMsg = "用户名称或密码错误!"
End If
End If
%>
<HTML>
<BODY BACKGROUND="../b01.jpg">
<H2 ALIGN=CENTER>KJ 聊天室<HR></H2>
<H2>请先登录基本资料:</H2>
<BLOCKQUOTE>
<Form Action=Enter.asp Method=POST>
<TABLE Border=0>
<TR><TD Align=Right>用户名称：</TD>
<TD><Input Type=Text Name=UserID Value="<%=UserID%>"></TD></TR>
<TR><TD Align=Right>密码：</TD>
<TD><Input Type=Password Name=Password></TD></TR>
</TABLE>
<Input Type=Submit Name="Send" Value=" 进入聊天室 ">
</Form>
</BLOCKQUOTE>
<HR>
<FONT Color=Red><%=ErrMsg%></FONT>
</BODY>
</HTML>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -