日期:2014-05-18  浏览次数:20671 次

聊天程序修改,增加私聊!
<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;

这样做,是只允许一个用户向数据库中插入数据,保证数据的安全性和完整性,以防多用户同时操作造成冲突和混乱.