楼主,我把的代码整合到上次能够选择的代码里面,但不知道为什么只显示flash源文件而不显示内容,只有undefined出现,现在贴出源码,请帮忙找找错,先谢谢了!
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)<>1 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=PicUrl & "#" & TempTitle
SohupicArrStr=SohupicArrStr & "#" & 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 & "@@@" & PicUrl
SohupicArrStr=SohupicArrStr & "#" & TempTitle
SohupicArrStr=SohupicArrStr & "#" & 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
if Cint(SlideType)=2 then
KS_Slide="<script src=""" & DomainStr &"ks_inc/loadflash.js"" type=""text/javascript"" language=""javascript""></script>"&vbcrlf
KS_Slide=KS_Slide & "<SCRIPT language=JavaScript>" & 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 ArrLength:ArrLength=Ubound(ImgArr)
If ArrLength>5 Then ArrLength=5
Dim I,PicStr,LinkStr,TextStr
For I=0 To ArrLength
If I=0 Then
PicStr="var pics='" & ImgArr(0)
LinkStr="var links='" & LinkArr(0)
TextStr="var texts='" & KS.GotTopic(TextArr(0),T_Len) &""
Else
PicStr=PicStr & "|" & ImgArr(I)
LinkStr=LinkStr&"|"&LinkArr(I)
TextStr=TextStr & "|" & KS.GotTopic(TextArr(I),T_Len)
End IF
Next
KS_Slide=KS_Slide &PicStr &"';"&vbcrlf&LinkStr&"';" &vbcrlf & TextStr &"';"&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 & "</SCRIPT>" & vbcrlf
elseif Cint(SlideType)=3 then
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
Dim ImgArr2:ImgArr2=Split(ImgArrStr,"@@@")
Dim LinkArr2:LinkArr2=Split(LinkArrStr,"@@@")
Dim TextArr2:TextArr2=Split(TextArrStr,"@@@")
Dim SohupicArr:SohupicArr=Split(SohupicArrStr,"@@@")
Dim ArrLength2:ArrLength2=Ubound(ImgArr2)
If ArrLength2>5 Then ArrLength2=5
Dim I2,PicStr2,LinkStr2,TextStr2,SohupicStr
For I2=0 To ArrLength2
If I2=0 Then
PicStr2="<a img='" & ImgArr2(0)
LinkStr2="info='" & LinkArr2(0)
TextStr2="url='" & KS.GotTopic(TextArr2(0),T_Len) &""
SohupicStr="txt=""" & SohupicArr(0)
Else
PicStr2=PicStr2 & "|" & ImgArr2(I2)
LinkStr2=LinkStr2&"|"&LinkArr2(I2)
TextStr2=TextStr2 & "|" & KS.GotTopic(TextArr2(I2),T_Len)
SohupicStr=SohupicStr & "/>" & SohupicArr(I2)
End IF
Next
KS_Slide=KS_Slide &SohupicStr&""""&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.write(""sasFlashFocus27"");" & vbcrlf
KS_Slide=KS_Slide & "</SCRIPT>" & vbcrlf
End if
Else