显示是这样的，但页面就是没图片，没有任何信息，就是一个空白flash

<div class="main1t"><script src="http://localhost/ks_inc/sohuflash.js" type="text/javascript" language="javascript"></script>
<div id=sasFlashFocus27></div>
<SCRIPT type="text/javascript">
txt="http://localhost//Upfiles/BeyondPic/news/shuhaizongheng/2007-12/20071225062035641.jpg#毕生酷爱书法的毛泽东#http://localhost/Article/ShowInfo.asp?ID=1713/>http://localhost//Upfiles/BeyondPic/news/guwanxunxi/2007-12/20071224104111395.jpg#玉质凝腻刻工精美 清同治年间玉册善本现身#http://localhost/Article/ShowInfo.asp?ID=1711/>http://localhost//Upfiles/BeyondPic/news/hualinxinzhi/2007-12/20071224103152576.jpg#重塑温柔敦厚的中国画本体精神#http://localhost/Article/ShowInfo.asp?ID=1613/>http://localhost//Upfiles/BeyondPic/news/yijiexinwen/2007-12/20071224102818519.jpg#情系奥运 2008位书画家共同完成2008米书画长卷#http://localhost/Article/ShowInfo.asp?ID=1585/>http://localhost//Upfiles/BeyondPic/news/jinshikuaixun/2007-12/20071224102552795.jpg#青田举办我国首届印石擂台赛#http://localhost/Article/ShowInfo.asp?ID=1567/>http://localhost//Upfiles/BeyondPic/news/shuhaizongheng/2007-12/20071224095744668.jpg#王羲之手迹重生记高科技复原游目帖#http://localhost/Article/ShowInfo.asp?ID=1404"
var sohuFlash2 = new sohuFlash("http://localhost/KS_Inc/etflash.swf","27", 550, 200, "7");
sohuFlash2.addParam("quality", "high");
sohuFlash2.addParam("wmode", "opaque");
sohuFlash2.addVariable("txt",txt);
sohuFlash2.write("sasFlashFocus27");
</SCRIPT>
</div>
</div>

非常感谢你的提示，内容终于可以显示了，但新的问题有来了，当图片显示完第二张就停住不动了这是怎么回事？

html显示的信息如下

<script src="http://localhost/ks_inc/sohuflash.js" type="text/javascript" language="javascript"></script>
<div id=sasFlashFocus27></div>
<SCRIPT type="text/javascript">
txt="<a image='http://localhost//Upfiles/BeyondPic/news/shuhaizongheng/2007-12/20071225062035641.jpg' info='毕生酷爱书法的毛泽东' url='http://localhost/Article/ShowInfo.asp?ID=1713'/><a image='http://localhost//Upfiles/BeyondPic/news/guwanxunxi/2007-12/20071224104111395.jpg' info='玉质凝腻刻工精美 清同治年间玉册善本现身' url='http://localhost/Article/ShowInfo.asp?ID=1711'/>/><a image='http://localhost//Upfiles/BeyondPic/news/hualinxinzhi/2007-12/20071224103152576.jpg' info='重塑温柔敦厚的中国画本体精神' url='http://localhost/Article/ShowInfo.asp?ID=1613'/>/><a image='http://localhost//Upfiles/BeyondPic/news/yijiexinwen/2007-12/20071224102818519.jpg' info='情系奥运 2008位书画家共同完成2008米书画长卷' url='http://localhost/Article/ShowInfo.asp?ID=1585'/>/><a image='http://localhost//Upfiles/BeyondPic/news/jinshikuaixun/2007-12/20071224102552795.jpg' info='青田举办我国首届印石擂台赛' url='http://localhost/Article/ShowInfo.asp?ID=1567'/>"
var sohuFlash2 = new sohuFlash("http://localhost/KS_Inc/demo.swf","27", 550, 200, "7");
sohuFlash2.addParam("quality", "high");
sohuFlash2.addParam("wmode", "opaque");
sohuFlash2.addVariable("txt",txt);
sohuFlash2.write("sasFlashFocus27");
</SCRIPT>
</div>

我也不知道为什么没有，源码里面是有的，所以非常郁闷。

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

谢谢你的回复。GetSlide.asp已经改了，可以选择不同类型，页面的flash也能显示出来，但就是没内容，全是空白的，左看右看就是没看出要怎么改才好。

麻烦你帮个忙看看问题出在哪。

楼主，我把的代码整合到上次能够选择的代码里面，但不知道为什么只显示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