cos萌妹子拔:谁会改代码啊?请帮帮忙

TempTitleStr = "<a" & TitleCssStr & " href=""" & (CurrPath & Fname) & """" & OpenTypeStr & " title=""" & Title & """>" & KSCMS.GotTopic(Title, TitleLen) & "</a>"

ImgStr = ImgStr & "<td>" & vbCrLf
ImgStr = ImgStr & "<table boder=""0"" width=""100%"" height=""100%"">" & vbCrLf
ImgStr = ImgStr & "<tr><td align=""center"">" & TempPicStr & "</td></tr>" & vbCrLf
If Cbool(ShowTitle) = True Then
ImgStr = ImgStr & "<tr><td align=""center"">" & TempTitleStr & " </td></tr>" & vbCrLf
End If
ImgStr = ImgStr & "</table>" & vbCrLf
ImgStr = ImgStr & "</td>" & vbCrLf
PictureRS.MoveNext
Loop
ImgStr = ImgStr & "</tr></table>" & vbCrLf
Else

ImgStr = "<table width=""100%"" height=""100%"" border=""0"">" & vbCrLf
Do While Not PictureRS.EOF
CurrTid = PictureRS("Tid")

以上是一个文件里面的代码,他可以实现连续滚动图片在下面可以显示图片的标题,但我现在想改到把标题放在图片的右边有谁可以帮忙解答啊?