一、缩略图不能生成
'由原图片根据数据里保存的设置生成缩略图
Function CreateThumbnailEx(FileName,ThumbnailFileName)
Dim strSql,RsThumbnailSetting
strSql = "Select ThumbnailComponent,RateTF,ThumbnailWidth,ThumbnailHeight,ThumbnailRate From FS_Config"
Set RsThumbnailSetting = Conn.Execute(strSql)
CreateThumbnailEx = False
If RsThumbnailSetting("ThumbnailComponent") <> "0" and (not IsNull(RsThumbnailSetting("ThumbnailComponent")))Then
If RsThumbnailSetting("RateTF") = "0" Then
CreateThumbnailEx = CreateThumbnail(FileName,Cint(RsThumbnailSetting("ThumbnailWidth")),Cint(RsThumbnailSetting("ThumbnailHeight")),0,ThumbnailFileName)
Else
应该是直接从3系程序拷过来的,红色的基本的代码没改过来。
二、XML生成后没有在根目录的XML文件夹下,却在Fs_Interface/XML文件夹下,根本调不出来。
三、有两处代码错误:
1、news/news_edit.asp 457行458行出现了两次“黑体”;
2、admin/sysparaset.asp264和265行中的checked应为selected吧
[此贴子已经被作者于2006-10-16 12:45:36编辑过]