您现在的位置是:网站首页> 编程资料编程资料

如何编写一个最简单的聊天程序?_编程10000问_

2023-05-25 138人已围观

简介 如何编写一个最简单的聊天程序?_编程10000问_

chat.html 

</span><span style="FONT-FAMILY: 宋体; mso-ascii-font-family: 'Times New Roman'; mso-hansi-font-family: 'Times New Roman'">精彩春风之简单聊天</span><span lang="EN-US">






 

chatopinions.asp







<% =Application("A9") %>
<% =Application("B9") %>

<% =Application("A8") %>
<% =Application("B8") %>

<% =Application("A7") %>
<% =Application("B7") %>

<% =Application("A6") %>
<% =Application("B6") %>

<% =Application("A5") %>
<% =Application("B5") %>

<% =Application("A4") %>
<% =Application("B4") %>

<% =Application("A3") %>
<% =Application("B3") %>

<% =Application("A2") %>
<% =Application("B2") %>

<% =Application("A1") %>
<% =Application("B1") %>



Get your chat at Submitside: free script.


 

chatform.asp 
<% 
If Request.Form ("Opinion")="" then 
ShowForm() 
else 
  if Session("AA")="" then
  NewUser()
  GoAhead()
  else
  GoAhead()
  end if 
end if %>
<% Sub ShowForm() %>





<%  if Session("AA")="" then %>
选择名字或昵称


输入您的看法 
<% else %>
<% =Session("AA") %>
<% end if %>
">

提交
">





<% End Sub %>

<% Sub GoAhead() %>

<%
BB=Request.form("Opinion")
BB=server.htmlencode(BB)

Application.Lock
Application("B1")=Application("B2")
Application("B2")=Application("B3")
Application("B3")=Application("B4")
Application("B4")=Application("B5")
Application("B5")=Application("B6")
Application("B6")=Application("B7")
Application("B7")=Application("B8")
Application("B8")=Application("B9")
Application("B9")=BB

Application("A1")=Application("A2")
Application("A2")=Application("A3")
Application("A3")=Application("A4")
Application("A4")=Application("A5")
Application("A5")=Application("A6")
Application("A6")=Application("A7")
Application("A7")=Application("A8")
Application("A8")=Application("A9")
Application("A9")=Session("AA")
Application.Unlock
%>






<% =Session("AA") %>

提交">





<% End Sub %>

<% Sub NewUser() %>
  <%
  AA=Request.form("Name")
  AA=server.htmlencode(AA)
  Session("AA")=AA
  %>

<% End Sub %>

 

[1]

-六神源码网