为pjblog添加fs2you网盘上传

fs2you是一个新推出的优秀免费网盘,特别是提供了文件上传接口,可以很方便的集成到你的blog或bbs中去。对于空间紧张或者经常需要上传大文件的朋友效果尤其理想。
官方的说明文档只提供了discuz、phpwind和dvbbs的详细修改方法。我研究了一下后也给我的blog加上了,测试之后个人效果很好,写出来和大家分享。
首先看一下效果图:

上传框展开之后效果图。

使用的时候,可以选择一个或多个需要上传的文件,写完日志后然后直接点提交日志就开始上传,上传成功之后日志将自动被发表。

下面来说一下我是如何实现的。
首先你需要有个fs2you的用户名,官方网站是http://www.fs2you.com
注意,以下操作都是基于pjblog v2.7 build04的版本。
共需要修改3个文件。

首先打开blogpost.asp
找到:

程序代码 程序代码
<tr>
<td align="right" valign="top" nowrap><span style="font-weight: bold">附件上传:</span></td>
<td colspan="2" align="left"><iframe src="attachment.asp" width="100%" height="24" frameborder="0" scrolling="no" border="0" frameborder="0"></iframe></td>
</tr>

在下面添加:

程序代码 程序代码
<tr>
<td align="right" valign="top" nowrap><span style="font-weight: bold">网盘上传:</span></td>
<td colspan="2" align="left"><div id="fs2you_upctrl"><a href="javascript:fs2you_show_upctrl()">单击上传一个或多个文件到fs2you网盘</a></div></td>
</tr>

再找到:

程序代码 程序代码
<!–#include file="plugins.asp" –>
<!–#include file="footer.asp" –>

在上面添加:

程序代码 程序代码
<script type="text/javascript">
function fs2you_show_upctrl(){
var fu = document.getElementById("fs2you_upctrl");
if(fu)fu.innerHTML='<img src="http://www.fs2you.com/media/img/loading.gif" style="border: 0px" />’;
var obj = document.createElement("script");
obj.setAttribute("type", "text/javascript");
obj.setAttribute("src", "http://dyn.www.fs2you.com/jslib/upctrl.js");
document.body.appendChild(obj);
}
</script>
<style type="text/css">
#fs2you_upctrl
{
    border: solid 1px #BBE9FF;
    color: #4F6B72;
    background: #F5FBFF none repeat scroll 0%;
    padding: 5px;
}
</style>
<script type="text/javascript">
    var fs2you_account = "这里改成你在fs2you的用户名";
    var fs2you_message_body_name = "Message";
</script>

然后打开blogedit.asp,重复上面的修改操作。

最后打开common目录下的function.asp。
找到:

程序代码 程序代码
function ChkPost()
  dim server_v1,server_v2
  chkpost=false
  server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
  server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
  If Mid(server_v1,8,Len(server_v2))<>server_v2 then
    chkpost=false
  else
    chkpost=True
  end If
end function

改成:

程序代码 程序代码
function ChkPost()
  dim server_v1,server_v2,server_v3
  chkpost=false
  server_v1=Cstr(Request.ServerVariables("HTTP_REFERER"))
  server_v2=Cstr(Request.ServerVariables("SERVER_NAME"))
  server_v3="www.fs2you.com"
  If Mid(server_v1,8,len(server_v3))=server_v3 or Mid(server_v1,8,Len(server_v2))=server_v2 then
    chkpost=True
  else
    chkpost=false
  end If
end function

成功了,发布一篇日志看看效果吧。

Leave a comment

You must be logged in to post a comment.