【www.hzclsc.cn--热门资讯】

########say.asp##############



" trim(F) "" trim(T) "" E "" trim(sC) "" trim(cL) "" 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 """ trim(F) "" trim(T) "" E "" trim(sC) "" trim(cL) "" 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 ""

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 (newLidu_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"

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%>

本文来源：http://www.hzclsc.cn/news/26373.html