请教一个网上可视聊天软件的程序设计及代码说明,是web技术ASP部分的实例
发布网友
发布时间:2022-04-28 13:38
我来回答
共1个回答
热心网友
时间:2023-10-10 20:43
6-1-1.asp的文件代码:
<html>
<head><titel>网上聊天</title><meta http-equiv="content-type"
content="text/html; charset=gb2312"></head>
<body>
<font face="华文彩云" color="#FFFFFF" size="6"><font face="黑体">网络可视聊天
</font></font>
<table width="780" border="0" align="center" cellpadding="0" cellpadding="0">
<tr><td width="338"><img src="topleet.jpg" width="338" height="128"></th>
<td widht="442" background="topright.jpg"><div align="center"><font
color="#FF0000" size="7" face="楷体"_GB2312"><strong>网络视频聊天</strong>
</font></div></td></tr></table>
<table width="780" bordercolor="#FFFFFF"><td width="263" bordercolor="#FFFFFF">
<object widht="32" height="32" id="netmeeting"
classid="clsid:3e9bf2d-7a79-11d2-9334-0000f875ae17" ><br><br></object>
<td widht="414" height="229" bordercolor="#FFFFFF">
<p align="center"><font color="#000000">--交谈区--</center>
<% '处理输入
'if request.servervariables(request_method")="get" then
'response.write request.servervariables("request_method")
if len(request("txtwho"))>0 then
session("mywho")=request("txtwho")
end if
application.lock
mycounter=application("gicounter")
mychats=application("gachats")
if mycounter>8 then
mycounter=0
end if
mychats(mycounter)=session("mywho")&":"&request("txttalking")
'response.write mychats(mlcounter)
mycounter=mycounter+1
application("gicounter")=mycounter
'response.write application("gicounter")
application("gachats")=mychats
application.unlock
'end if
'将交谈内容写人交谈区
if application("gicounter")=0 then
temtalking=mychats(0)
Else
for x=0 to application("gicounter")-1
temptalking=temptalking&"<br>"&mychats(x)
next
end if
%>
<% response.write temptalking %>
</font>
<font color="FFFFFF"><hr size="1" width="90%" color="FFFFFF"></font>
<p> </p><p><font color="#FFFFFF"></font></p><font color="#ffffff">
<form method="post" action="6-1-1.asp">
<p align="center"><font color="#000000">请输入谈话内容: </font>
<font color="#FFFFFF">
<input type="text" name="txttalking" size"38"></font><br><br>
<font color="#000000">请输入您的名字: </font>
<input type="text" name="txtwho" size="20" value="<%=session("mywho")%>">
</font></p><p align="center">
<input type="submit" value="提交内容" name="B1">
<input type="reset" value="我要重写" name="B2"></p>
</font>
</font><td width="47" bordercolor="#FFFFFF">
</table>
<table width=782" border="0" align="center" cellpadding="0" cellpadding="0">
<tr><td width="821"><img src="bottom.jpg" width="780" height="72"></td></tr>
</table>
</body>
热心网友
时间:2023-10-10 20:43
6-1-1.asp的文件代码:
<html>
<head><titel>网上聊天</title><meta http-equiv="content-type"
content="text/html; charset=gb2312"></head>
<body>
<font face="华文彩云" color="#FFFFFF" size="6"><font face="黑体">网络可视聊天
</font></font>
<table width="780" border="0" align="center" cellpadding="0" cellpadding="0">
<tr><td width="338"><img src="topleet.jpg" width="338" height="128"></th>
<td widht="442" background="topright.jpg"><div align="center"><font
color="#FF0000" size="7" face="楷体"_GB2312"><strong>网络视频聊天</strong>
</font></div></td></tr></table>
<table width="780" bordercolor="#FFFFFF"><td width="263" bordercolor="#FFFFFF">
<object widht="32" height="32" id="netmeeting"
classid="clsid:3e9bf2d-7a79-11d2-9334-0000f875ae17" ><br><br></object>
<td widht="414" height="229" bordercolor="#FFFFFF">
<p align="center"><font color="#000000">--交谈区--</center>
<% '处理输入
'if request.servervariables(request_method")="get" then
'response.write request.servervariables("request_method")
if len(request("txtwho"))>0 then
session("mywho")=request("txtwho")
end if
application.lock
mycounter=application("gicounter")
mychats=application("gachats")
if mycounter>8 then
mycounter=0
end if
mychats(mycounter)=session("mywho")&":"&request("txttalking")
'response.write mychats(mlcounter)
mycounter=mycounter+1
application("gicounter")=mycounter
'response.write application("gicounter")
application("gachats")=mychats
application.unlock
'end if
'将交谈内容写人交谈区
if application("gicounter")=0 then
temtalking=mychats(0)
Else
for x=0 to application("gicounter")-1
temptalking=temptalking&"<br>"&mychats(x)
next
end if
%>
<% response.write temptalking %>
</font>
<font color="FFFFFF"><hr size="1" width="90%" color="FFFFFF"></font>
<p> </p><p><font color="#FFFFFF"></font></p><font color="#ffffff">
<form method="post" action="6-1-1.asp">
<p align="center"><font color="#000000">请输入谈话内容: </font>
<font color="#FFFFFF">
<input type="text" name="txttalking" size"38"></font><br><br>
<font color="#000000">请输入您的名字: </font>
<input type="text" name="txtwho" size="20" value="<%=session("mywho")%>">
</font></p><p align="center">
<input type="submit" value="提交内容" name="B1">
<input type="reset" value="我要重写" name="B2"></p>
</font>
</font><td width="47" bordercolor="#FFFFFF">
</table>
<table width=782" border="0" align="center" cellpadding="0" cellpadding="0">
<tr><td width="821"><img src="bottom.jpg" width="780" height="72"></td></tr>
</table>
</body>