Black-Xstar's Blog

这是我的第一篇和asp有关的原创文章，如需转载麻烦注明来自Black-Xstar's Blog（http://blog.black-xstar.com），谢谢。

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

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

修改好的文件：点击下载，解压密码“www.Black-Xstar.com”，不包括引号，注意大小写
（下载该文件后，请务必将里面的用户名改为你的，不会改的问我）
再次强调！请务必将修改里面的用户名，否则你上传的文件控制权在我这里，我会随时删除的！！被我删除后果自负！！！