请先登录 | 注册
MM0759.COM
5.x附件上传后仍保持附件实名的修改办法 - 文章首页返回版区
■标题:5.x附件上传后仍保持附件实名的修改办法
■作者:IPSC [2006/2/22 18:42:35]

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

测试中发现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>"

修改完成!



回复/版区/上篇/下篇/发贴/仅文字/HTML
【倒序/最近21条回复】(暂无)
(查看完整版网页)



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