■作者: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】 |