Function KS_Slide(ChannelID,SqlStr, Width, Height, O_T_S, ShowTitle, T_Len, T_Css, ChangeTime,SlideType)
    Dim PicUrl, TempTitle,T_CssStr,Sohupic
    Dim SQL,K,RS:Set RS=Conn.Execute(SqlStr)
    If RS.EOF Then  KS_Slide="":RS.Close:Set RS=Nothing:Exit Function
    SQL=RS.GetRows(-1):RS.Close:Set RS = Nothing
    IF Cint(SlideType)=2 Then
      Dim ImgArrStr,LinkArrStr,TextArrStr,SohupicArrStr
      Dim N:N=0
      For K=0 To Ubound(SQL,2)
           PicUrl =SQL(7,K):If Lcase(left(PicUrl,4))<>"http" then PicUrl=DomainStr & PicUrl     
           TempTitle = SQL(1,K)
                          if N=0 Then
          ImgArrStr=PicUrl
          LinkArrStr=KS.GetInfoUrl(ChannelID,SQL(2,K),SQL(0,K),SQL(5,K),SQL(3,K),SQL(4,K),SQL(6,K))
          TextArrStr=TempTitle
          SohupicArrStr="<a image='" & PicUrl & "' info='" & TempTitle
       SohupicArrStr=SohupicArrStr & "' url='" & KS.GetInfoUrl(ChannelID,SQL(2,K),SQL(0,K),SQL(5,K),SQL(3,K),SQL(4,K),SQL(6,K))&"'"
           Else
         ImgArrStr=ImgArrStr & "@@@" & PicUrl
         LinkArrStr=LinkArrStr & "@@@" & KS.GetInfoUrl(ChannelID,SQL(2,K),SQL(0,K),SQL(5,K),SQL(3,K),SQL(4,K),SQL(6,K))
         TextArrStr=TextArrStr & "@@@" & TempTitle
                  SohupicArrStr=SohupicArrStr  & "@@@<a image='" & PicUrl
         SohupicArrStr=SohupicArrStr & "' info='" & TempTitle
         SohupicArrStr=SohupicArrStr & "' url='" & KS.GetInfoUrl(ChannelID,SQL(2,K),SQL(0,K),SQL(5,K),SQL(3,K),SQL(4,K),SQL(6,K)) &"'/>"
        End if
        N=N+1
                    Next
     KS_Slide="<script src=""" & DomainStr &"ks_inc/sohuflash.js"" type=""text/javascript"" language=""javascript""></script>"&vbcrlf




     KS_Slide=KS_Slide & "<div id=sasFlashFocus27></div>" & vbcrlf
     KS_Slide=KS_Slide & "<SCRIPT type=""text/javascript"">" & vbcrlf
'     KS_Slide=KS_Slide & "var pics="""", mylinks="""", texts="""";" & vbcrlf
'     KS_Slide=KS_Slide & "var focus_width=" & Width & ";" & vbcrlf
'     KS_Slide=KS_Slide & "var focus_height=" & Height & ";" & vbcrlf
    ' If Cbool(ShowTitle)=True Then
'     KS_Slide=KS_Slide & "var text_height=22;" & vbcrlf
'     Else
'     KS_Slide=KS_Slide & "var text_height=0;" & vbcrlf
'     End If
      Dim ImgArr:ImgArr=Split(ImgArrStr,"@@@")
      Dim LinkArr:LinkArr=Split(LinkArrStr,"@@@")
      Dim TextArr:TextArr=Split(TextArrStr,"@@@")
      Dim SohupicArr:SohupicArr=Split(SohupicArrStr,"@@@")
      Dim ArrLength:ArrLength=Ubound(ImgArr)
      If ArrLength>5 Then ArrLength=5
      Dim I,PicStr,LinkStr,TextStr,SohupicStr
      For I=0 To ArrLength
        If I=0 Then
       PicStr="<a img='" & ImgArr(0)
       LinkStr="info='" & LinkArr(0)
       TextStr="url='" & KS.GotTopic(TextArr(0),T_Len) &""
       SohupicStr="txt=""" & SohupicArr(0)
'       txt=SohupicStr
       Else
        PicStr=PicStr & "|" & ImgArr(I)
        LinkStr=LinkStr&"|"&LinkArr(I)
        TextStr=TextStr & "|" & KS.GotTopic(TextArr(I),T_Len)
        SohupicStr=SohupicStr & "/>" & SohupicArr(I)
'        txt=SohupicStr
       End IF
      Next
     KS_Slide=KS_Slide &SohupicStr&""""&vbcrlf  
      'KS_Slide=KS_Slide & "LoadFlash('" & DomainStr & "KS_Inc/Slideviewer.swf','transparent',focus_width,focus_height+text_height,'pics='+pics+'&links='+links+'&texts='+texts+'&borderwidth='+focus_width+'&borderheight='+focus_height+'&textheight='+text_height)" & vbcrlf
     KS_Slide=KS_Slide & "var sohuFlash2 = new sohuFlash(""" & DomainStr & "KS_Inc/etflash.swf"",""27"", "& width &", "& height &", ""7"");" & vbcrlf
     KS_Slide=KS_Slide & "sohuFlash2.addParam(""quality"", ""high"");" & vbcrlf
     KS_Slide=KS_Slide & "sohuFlash2.addParam(""wmode"", ""opaque"");" & vbcrlf
     KS_Slide=KS_Slide & "sohuFlash2.addVariable(""txt"",txt);" & vbcrlf
    ' KS_Slide=KS_Slide & "sohuFlash2.addVariable(""speed"","""& ChangeTime &""");" & vbcrlf
     KS_Slide=KS_Slide & "sohuFlash2.write(""sasFlashFocus27"");" & vbcrlf
     KS_Slide=KS_Slide & "</SCRIPT>" & vbcrlf