function ubbstr(ubb_str,UbbKeyWord) ON ERROR RESUME NEXT tmpstr="uNobwab" beginstr=1 endstr=1 do while UbbKeyWord="url" or UbbKeyWord="color" or UbbKeyWord="size" or UbbKeyWord="face" beginstr=instr(beginstr,ubb_str,"["&UbbKeyWord&"=",1) if beginstr=0 then exit do endstr=instr(beginstr,ubb_str,"]",1) if endstr=0 then exit do LUbbKeyWord=UbbKeyWord beginstr=beginstr+len(lUbbKeyWord)+2 text=mid(ubb_str,beginstr,endstr-beginstr) codetext=replace(text,"[","["&tmpstr,1,-1,1) codetext=replace(codetext,"]",tmpstr&"]",1,-1,1) codetext=replace(codetext,"/","/"&tmpstr,1,-1,1) select case UbbKeyWord case "face" ubb_str=replace(ubb_str,"[face="&text&"]","",1,1,1) ubb_str=replace(ubb_str,"[/face]","",1,1,1) case "color" ubb_str=replace(ubb_str,"[color="&text&"]","",1,1,1) ubb_str=replace(ubb_str,"[/color]","",1,1,1) case "size" if IsNumeric(text) then if text>6 then text=6 if text<1 then text=1 ubb_str=replace(ubb_str,"[size="&text&"]","",1,1,1) ubb_str=replace(ubb_str,"[/size]","",1,1,1) end if case "url" ubb_str=replace(ubb_str,"[url="&text&"]","",1,1,1) ubb_str=replace(ubb_str,"[/url]","",1,1,1) end select loop beginstr=1 do beginstr=instr(beginstr,ubb_str,"["&UbbKeyWord&"]",1) if beginstr=0 then exit do endstr=instr(beginstr,ubb_str,"[/"&UbbKeyWord&"]",1) if endstr=0 then exit do LUbbKeyWord=UbbKeyWord beginstr=beginstr+len(lUbbKeyWord)+2 text=mid(ubb_str,beginstr,endstr-beginstr) codetext=replace(text,"[","["&tmpstr,1,-1,1) codetext=replace(codetext,"]",tmpstr&"]",1,-1,1) codetext=replace(codetext,"/","/"&tmpstr,1,-1,1) select case UbbKeyWord case "url" ubb_str=replace(ubb_str,"["&UbbKeyWord&"]"&text,""&codetext,1,1,1) ubb_str=replace(ubb_str,""&codetext&"[/"&UbbKeyWord&"]",""&codetext&"",1,1,1) case "img" ubb_str=replace(ubb_str,"[img]"&text,"
点击打开新窗口
",1,1,1) case "quote" atext=replace(text,"[img]","",1,-1,1) atext=replace(atext,"[/img]","",1,-1,1) atext=replace(atext,"[swf]","",1,-1,1) atext=replace(atext,"[/swf]","",1,-1,1) atext=replace(atext,"[dir]","",1,-1,1) atext=replace(atext,"[/dir]","",1,-1,1) atext=replace(atext,"[rm]","",1,-1,1) atext=replace(atext,"[/rm]","",1,-1,1) atext=replace(atext,"[mp]","",1,-1,1) atext=replace(atext,"[/mp]","",1,-1,1) atext=replace(atext,"[qt]","",1,-1,1) atext=replace(atext,"[/qt]","",1,-1,1) atext=replace(atext,"<br>","
",1,-1,1) ubb_str=replace(ubb_str,"[quote]"&text,"
引用
"&atext,1,1,1) ubb_str=replace(ubb_str,"[/quote]","

",1,1,1) case "swf" ubb_str=replace(ubb_str,"[swf]"&text,"Flash动画:
"&text&"
",1,1,1) ubb_str=replace(ubb_str,"[/swf]","",1,1,1) case "dir" ubb_str=replace(ubb_str,"[dir]"&text,"shockwave文件:
"&text&"
",1,1,1) ubb_str=replace(ubb_str,"[/dir]","",1,1,1) case "rm" ubb_str=replace(ubb_str,"[rm]"&text,"realplay视频文件:
"&text&"

",1,1,1) ubb_str=replace(ubb_str,"[/rm]","",1,1,1) case "mp" ubb_str=replace(ubb_str,"[mp]"&text,"Media Player视频文件:
"&text&"
",1,1,1) ubb_str=replace(ubb_str,"[/mp]","",1,1,1) case "qt" ubb_str=replace(ubb_str,"[qt]"&text,"QuickTime视频文件:
"&text&"
",1,1,1) ubb_str=replace(ubb_str,"[/qt]","",1,1,1) case "frame" ubb_str=replace(ubb_str,"[frame]"&text,"
页面:点这里参观
",1,1,1) end select loop ubbstr=ubb_str end function function htmlencode2(str) dim result dim l if isNULL(str) then htmlencode2="" exit function end if l=len(str) result="" dim i for i = 1 to l select case mid(str,i,1) case "<" result=result+"<" case ">" result=result+">" case chr(34) result=result+""" case "&" result=result+"&" case chr(32) result=result+" " if i+1<=l and i-1>0 then if mid(str,i+1,1)=chr(32) or mid(str,i+1,1)=chr(9) or mid(str,i-1,1)=chr(32) or mid(str,i-1,1)=chr(9) then result=result+" " else result=result+" " end if else result=result+" " end if case chr(9) result=result+" " case else result=result+mid(str,i,1) end select next htmlencode2=result end function } %> CMC緊急應變中心
     
     
守則

录入:管理员  cmc.fire-control.org   5/25/2009  人气:0

最低限度之消防裝置及設備與裝置及設備之檢查、測試及保養

  [2005年7月修訂本] (現行版本)  
pdf
pdf
pdf
pdf

最低限度之消防裝置及設備與裝置及設備之檢查、測試及保養

  [1994年3月修訂本]
  [此守則(1994年3月修訂本)適用於《消防安全(商業處所)條例》(第502章)及《消防安全(建築物)條例》(第572章)所規定提供或改善的消防裝置及設備]
pdf
pdf
pdf
pdf

消防安全巡查表 pdf


微電子工業貯存及使用特殊氣體守則 pdf


使用車輛運載第3及第4類危險品時措施守則 pdf
返回】 【顶部】 【关闭
返回首頁 | 關於我們| 法律聲明 | 聯繫我們

 Copyright @ 2008-2014  CMC緊急應變中心  版權所有
九龍旺角彌敦道707-713號銀高國際大廈11樓C室  電話:2380 3669  傳真:2380 2779  Email:info@cmc-hk.org