chatlogin.asp

来自「《动态网页设计基础教程》,胡杰,科学出版社」· ASP 代码 · 共 45 行

ASP
45
字号
<HTML>
<BODY> 
<P align="center">
<%
'验证用户名是否为空
TalkerName=Trim(Request("Name"))
'如果用户名不为空,利用Session变量传递用户姓名
If Len(TalkerName)<>0 Then
Session("Name")=TalkerName
%>
<BR>
<font><b>
<font face="幼圆" size="2">
你好<%=TalkerName%>,<A href="ComeIn.asp">欢迎进入聊天室,这里是你思想飞翔的天堂</A></font> 
</b> </font>
<% 
'如果用户名为空
Else
%>
<Form action="ChatLogin.asp" methed="post">
<DIV Aglin="center">
<Center>
<TABLE border="1" width="50%">
<TR>
<TD width="100%" aglin="center">
<align="center">
<font face="幼圆" size="2">欢迎进入聊天室,请登录!</font>
</TD>
</TR>
<TR>
<TD width="100%" align="center">
<font><font size="2">你的姓名:</font></font> 
<font size="2"> </font> 
<INPUT type="text" name="Name" size="14" maxlength="10">    
<P>
<INPUT type="submit" value="进入聊天室">
</Table>
</Center>
</DIV>
</Form>
<%End If%>
</BODY>
</HTML>

⌨️ 快捷键说明

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