enter.asp

来自「Active Server Pages 网页制作教程看之前请传到ASP空间。或者」· ASP 代码 · 共 44 行

ASP
44 行
字号 
<!-- #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>

enter.asp - 源码说明

本页面展示了「Active Server Pages 网页制作教程看之前请传到ASP空间。或者本地用iis。或安装pws内有说明」中的 enter.asp 源码文件，采用 ASP 编程语言编写，共 44 行代码。您可以在线阅读完整代码内容，也可以返回资源详情页下载完整源码包进行本地学习和开发。

虫虫下载站收录了大量与Active相关的技术资源，包括源代码、技术文档、电路图等，是电子工程师和嵌入式开发者的专业学习平台。

⌨️ 快捷键说明

复制代码Ctrl + C
搜索代码Ctrl + F
全屏模式F11
增大字号Ctrl + =
减小字号Ctrl + -
显示快捷键?