cL=Request.Form ("cL")
E=Request.Form("E")
'W=Request.Form("W")
W="0"
'发言时间
sJ=getTime()
if Request.ServerVariables("REQUEST_METHOD")="POST" then
sC="<F>"&trim(F)&"</F><T>"&trim(T)&"</T><E>"&E&"</E><sC>"&trim(sC)&"<
/sC><cL>"
&trim(cL)&"</cL><sJ>"&sJ&"</sJ>"
else
Response.End
end if
dim c_info,c_Lid,c_Ip,u_Lid,NewLid,u_name,i
Application.Lock
c_info=Application("c_info")
c_Lid=Application("c_Lid")+1
Application("c_Lid")=c_Lid
c_Ip=(c_info(0)+6) mod 240
c_info(0)=c_Ip
c_info(c_Ip)=c_Lid
c_info(c_Ip+1)=F
c_info(c_Ip+2)=T
c_info(c_Ip+3)=W
c_info(c_Ip+4)=""
c_info(c_Ip+5)=sC '"<F>"&trim(F)&"</F><T>"&trim(T)&"</T><E>"&E&"</E><sC>"&trim(sC)&"<
;/sC><cL>"
&trim(cL)&"</cL><sJ>"&sJ&"</sJ>"
Application("c_info")=c_info
Application.UnLock
u_Lid=session("u_Lid")
newLid=u_Lid
u_name=session("u_name")
'&Application("c_Lid")&"%"&c_info(0)
Response.Write "<?xml version=""1.0""?><Msg>"
for i=c_info(0)+6 to 240 step 6
if (c_info(i)>u_Lid) and ((c_info(i+1)=u_name) or (c_info(i+2)=u_name) or
(c_info(i+2)="大家") or (c_info(i+3)="0")) then
Response.Write c_info(i+5)
if (newLid<c_info(i)) then newLid=c_info(i)
end if
next
for i=1 to c_info(0) step 6
if (c_info(i)>u_Lid) and ((c_info(i+1)=u_name) or (c_info(i+2)=u_name) or
(c_info(i+2)="大家") or (c_info(i+3)="0")) then
Response.Write c_info(i+5)
if (newLid<c_info(i)) then newLid=c_info(i)
end if
next
Response.Write "</Msg>"
session("u_Lid")=newLid
function getTime()
dim y,m,d,h,n,s
y=Year(date())
m=Month(date())
d=Day(date())
h=Hour(time())
n=Minute(time())
s=Second(time()) '当为是一位的 时候在前面加0
if len(m)=1 then m="0" & m
if len(d)=1 then d="0" & d
if len(h)=1 then h="0" & h
if len(n)=1 then n="0" & n
if len(s)=1 then s="0" & s
getTime=y&"/"&m&"/"&d &" " & h&":"& n&":"&s
end function%>
这是最重要的一个了。也很大。我的习惯不太好。没有加详细的注释，认真看吧。
#########send.asp##############
<html>
<head>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<meta http-equiv='pragma' content='no-cache'>
<link REL="SHORTCUTICON" url="images/Bluenote.ico">
<style type="text/css">
td{font-family: "宋体"; font-size: 9pt}
body { font-family: "宋体"; font-size: 9pt}
select { font-family: "宋体"; font-size: 9pt}
.p9{font-family:"宋体";font-size:9pt;line-height:130%; width:68px;}
A {cursor:hand;text-decoration:none; font-family: "宋体"; font-size: 9pt;}
input{font-size:9pt}
.an{background-color:FFFFFF;color:000000;border: 1 double}
</style>
<title>发言</title>
<script Language=JavaScript>
var tmp0="$F对$T说：|无表情|$F向$T微微一笑：|微笑|$F笑嘻嘻地对$T说：|嘻笑|$F冲$T傻乎乎的笑笑：|傻笑|$F对$T娇笑着：|娇笑|$F对着$T哈哈大笑：|大笑|$F看着$T，心头一阵狂喜：|狂喜|$F冲着$T狂笑不已：|狂笑|$F对$T奸笑着：|奸笑|$F咯咯一笑，很大方地对$T说：|大方|$F紧紧地握住$T的手：|握手|$F向$T挥了挥手：|挥手|$F耸耸肩，两手一摊：$T，|耸肩1|$F无奈地耸耸肩：$T，|耸肩2|$F摸摸$T的头，细声安慰：|安慰|$F笑呵呵向$T一拱手：|拱手|$F很有礼貌地对$T作了一揖：|作揖|$F深深地鞠了一躬：$T，|鞠躬|$F不好意思地对$T说：|歉意|$F瞪大了眼睛，很讶异地看着$T：|讶异|$F大吃一惊：$T，|惊讶|$F茫然地看着$T：|茫然|$F一脸的迷茫：$T，|迷茫|$F颇感迷惑：$T，|迷惑|$F感到很是奇特：$T，|奇特|$F对$T潇洒地一甩头：|潇洒|$F惋惜地看着$T：|惋惜|$F对$T皱了皱眉：|皱眉|$F很遗憾地对$T说：|遗憾|$F大包大揽地向$T承诺：|承诺|$F抓抓头皮，还是不解：$T，|不解|$F提高嗓门，大声地对$T说：|大声|"
