应楼主要求修改的代码
文件：/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编辑过]
