chat.html
<html>
<head>
<title>精彩春风之简单聊天</title>
</head>
<frameset rows="*,100">
<frame src="chatopinions.asp">
<frame src="chatform.asp">
</frameset>
</html>
chatopinions.asp
<html>
<head>
<meta http-equiv=refresh content="5;url=chatopinions.asp"></head>
<body bgcolor=ffffff>
<center>
<table border=0 width=350>
<tr><td width=50>
<% =application("a9") %></td><td width=300><% =application("b9") %>
</td></tr><tr><td>
<% =application("a8") %></td><td><% =application("b8") %>
</td></tr><tr><td>
<% =application("a7") %></td><td><% =application("b7") %>
</td></tr><tr><td>
<% =application("a6") %></td><td><% =application("b6") %>
</td></tr><tr><td>
<% =application("a5") %></td><td><% =application("b5") %>
</td></tr><tr><td width=50>
<% =application("a4") %></td><td><% =application("b4") %>
</td></tr><tr><td>
<% =application("a3") %></td><td><% =application("b3") %>
</td></tr><tr><td>
<% =application("a2") %></td><td><% =application("b2") %>
</td></tr><tr><td>
<% =application("a1") %></td><td><% =application("b1") %>
</td></tr></table>
<table border=0 width=350>
<tr><td align=right>
get your chat at <a ref="http://www.submitside.com">submitside</a>: free script.
</td></tr></table>
</center>
</body></html>
chatform.asp
<%
if request.form ("opinion")="" then
showform()
else
if session("aa")="" then
newuser()
goahead()
else
goahead()
end if
end if %>
<% sub showform() %>
<html><body bgcolor=ffffff>
<center>
<form method=post action=chatform.asp>
<table border=0><tr><td>
<% if session("aa")="" then %>
选择名字或昵称
<input type=text name=name size=20><br>
输入您的看法
<% else %>
<% =session("aa") %>
<% end if %>
<input type=text size=60 name=opinion value="<% =request.form("opinion") %>"><br>
<input type=submit value="提交">
</td><tr></table>
</form>
</center>
</body></html>
<% 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
%>
<html>
<head></head><body bgcolor=ffffff>
<center>
<form method=post action=chatform.asp>
<table border=0><tr><td>
<% =session("aa") %> <input type=text size=60 name=opinion>
<br><input type=submit value="提交">
</td></tr></table>
</form>
</center>
</body></html>
<% end sub %>
<% sub newuser() %>
<%
aa=request.form("name")
aa=server.htmlencode(aa)
session("aa")=aa
%>
<% end sub %>
[1]
如对本文有疑问, 点击进行留言回复!!
VBA处理数据与Python Pandas处理数据案例比较分析
IntelliJ IDEA2020新增禅模式和LightEdit模式
IntelliJ IDEA 2020如何设置背景图片的方法步骤
网友评论