请先登录 | 注册
MM0759.COM
[原创]上传的附件名称如何改为：时间+原始文件名(bbsxp6.x) - 文章首页→返回版区
■标题:[原创]上传的附件名称如何改为：时间+原始文件名(bbsxp6.x)
■作者:stclin [2006/4/6 9:19:37]

 

斑竹:

上传的附件名称如何改为：时间+原始文件名,如2005102111347我的照片.JPG

谢谢

如何改     '生成目录
if SiteSettings("AttachmentsSaveOption")=0 then
on error resume next
Set fso = Server.CreateObject("Scripting.FileSystemObject")
strDir="UpFile/UpAttachment/"&year(now)&"-"&month(now)&""
if not fso.folderexists(Server.MapPath(strDir)) then fso.CreateFolder(Server.MapPath(strDir))
if Err=0 then catalog=""&year(now)&"-"&month(now)&"/"
fname=""&catalog&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&""
On Error GoTo 0
end if

 

［此帖子已被 stclin 在 2006-4-6 9:20:45 编辑过］

【回复/版区/上篇/下篇/发贴/仅文字/HTML】

【倒序/最近21条回复】
■作者:ipsc [2006/5/13 11:19:36]
等老婆生完孩子吧，待产中...

■作者:zsbz0 [2006/5/5 0:17:08]
老大，7。0代码差别较大，没能改出来，还请给解决方案。

■作者:IPSC [2006/4/17 10:05:33]
好，关注本贴吧，我会抽时间测试出来的。

■作者:cool2006 [2006/4/11 14:48:29]
偶也需要！！！斑竹改啊，我们支持你

■作者:stclin [2006/4/10 13:53:19]

顶



■作者:stclin [2006/4/7 12:15:47]

 是下面这个吗?可是我用的是BBSXP6.0的啊,里面根本没有upfile.asp这个文件啊,求老大帮帮忙!谢谢了

-============================================================================

很多兄弟要求弄一个支持上传附件还是实名的插件，就发一个上来吧，这个核心代码可以用到我那个异站附件上传上的。

测试中发现BT种子不能用中文名，兼容性不好，其它的上传成蟛捎?实名+数字 ，原来上传显示在贴子上 相关附件 的地方显示 文件实名 (不含数字)。这是针对 BBSXP v5.x 修改的，其它版本参考修改，代码：IPSC

注意，需要您的服务器支持中文名附件的下载，您可以放一个中文名的附件在上面，然后测试在IE是否能下载，如果可以，就行。还有，有时上传的图片里有中文名字，在发贴的文章编辑区里显示不了图片，但发表后还是可以显示的，下面已有提示代码。

用记事本打开upfile.asp：

1、找到 ：

case "FSO"
....
types=LCase(file.FileExt)
check(types)
filename="images/upfile/....

把 filename="images/upfile/... 这一行替换为下面的代码：


'########## 附件上传保持实名+数字代码段 代码原创：IPSC ###########
dim thisfilename,name1
thisfilename=File.FileName:name1=split(thisfilename,".")(0):name1=replace(name1," ",""):name1=name1&"-"
if types="torrent" then name1=""
filename="images/upfile/"&name1&year(now)&month(now)&day(now)&hour(now)&minute(now)&second(now)&len(name1)&"."&types&""
'####################### end #####################

2、再找到下面红色这一行：

<body topmargin=0  rightmargin=0  leftmargin=0>
<script>
if ("<%=types%>"=="gif" || "<%=types%>"=="jpg" || "<%=types%>"=="png" || "<%=types%>"=="bmp"){
img="<img src=<%=filename%>>"
}else{
img="<img src=images/affix.gif><a ....

把红色这几行替换为如下这行代码：

img="<img src=<%=filename%>>"
alert('系统提示：您上传的图片<%=thisfilename%>如果含有中文名字，在编辑区可能显示不了，但发表后是可以显示的！')
}else{
img="<img src=images/affix.gif><a target=_blank href=<%=filename%>><b><font color=800000><%=thisfilename%></font></a></b>"

修改完成！

=========================================================================

 



■作者:IPSC [2006/4/6 22:11:05]
建议改为 我的照片_24535499.jpg 这样比较好，和5。X改法一样，我发过类似的贴子，自己找吧

(查看完整版网页)


短讯|首页|登录|算法|电脑版 .
DK MiniBBS Plus v2.0
mm0759.com
328 毫秒 .