<%
Function Yushu(a)
	Yushu=(a and 31)
End Function

Function FixNickName(NickName)
	Dim Temp
	Temp=Server.HTMLEncode(NickName)
	Temp=Replace(Temp,",","")
	Temp=Replace(Temp," ","")
	Temp=Left(Temp,8)
	If InStr(Application("UserListStr"),","&Temp&",")<>0 Then Temp=""
	If Temp="01大家" Then Temp=""
	FixNickName=Temp
End Function

Function HowLong(OldTime)
	Dim NowTime
	NowTime=Now()
	HowLong=hour(NowTime)*3600+minute(NowTime)*60+second(NowTime) -hour(OldTime)*3600-minute(Oldtime)*60-second(OldTime)
End Function

const TimeOut		=180
const TimeWillOut	=120
const Str_SetAutoOFF	="<div style='font-size=12px'><b>[系統信息]</b>滾屏方式已經置為手動</div>"
const Str_SetAutoON	="<div style='font-size=12px'><b>[系統信息]</b>滾屏方式已經置為自動</div>"	
const Str_SetOnlyOFF	="<div style='font-size=12px'><b>[系統信息]</b>聊天方式已經置為公開</div>"
const Str_SetOnlyON	="<div style='font-size=12px'><b>[系統信息]</b>聊天方式已經置為密談</div>"	
const Str_TimeOut	="<div style='font-size=12px'><b>[系統信息]</b>你已經被踢出聊天室了</div>"
%>