<% function unHtml(content) unHtml=content if content <> "" then unHtml=replace(unHtml,"&","&") unHtml=replace(unHtml,"<","<") unHtml=replace(unHtml,">",">") unHtml=replace(unHtml,chr(34),""") unHtml=replace(unHtml,chr(13),"
") unHtml=replace(unHtml,chr(32)," ") end if end function function ubb(content) ubb=content nowtime=now() UBB=Convert(ubb,"code") UBB=Convert(ubb,"html") UBB=Convert(ubb,"url") UBB=Convert(ubb,"color") UBB=Convert(ubb,"font") UBB=Convert(ubb,"size") UBB=Convert(ubb,"quote") UBB=Convert(ubb,"email") UBB=Convert(ubb,"img") UBB=Convert(ubb,"swf") UBB=AutoURL(ubb) ubb=replace(ubb,"[b]","",1,-1,1) ubb=replace(ubb,"[/b]","",1,-1,1) ubb=replace(ubb,"[i]","",1,-1,1) ubb=replace(ubb,"[/i]","",1,-1,1) ubb=replace(ubb,"[u]","",1,-1,1) ubb=replace(ubb,"[/u]","",1,-1,1) ubb=replace(ubb,"[blue]","",1,-1,1) ubb=replace(ubb,"[/blue]","",1,-1,1) ubb=replace(ubb,"[red]","",1,-1,1) ubb=replace(ubb,"[/red]","",1,-1,1) for i=1 to 28 ubb=replace(ubb,"{:em"&i&"}","",1,6,1) ubb=replace(ubb,"{:em"&i&"}","",1,-1,1) next ubb=replace(ubb,"["&chr(176),"[",1,-1,1) ubb=replace(ubb,chr(176)&"]","]",1,-1,1) ubb=replace(ubb,"/"&chr(176),"/",1,-1,1) end function function Convert(ubb,CovT) cText=ubb startubb=1 do while Covt="url" or Covt="color" or Covt="font" or Covt="size" startubb=instr(startubb,cText,"["&CovT&"=",1) if startubb=0 then exit do endubb=instr(startubb,cText,"]",1) if endubb=0 then exit do Lcovt=Covt startubb=startubb+len(lCovT)+2 text=mid(cText,startubb,endubb-startubb) codetext=replace(text,"[","["&chr(176),1,-1,1) codetext=replace(codetext,"]",chr(176)&"]",1,-1,1) 'codetext=replace(codetext,"{:em","{;em",1,-1,1) codetext=replace(codetext,"/","/"&chr(176),1,-1,1) select case CovT case "color" cText=replace(cText,"[color="&text&"]","",1,1,1) cText=replace(cText,"[/color]","",1,1,1) case "font" cText=replace(cText,"[font="&text&"]","",1,1,1) cText=replace(cText,"[/font]","",1,1,1) case "size" if IsNumeric(text) then if text>6 then text=6 if text<1 then text=1 cText=replace(cText,"[size="&text&"]","",1,1,1) cText=replace(cText,"[/size]","",1,1,1) end if case "url" cText=replace(cText,"[url="&text&"]","",1,1,1) cText=replace(cText,"[/url]","",1,1,1) case "email" cText=replace(cText,"["&CovT&"="&text&"]","",1,1,1) cText=replace(cText,"[/"&CovT&"]","",1,1,1) end select loop startubb=1 do startubb=instr(startubb,cText,"["&CovT&"]",1) if startubb=0 then exit do endubb=instr(startubb,cText,"[/"&CovT&"]",1) if endubb=0 then exit do Lcovt=Covt startubb=startubb+len(lCovT)+2 text=mid(cText,startubb,endubb-startubb) codetext=replace(text,"[","["&chr(176),1,-1,1) codetext=replace(codetext,"]",chr(176)&"]",1,-1,1) 'codetext=replace(codetext,"{:em","{;em",1,-1,1) codetext=replace(codetext,"/","/"&chr(176),1,-1,1) select case CovT case "url" cText=replace(cText,"["&CovT&"]"&text,""&codetext,1,1,1) cText=replace(cText,""&codetext&"[/"&CovT&"]",""&codetext&"",1,1,1) case "email" cText=replace(cText,"["&CovT&"]","",1,1,1) cText=replace(cText,"[/"&CovT&"]","",1,1,1) case "html" codetext=replace(codetext,"
",chr(13),1,-1,1) codetext=replace(codetext," ",chr(32),1,-1,1) Randomize rid="temp"&Int(100000 * Rnd) cText=replace(cText,"[html]"&text,"代码片断如下： ",1,1,1) case "img" cText=replace(cText,"[img]"&text,""&chr(34)&" target=_blank>::点击图片在新窗口中打开::",1,1,1) case "code" cText=replace(cText,"[code]"&text,"以下内容为程序代码
"&codetext,1,1,1) cText=replace(cText,"以下内容为程序代码
"&codetext&"[/code]","以下内容为程序代码
"&codetext&"
",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,"[html]","",1,-1,1) atext=replace(atext,"[/html]","",1,-1,1) atext=SplitWords(atext,350) atext=replace(atext,chr(32)," ",1,-1,1) cText=replace(cText,"[quote]"&text,"
"&atext,1,1,1) cText=replace(cText,"
"&atext&"[/quote]","
"&atext&"
",1,1,1) case "swf" cText=replace(cText,"[swf]"&text,"影片地址:
"&text&"
",1,1,1) cText=replace(cText,""&"[/swf]",""&"",1,1,1) end select loop Convert=cText end function function AutoURL(ubb) cText=ubb startubb=1 do startubb=1 endubb_a=0 endubb_b=0 endubb=0 startubb=instr(startubb,cText,"http://",1) if startubb=0 then exit do endubb_b=instr(startubb,cText,"<",1) endubb_a=instr(startubb,cText," ",1) endubb=endubb_a if endubb=0 then endubb=endubb_b end if if endubb_b0 then endubb=endubb_b end if if endubb=0 then lenc=ctext endubb=len(lenc)+1 end if if startubb>endubb then exit do text=mid(cText,startubb,endubb-startubb) codetext=text urllink=""&codetext&" " urllink=replace(urllink,"/","/"&chr(176),1,-1,1) cText=replace(cText,text,urllink,1,1,1) loop AutoURL=cText end function set rs=server.createobject("adodb.recordset") sql="select * from guestbook order by id desc" rs.open sql,db,3,2 dim pagenum dim e_page e_page=5 '每页显示留言数 rs.pagesize=e_page if request.querystring("pagenum")="" or request.querystring("pagenum")=0 then pagenum=1 else pagenum=request.querystring("pagenum") rs.absolutepage=trim(request.querystring("pagenum")) end if %> #预订首页# 广州彩荷短租公寓
 
诚信和安全
诚信：
我们所做的事业是以口碑相传的，最重要的是诚信和安全； 对加盟店进行统一严格管理，对于入住加盟店出现的问题，我们照样负责处理。
安全：
1.资金安全　你所支付的定金押金，都会存在指定帐户内，确保万无一失；
2.住宿安全
我们的门锁都是磁心锁，具有不可复制性，所以尽管放心；　我们选择的公寓环境优越，保安系统完善，确保你入住安全。每个片区我们有专职巡查员，重点视差白天公寓进出安全，同时杜绝非法活动，对商务区的公寓我们会格外关注。
服務條約：
以最实惠的价格---住最舒适的房间！是我们最大的心愿！我们也尊请您能响应：节约能源，爱护环境，努力减低所耗成本，做一名优秀的文明旅客！
一、 为了您和他人的安全！请在出门的时候关好所有电源及煤气开关。
二、 为了您和他人的卫生！请不要用被单，毛巾擦拭鞋子！
三、 为了房间的整洁！请不要随意搬动房间内的设施！
四、 节约用水是我们的传统美德，！请不要忘记拧紧水阀的开关！
五、 请尽量体贴他人！不要在房间里大声吵闹。
六、 入夜时分，请将电视或音响的声音调低，以免影响他人休息！
七、 每天11：30-12：00为办公室巡房时间，请予配合。
八、 退房时间为次日中午12：00，超时房费另计。
九、 我司有权劝请超过23：30还未离开的访客。
十、 房间内入住客人的数量不得超出床位数量。
十一、 房间清扫时间为三天一次，如有特别要求请电话通知。
十二、 房间电话为付费电话，请在入住时通知服务员输入话费。
十三、 房间内禁止黄，赌，毒，不得从事任何非法活动。
十四、 部分服务及消耗品是需要付费的，您可以根据自己的需要选择消费。
宽 带：20元/天 食品/饮料：以报价为准
十五、入住人不得擅自搬动房间内家电家具,改变房间原有的布局分格;否则我公司有权对入住人进行额度为1--3天的房费罚款
十六、入住人不得擅自拆卸房间本有的设施,或未经许可挪用到该房间以外作别的用处,如有发现,公司有权以盗窃行为对入住人进行处理或罚款
点击这里给我发消息 返回
　　　　入住须知
　　　　常见问题
　　　　公寓托管
　　　　在线加盟
　　　　管家服务
版权所有 广州彩荷旅馆网
客户服务热线电话:020-33585887 客户服务邮箱:caihegongyu@126.com