聊天程序修改,增加私聊!
<html>
<head>
<title>发言</title>
</head>
<body background="bg_1.jpg" topmargin="0" leftmargin="0" >
<form method="post" action="" name="form1">
发言
<input type="text" name="say" size=40>
<input type="submit" value="提问" id=submit1 name=submit1>
<br>
<a href="exit.asp" target="_top">离开</a>
</form>
<%
if request("say")<>"" then
dim say,mycolor,myemote,user_name
user_name=session("user_name")
say=Request("say")
mycolor=request("mycolor")
myemote=request("myemote")
UserIP=request.servervariables("remote_addr")
dim saystr
saystr="<small>" & user_name & UserIP & "于"& time & myemote &"说:</small>"
saystr=saystr & "<font color='" & mycolor & "'>" & say & "</font>"
application.lock
application("show")=saystr&"<br>"&application("show")
if len(application("show"))>10000 then
application("show")=mid(application("show"),1,10000)
end if
application.unlock
end if
%>
</body>
</html>
以上为全部发言的代码!如何能增加私聊,给思路或者代码!
------解决方案--------------------
Application.lock之后可以防止多用户同时修改Application的值而造成的混乱(像计数器)。
application.unlock 就是上面的反操作,解锁。
它们的用法一般是:
Application.lock;
数据库操作代码
Application.unlock;
这样做,是只允许一个用户向数据库中插入数据,保证数据的安全性和完整性,以防多用户同时操作造成冲突和混乱.