  Function qqkfapi(classid,nID) 
   '调用客服
        Dim rs,ASQL,i,n,Modeskweb 
        Set rs=skweboa.SK_axe("select top "&nID&"  ID,title,diy0,diy1 from diy_skweb Where  CID="&classid&" AND lock=0 Order by ID asc") 
         If Not rs.eof Then 
             ASQL=RS.GetRows(-1):Set RS = Nothing 
         Else 
            qqkfapi="":Exit Function 
         End If 
		  
         Dim skwebNum:skwebNum=Ubound(ASQL,2) 
         Dim it : it=1
         For i=0 To skwebNum 
		  if ASQL(2,i)="旺旺" then 
qqkfapi=qqkfapi&"<p><a target=blank href=""http://amos.im.alisoft.com/msg.aw?v=2&uid="&ASQL(3,i)&"&site=cntaobao&s=1&charset=utf-8""><img border=""0"" SRC=""http://amos.im.alisoft.com/online.aw?v=2&uid="&ASQL(3,i)&"&site=cntaobao&s=1&charset=utf-8"" alt=""点击这里给我发消息""> "&ASQL(1,i)&"</a></p>"	
		  else
qqkfapi=qqkfapi&"<p><a target=""_blank"" href=""http://wpa.qq.com/msgrd?v=3&uin="&ASQL(3,i)&"&site=qq&menu=yes""><img border=""0"" src=""http://wpa.qq.com/pa?p=2:"&ASQL(3,i)&":51"" alt=""点击这里给我发消息"" title=""点击这里给我发消息""/> "&ASQL(1,i)&"</a></p>"	
          end if
         it=it+1
         next	
        skwebcool=qqkfapi 
   End Function

