- 中国开源CMS第一品牌＝＝＝请插件高手修改一下＝＝＝

阿朱 - 2005-11-11 11:00:00

先说声谢谢了！

我想把风讯里的下载功能里的，下载地址文字连接改为图片显示链接一行显示5个下载，可分为二行或多行！

有没有办法！

无名 - 2005-11-11 14:11:00

先做个记号，有空来做。

阿朱 - 2005-11-11 17:05:00

哈哈。。。。谢谢无名了，在拜托你顺便看一下，能否把地址下载无法删除和无法插入表格的问题也一起解决吧！[em01][em01]

lino - 2005-11-11 17:37:00

http://bbs.foosun.net/dispbbs.asp?BoardID=22&ID=11755&replyID=&skin=1

以前发过实现的方法～请看这里

阿朱 - 2005-11-11 18:18:00

晕，不是一样的，你这个是在分页里显示的下载图片列表，我这个需要在下载页面里显示的！[em01]

阿朱 - 2005-11-11 18:20:00

也就是说在下载页面里的多个文字连接改为多个图片显示连接！

阿朱 - 2005-11-11 18:25:00

在程序里完全是可以的，因为文字连接也支持图片路径，那么就是说可以不用输入文字，直接选取图片路径的位置加上连接就可以，但是有一个难度就是文字连接采取的是一直竖排往下的，要是10个连接换成一行显示5个图片共二行的话，。这个就需要技术了！

无名 - 2005-11-12 09:50:00

文件：/Foosun/Admin/Info/Download.asp

将

Optionstr = Optionstr+'<tr><td><div align="center">地址名称'+i+' <input type="text" size="20" name="AddressName'+i+'" value=""> </div></td><td><div align="center">链接地址 <input type="text" size="30" name="Url'+i+'" value=""> </div></td><td><div align="center"><input type="button" name="Submit4" onClick="SetFilePath(document.DownForm.Url'+i+');" value="选择文件"></div></td><td><div align="center">地址排序 <input type="text" name="Number'+i+'" value="'+i+'" size="3"><input name="AddressID'+i+'" type="hidden" value=""></div></td></tr>';

修改成

Optionstr = Optionstr+'<tr><td><div align="center">地址名称'+i+' <input type="text" size="20" name="AddressName'+i+'" value="">'
//无名修改
Optionstr = Optionstr+'<input type="button" name="Submit4" onClick="SetFilePath(document.DownForm.AddressName'+i+');" value="选择文件">'
//修改结束
Optionstr = Optionstr+' </div></td><td><div align="center">链接地址 <input type="text" size="30" name="Url'+i+'" value=""> </div></td><td><div align="center"><input type="button" name="Submit4" onClick="SetFilePath(document.DownForm.Url'+i+');" value="选择文件"></div></td><td><div align="center">地址排序 <input type="text" name="Number'+i+'" value="'+i+'" size="3"><input name="AddressID'+i+'" type="hidden" value=""></div></td></tr>';

文件：Foosun/Admin/Refesh/Function.asp

原程序为：

do while Not RsAddressObj.Eof
AddressStr = AddressStr & "<tr>" & Chr(13)
AddressStr = AddressStr & "<td>" & Chr(13)
AddressStr = AddressStr & "<a href=""" & AvailableDoMain & "/Down.asp?ID=" & RsAddressObj("ID") & "&DownID=" & RsAddressObj("DownLoadID") & """>点击下载--" & RsAddressObj("AddressName") & "</a>"
AddressStr = AddressStr & "</td>" & Chr(13)
AddressStr = AddressStr & "</tr>" & Chr(13)
RsAddressObj.MoveNext
Loop

修改成

AddressStr = AddressStr & "<tr>" & Chr(13)

Dim i
i = 1
do while Not RsAddressObj.Eof

AddressStr = AddressStr & "<td>" & Chr(13)
AddressStr = AddressStr & "<a href=""" & AvailableDoMain & "/Down.asp?ID=" & RsAddressObj("ID") & "&DownID=" & RsAddressObj("DownLoadID") & """>"
'无名修改
if inStr(RsAddressObj("AddressName"),"/Files") then
AddressStr = AddressStr & "<img src=""" & RsAddressObj("AddressName") &""" border=""0"">"
else
AddressStr = AddressStr & ">点击下载--" & RsAddressObj("AddressName") & "</a>"
end if
'修改结束
AddressStr = AddressStr & "</td>" & Chr(13)
if i mod 5 = 0 then
AddressStr = AddressStr & "</tr><tr>" & Chr(13)
end if
i = i + 1
RsAddressObj.MoveNext
Loop
AddressStr = AddressStr & "</tr>" & Chr(13)

下载名称改为图片显示，5个为一行，多的提行。

[此贴子已经被作者于2005-11-14 9:05:46编辑过]

阿朱 - 2005-11-12 10:00:00

哈哈。。。那么快啊，好好好。谢谢高手了。等会我就调试！

无名 - 2005-11-14 09:06:00

原帖中有些小错误，感谢阿朱的提醒

阿朱 - 2005-11-14 09:41:00

[em01][em01][em01]高手就是高手

风讯官方论坛