您现在的位置是:网站首页> 编程资料编程资料
如何编写一个最简单的聊天程序?_编程10000问_
2023-05-25
137人已围观
简介 如何编写一个最简单的聊天程序?_编程10000问_
chat.html
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() %>
<% 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
%>
<% End Sub %>
<% Sub NewUser() %>
<%
AA=Request.form("Name")
AA=server.htmlencode(AA)
Session("AA")=AA
%>
<% End Sub %>
[1]
