⭐ 欢迎来到虫虫下载站! | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站

📄 send.asp

📁 [FIF]ASP互动视频VIP教程 书包
💻 ASP
字号:
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>发送消息</title>
</head>

<body>
<%
if request.QueryString("act")="send" then
  session("user")=request.Form("user")
  application.Lock()
  msg=application("msg")
  '将数组中的消息全部向前移,留出空位用来存放最新的消息
  for i=1 to 99
    msg(i)=msg(i+1)
  next
  msg(100)="[" & session("user") & "]说:" & request.Form("message") & " " & now() & "<br>"
  application("msg")=msg
  application.UnLock()
end if
%>
<form id="form1" name="form1" method="post" action="send.asp?act=send">

用户名:  
  <input name="user" type="text" id="user"  value="<%=session("user")%>"/> 
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
<input type="submit" name="Submit" value="发送" />
<br />
要说的话:
<input name="message" type="text" id="message" size="70" maxlength="127" />
</form>
  <script language="javascript"> 
 document.form1.message.focus();
  </script>
</body>
</html>

⌨️ 快捷键说明

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