[拓展修改] pjblog整合rayfile教程 [复制链接]

godsina

PJFans LV1

Rank: 1

PJ币: 190 元
积分: 325
帖子: 89
注册时间: 2009-1-10
在线时间: 141 小时

发表于 2009-3-2 21:38:02 |显示全部楼层

PJBlog3 v3.2.9.518已发布，欢迎下载使用(2011/11/01)

蚊子在原帖修改了。请见谅。[分割线后是原帖]

首先，你需要一个rayfile的账号，这个就不用我教了吧，去http://www.rayfile.com/zh-cn/直接申请。
申请好了账号，就登陆。登陆以后，点击左上角的“我的设置”。

点击图中的“ 网站管理员API”
1. 您网页中作为输入贴子正文的INPUT或TEXTAREA的name属性是后面的空格内填“message”如图

2. 请选择一个模版, 如果需要的话您也可以做些修改: UBB模式：用 “论坛标签” FCK模式：HTLM
第2条结束有个红色的“生成我的脚本”，点击一下，下面就会生成自己的代码，直接复制。
到这里，Rayfile网站设置结束。
下面来改PJ程序。首先来改的是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"><%If log_editType = 0 Then%>
=> 在这里插入网站“HTML”显示出来的代码
<%else%>
=> 在这里插入网站“论坛标签”显示出来的代码<%end if%></div></td> </tr>

复制代码

然后按同样的方法修改blogedit.asp
最后，打开common下的function.asp，找到

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"))
............... 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="dyn.www.rayfile.com" If Mid(server_v1,8,len(server_v3))=server_v3 or Mid(server_v1,8,len(server_v2))=server_v2 Then Chkpost=True End Function

复制代码

OK.

================================分割线=======================================================================

首先，你需要一个rayfile的账号，这个就不用我教了吧，去http://www.rayfile.com/zh-cn/直接申请。
申请好了账号，就登陆。登陆以后，点击左上角的“我的设置”。

点击图中的“ 网站管理员API”，在第一条后面的空格内填“message”如图

第2条，我选择的是纯文本，其他的我没试
第2条结束有个红色的“生成我的脚本”，点击一下，下面就会生成自己的代码，直接复制。
到这里，Rayfile网站设置结束。
下面来改PJ程序。首先来改的是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></td> </tr>

复制代码

然后按同样的方法修改blogedit.asp
最后，打开common下的function.asp，找到

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"))
............... 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="dyn.www.rayfile.com" If Mid(server_v1,8,len(server_v3))=server_v3 or Mid(server_v1,8,len(server_v2))=server_v2 Then Chkpost=True End Function

复制代码

OK.
最后说下，我只在UBB编辑器下测试成功，FCK编辑器下出现了比较郁闷的事，谁整整，让FCK编辑器下也能使用，呵呵。

[ 本帖最后由情留メ蚊子于 2009-3-2 22:11 编辑 ]

论坛统一签名

亲，我们的论坛签名是需要消费PJ币哦！！点击购买签名

温馨提示：博客地址敬请放在签名档，方便协助解决问题！

币币很多，花不完？来吧，购买他人签名，挂上你的链接！

使用道具举报