昨天终于把http://bbs.onlywww.net首页处理了一把,加上一个四格调用。不调不知道,一调用吓一跳,问题还真是不少呢，下面偶慢慢道来： 　
　　首先是缩略图的问题，系统提供的：{$Filename}和：{$ViewFilename}得到的值均是缩略图，默认大小是120X100，一般都不会去更改的，造成了调用的图片不清晰（因为放大了），感觉很不好。
解决方法，将pics+="{$ViewFilename}|";改为pics+="{$ViewFilename}|".replace("PreviewImage","UploadFile").replace("pre",""); 目的是为了将缩略图位置改为直接文件地址。但这里又有一个问题产生，如果系统没有生成缩略图就得不到图片地址，所以此法只能解决不清晰的问题，要求不高的可以拿来用，不想凑合就往下看。
　　其次是{$Readme}这个变量，系统备注为“文件说明”，但是有的图片保存后没有这个值，就会造成调用图片的FALSH不显示标题的情况，留下一道空白，美中不足啊！解决方法是利用Rootid到Dv_Topic表中取Title出来，准确无误。具体代码如下：

以下内容为程序代码:

1 function getTopic(AnnounceID)

2 if AnnounceID="" then

3 getTopic=""

4 exit function

5 end if 6 dim rsTopic,sql

7 set rsTopic=Dvbbs.Execute("select Title from Dv_Topic where TopicID="&AnnounceID)

8 If Not rsTopic.eof Then

9 getTopic=(rsTopic.GetRows(-1))(0,0)

10 Else 11 getTopic="" 12 End If 13 rsTopic.close:Set rsTopic = Nothing 14 End function上面的代码加入到Dv_news.asp中可代调用

　　三是直接用文件名字段（F_Filename）来处理,循环部分改为pics+="{$F_Filename}|";在Dv_news.asp中加入
Skin_Main = Replace(Skin_Main,"{$Boardid}",SQL(2,i))
Skin_Main = Replace(Skin_Main,"{$UserName}",SQL(3,i))
Skin_Main = Replace(Skin_Main,"{$Readme}",Topic&"")
if "jpg"=SQL(7,i) then'FLASH不认jpg外的其它图片，所以要加判断
   Skin_Main = Replace(Skin_Main,"{$F_Filename}",("UploadFile/"&SQL(4,i)))
else
   Skin_Main = Replace(Skin_Main,"{$F_Filename}",SQL(9,i))'不是jpg图片，就用缩略图来用
end if
　　至此，完美的解决了幻灯片调用问题。
　　本文来自“无双社区” http://bbs.onlywww.net