f1.asp

很好的OA办公系统

End If
Application.Lock
Application(SESSION("CRNAME")&"OUN")=OUN
Application(SESSION("CRNAME")&"OULT")=OULT
Application(SESSION("CRNAME")&"sentences")=sentences
Application(SESSION("CRNAME")&"whotowho")=whotowho
Application(SESSION("CRNAME")&"cur")=cur
Application(SESSION("CRNAME")&"usernum")=usernum
Application.UnLock

%>


<%
sentences=Application(SESSION("CRNAME")&"sentences")
whotowho=Application(SESSION("CRNAME")&"whotowho")
cur=Application(SESSION("CRNAME")&"cur")
says=ltrim((Request("says")))
If len(says)>0 then

cur=cur+1
If cur>60 then cur=1

whotowho(cur,1)=Session("UserName")

If Request("toone")="ON" then
whotowho(cur,2)=Request("towho")
senhead="<font color=#FF0000>[悄悄话]</font>"
else
whotowho(cur,2)="大家"
senhead=""
End If

sentences(cur)=senhead&"<font color="&addwordcolor&">"&Session("UserName")&"</font>"&addsays&Request("towho")&"说：<font color="&sayscolor&">"&Server.HtmlEncode(says)&"</font><font color=#000000>("&Now&")</font>"


'---emote Beg---
If left(says,2)="//" then

myemote=Lcase(rtrim(left(says,Instr(says+" "," "))))
othersays=rtrim(right(says,len(says+" ")-Instr(says+" "," ")))

emoloc=instr(emote,myemote+" ")
If emoloc>0 then
emosay=mid(emote,emoloc+len(myemote),(instr(emoloc+len(myemote),emote,"//"))-(emoloc+len(myemote)))
emosay=Replace(emosay,"对象",Request("towho"))
sentences(cur)=senhead&"<font color="&addwordcolor&">"&Session("UserName")&"</font>"&emosay&" "&othersays&"<font color=#000000>("&Now&")</font>"
End If

If emoloc=0 or Request("towho")<>"大家" then
emoloc=instr(emote2,myemote+" ")
If emoloc>0 then
emosay=mid(emote2,emoloc+len(myemote),(instr(emoloc+len(myemote),emote2,"//"))-(emoloc+len(myemote)))
emosay=Replace(emosay,"对象",Request("towho"))
sentences(cur)=senhead&"<font color="&addwordcolor&">"&Session("UserName")&"</font>"&emosay&" "&othersays&"<font color=#000000>("&Now&")</font>"
End If
End If

End If
'---End emote---

End If
Application.Lock
Application(SESSION("CRNAME")&"sentences")=sentences
Application(SESSION("CRNAME")&"whotowho")=whotowho
Application(SESSION("CRNAME")&"cur")=cur
Application.UnLock


sentences=Application(SESSION("CRNAME")&"sentences")
whotowho=Application(SESSION("CRNAME")&"whotowho")
cur=Application(SESSION("CRNAME")&"cur")

outputstr=Empty

for i=cur+1 to 60
If len(sentences(i))>0 then
If whotowho(i,2)="大家" then
OutputStr=OutputStr&(sentences(i)&"<br>")
else
if whotowho(i,1)=Session("username") or whotowho(i,2)=Session("username") then
OutputStr=OutputStr&(sentences(i)&"<br>")
End If
End If

End If
next


for i=1 to cur
If len(sentences(i))>0 then

If whotowho(i,2)="大家" then
OutputStr=OutputStr& (sentences(i)&"<br>")
else
if whotowho(i,1)=Session("username") or whotowho(i,2)=Session("username") then
OutputStr=OutputStr& (sentences(i)&"<br>")
End If
End If

End If
next

Response.Write(outputStr)

%>
<a name="bottom"> </a>
</body>
</html>