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%> |
注册 登录
