📄 char_checkin.asp

📁 asp 网站开发技术介绍

💻 ASP

字号:

<%response.buffer=true%>
<Html>
<Head><Title>校友聊天室</Title>
<Meta http-equiv = "Content-Type" Content = "text/html; charset = gb2312">
<Meta name = "Keywords" content = "ljy">
</Head>
<Body>
<script Language="VBScript" runat="server">
  use_nickname=request.form("use_nickname")
 if use_nickname="" then
  response.redirect  "chat_login.asp"
 end if
if instr(application("chat_list"),use_nickname)<>0 then
 response.write "<p align=center>"
 response.write "改昵称已使用请重新输入"
 response.write "</p>"
 response.write "<p align=center><a href=chat_login.asp>单击返回</a></p>"
 response.end
end if
session("chat_name")=use_nickname
str="<option value="&use_nickname&">"
str=str&use_nickname&"</option>"
application.lock
application("chat_list")=str&application("chat_list")
application("chat_num")=application("chat_num")+1
str="<p>"
str=str&"("&time&")"
str=str & use_nickname
str=str&"进入聊天室...."
str=str &"</p>"
application("chat_words")=str&application("chat_words")
application.unlock
response.redirect "chat_main.asp"
</script>
</Body>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -