% Dim Plus,strtemp,strtemp1,strtemp2,i,j Set Plus = New Cls_Plus Plus.Open("kefu") ' 打开配置文件 If Plus.Config("state") = 0 Then Response.End 'On Error Resume Next %> $(document).ready(function(){ $("#floatShow").bind("click",function(){ $("#onlineService").animate({width:"show", opacity:"show"}, "normal" ,function(){ $("#onlineService").show(); }); $("#floatShow").attr("style","display:none"); $("#floatHide").attr("style","display:block"); return false; }); $("#floatHide").bind("click",function(){ $("#onlineService").animate({width:"hide", opacity:"hide"}, "normal" ,function(){ $("#onlineService").hide(); }); $("#floatShow").attr("style","display:block"); $("#floatHide").attr("style","display:none"); return false; }); }); document.write(''); document.write('