?? function.asp
字號:
<%
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>"
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -