风讯官方论坛

首页 » FoosunCMS交流区 » 插件讨论 » [下载]演示：3.1、3.2中实现匿名用户可以留言、投稿，可以下载测试了！

doudou888 - 2005-10-30 21:45:00

1、风讯留言本doudou888修改版（支持风讯网站信息管理系统3.2版）

'==============================================================================
'软件名称：风讯留言本doudou888修改版（支持风讯网站信息管理系统3.2版）
'当前版本：
'最新更新：2006.7
'==============================================================================
'修改作者：皓月炫星　QQ：280601330　
'作者主页：http://www.nhez.cn
'演示站点：http://www.nhez.cn/nhez　
'论坛支持：留言：
'    http://www.nhez.cn/nhez/Users/GBook/Write_GBook_NoName.asp
'          风讯在线论坛(http://bbs.foosun.net)
'==============================================================================

功能说明：
1、实现留言调用(无论在哪个页面均可以)。
2、实现匿名用户留言，注册用户可以留言时输入用户名与密码即可留言，并同时登陆
3、实现匿名用户回复留言

文件说明：
All_GBook.asp   修改过的文件，显示用户所有留言
GBook.asp 修改过的文件，显示当前用户所有留言
ReadBook.asp  修改过的文件，显示当前留言内容
Write_GBook.asp   修改过的文件，写留言
Write_GBook_NoName.asp 新增文件，匿名用户写留言
New_GBook.asp  新增文件，调用最新若干留言
User_Purview.Asp 新增文件，由comm目录中的User_Purview.Asp修改而来，取消进行验证，与转入帐户中心。
UserCheck.asp  新增文件，由comm目录中的User_Purview.Asp修改而来，若用户登陆，则进行验证，并自动转入帐户中心。
others\SysBook.asp 修改文件，修改 在管理后台 中匿名用户发贴显示“用户已被删除”为“匿名用户”

使用方法：
1、复制补丁或修改文件
   (1)把补丁目录中的所有文件覆盖目录Users\GBook中 (强烈建议，先备分相关文件 )
   (2)把others\SysBook.asp文件，覆盖文件foosun\Admin\System\SysBook.asp (强烈建议，先备分相关文件 )
  SysBook.asp修改方法：
 找到foosun\Admin\System\SysBook.asp
在
 Response.Write("<font color=#990000>管理员</font>")
后插入       '============================doudou888=================
  Elseif  RsCon("UserID")=-1 then
  Response.Write("<font color=#990000>匿名用户</font>")
       '============================doudou888=================

其它文件修改方法，因为修改比较多，这里不提供。

2、首页调用
'首页调用：<IFRAME border=0 name=I1 marginWidth=0 marginHeight=0 src="Users/GBook/New_GBook.asp?page_size=8" frameBorder=no width="100%" scrolling=no height="100%">浏览器不支持嵌入式框架，或被配置为不显示嵌入式框架。</IFRAME>
'参数说明：page_size=8中的8，是指调用8条，您可以根据需要自行更改调用条数

有问题请跟我联系。

　　　　　　　　　　　　　　　　　　　　　　　　　　　福建省宁化第二中学
　　　　　　　　　　　　　　　　　　　　　　　　　　　　2006年7月17日

演示投稿:

http://www.nhez.cn/nhez/users/Add_UserAdd_NoName.asp

风讯留言本doudou888修改版插件下载 for 风讯3.1：[upload=rar]viewFile.asp?ID=1878[/upload]
风讯留言本doudou888修改版插件下载 for 风讯3.2：[upload=rar]viewFile.asp?ID=4772[/upload]

 

2、风讯匿名用户投稿（支持风讯网站信息管理系统3.2版）

'==========================================================
'软件名称：风讯匿名用户投稿（支持风讯网站信息管理系统3.2版）
'当前版本：
'最新更新：2006.7
'=============================================================
'修改作者：皓月炫星　QQ：280601330　
'作者主页：http://www.nhez.cn
'演示站点：http://www.nhez.cn/nhez　
'论坛支持：留言：
'    http://www.nhez.cn/nhez/Users/GBook/Write_GBook_NoName.asp
'          风讯在线论坛(http://bbs.foosun.net)
'============================================================

功能说明：
增加匿名投稿功能；用户在没登陆时，即可投稿，输入用户名与密码即可投稿登陆一并进行。

补丁文件说明：
(1)Add_UserAdd_NoName.asp 下面有修改方法
(2)User_Purview.Asp 这与匿名用户留言补丁中的相关文件是一样的
(3)UserCheck.asp 这与匿名用户留言补丁中的相关文件是一样的

补丁的使用：
(1)把Add_UserAdd_NoName.asp 复制到Users\中
(2)把User_Purview.Asp、UserCheck.asp 复制到Users\Gbook\中

特别说明：
Add_UserAdd_NoName.asp文件修改方法：
Add_UserAdd_NoName.asp文件由修改Users\Add_UserAdd.asp修改而来，
可以复制文件Users\Add_UserAdd.asp，再把它改名成Add_UserAdd_NoName.asp，再作如下修改
(1)把
<!--#include file="Comm/User_Purview.Asp" -->
替换成
<!----doudou888 --------1---------- ---->
<!--#include file="gbook/User_Purview.Asp" -->
<!--#include file="../Inc/Md5.asp" -->
<!--#include file="gbook/UserCheck.Asp" -->
<!------------------------------->
(2)在
If Request.Form("action")="add" Then
后插入
'================doudou888=====2========================

 if  request.Form("NoName")<>"1" then
  if request.Form("Author")="" And Request.Cookies("Foosun")("MemName")="" then
   Response.Write("<script>alert(""错误：\n请填写您的用户名，匿名用户请选择！"");history.back();</script>")
   Response.End
  end if
  if request.Form("Password")="" And Request.Cookies("Foosun")("MemPassword")="" then
   Response.Write("<script>alert(""错误：\n请填写您的密码！"");history.back();</script>")
   Response.End
  end If
  Dim t_StrName,t_StrPwd,t_return
  If Request.Cookies("Foosun")("MemName")="" Or Request.Cookies("Foosun")("MemPassword")="" Then
   t_StrName = Replace(Replace(trim(request.Form("Author")),"'",""),Chr(39),"")
   t_StrPwd = MD5(Replace(Replace(trim(request.Form("Password")),"'","''"),Chr(39),""),16)
   session("return_url")=""
   t_return = Fs_User.Login(t_StrName,t_StrPwd)
  Else
   t_StrName = Replace(trim(Request.Cookies("Foosun")("MemName")),"'","")
   t_StrPwd = Replace(trim(Request.Cookies("Foosun")("MemPassword")),"'","")
   't_return = Fs_User.checkStat(t_StrName,Replace(trim(request.Form("Password")),"'","''"))
   't_StrPwd = MD5(Replace(Replace(trim(request.Form("Password")),"'","''"),Chr(39),""),16)
   t_return = Fs_User.checkStat(t_StrName,t_StrPwd)
  End If
  if t_return=False then
   'Response.Cookies("Foosun")("MemName") = ""
   'Response.Cookies("Foosun")("MemPassword") = ""
   'Response.Write ("<script>alert("""&Request.Cookies("Foosun")("MemName")&"---"&Request.Cookies("Foosun")("MemPassword")&""");</script>")
   Response.Write("<script>alert(""错误：\n没有这个用户,或者密码错误，请重新填写！"");history.back();</script>")
   Response.End
  end if
 End if
'======================================================
(3)在
 Rs("Author") = Fs_User.EName
后插入
  '===============================doudou888=====3========================
   If request.Form("NoName")<>"1" then
  Rs("Author") = request.Form("Author")
   else
  Rs("Author") = "匿名"&Request.ServerVariables("Remote_Addr")
   end if
 '=============================================================
(4)把
 If Request.Form("AddCorpus")=1 Then Call Fs_User.AddCorpus(t_Title,t_Subtitle,t_Content,Fs_User.EName,t_Corpus)
 Call Fs_User.AddLog("point",Fs_User.Point+Fs_User.getUserConfig(2),Fs_User.EName,"投稿增加点数")
 Call Fs_User.update("ConNum,Point","ConNum+1,Point+"&Fs_User.getUserConfig(2),Fs_User.UserID)
 Response.Write("<script>if (confirm(""投稿成功,是否继续投稿?"")==false) window.location=""User_contribution.asp""; else window.location=""?ClassID="&ClassID&""";</script>")
替换成
 '=== doudou888 不再继续投稿时，匿名用户退到首页；会员退到“投稿管理”===4=====
 if Request.Cookies("Foosun")("MemName") = "" then 
   Response.Write("<script>if (confirm(""谢谢您！投稿成功,管理员会尽快审核。是否继续投稿?"")==false) window.location=""../index.asp""; else window.location=""?ClassID="&ClassID&""";</script>")
 else
  If Request.Form("AddCorpus")=1 Then Call Fs_User.AddCorpus(t_Title,t_Subtitle,t_Content,Fs_User.EName,t_Corpus)
  Call Fs_User.AddLog("point",Fs_User.Point+Fs_User.getUserConfig(2),Fs_User.EName,"投稿增加点数")
  Call Fs_User.update("ConNum,Point","ConNum+1,Point+"&Fs_User.getUserConfig(2),Fs_User.UserID)
   Response.Write("<script>if (confirm(""谢谢您！投稿成功,管理员会尽快审核。是否继续投稿?"")==false) window.location=""User_contribution.asp""; else window.location=""?ClassID="&ClassID&""";</script>")
 end if
 '==================================================================
(5)把
    <TR>
     <TD width="15%" height="26"><div align="left"> <font color="#000000"><img src="Images/arr2.gif" width="10" height="10"><img src="Images/arr2.gif" width="10" height="10"><a href="Add_Contribution.asp"><font color="#FF0000">我要投稿</font></a> </font> </div></TD>
     <TD width="17%"><img src="Images/arr2.gif" width="10" height="10"><img src="Images/arr2.gif" width="10" height="10"><a href="User_Contribution.asp">未审核投稿</a></TD>
     <TD width="43%"><img src="Images/arr2.gif" width="10" height="10"><img src="Images/arr2.gif" width="10" height="10"><a href="User_Contribution_Passed.asp">已审核投稿</a></TD>
     <TD width="25%"><div align="center"></div></TD>
    </TR>
替换成
      <!--==========================doudou888=====5==========-->  
     <TR>
     <% if Request.Cookies("Foosun")("MemName") <> "" then %> 
     <TD width="15%" height="26"><div align="left"> <font color="#000000"><img src="Images/arr2.gif" width="10" height="10"><img src="Images/arr2.gif" width="10" height="10"><a href="Add_Contribution.asp"><font color="#FF0000">我要投稿</font></a> </font> </div></TD>
     <TD width="17%"><img src="Images/arr2.gif" width="10" height="10"><img src="Images/arr2.gif" width="10" height="10"><a href="User_Contribution.asp">未审核投稿</a></TD>
     <TD width="43%"><img src="Images/arr2.gif" width="10" height="10"><img src="Images/arr2.gif" width="10" height="10"><a href="User_Contribution_Passed.asp">已审核投稿</a></TD>
     <TD width="25%"><div align="center"></div></TD>
     <%else%>
     <TD width="151">
     <img src="Images/arr2.gif" width="10" height="10"><img src="Images/arr2.gif" width="10" height="10"><a href="../"><font color="#0000FF">首页</font></a></TD>
     <TD>
     <div align="center">　</div></TD>
     <%end if%>
     </TR>
      <!--=================================================================-->   
(6)在
                    <input name="KeyWords" type="text" id="KeyWords2" style="width:42% " size="20">
后插入
 <!--=======================doudou888============6===========================-->
   设置多个关键字，请用“<b><font color="#FF0000">,</font></b>”号隔开
 <!--=======================doudou888============6===========================-->

(7)在
    <tr bgcolor="#F6F6F6">
     <td><div align="right">所属栏目</div></td>
前插入
 <!--=======================doudou888============7===========================-->
    <tr bgcolor="#F6F6F6">
     <td>
   <div align="right">作         者</div></td>
   <td colspan="1">  <div align="">
  <% if Request.Cookies("Foosun")("MemName") = "" then %> 
  <input name="Author" type="text" style="width:21% " value="<%=Request.Cookies("Foosun")("MemName")%>" size="20">
  密码：<input name="Password" type="password" id="Password" size="20">
  <input name="NoName" type="checkbox" id="NoName" value="1">
         匿名 <font color="#FF0000">·</font><a href="Register.asp"><font color="#FF0000">免费注册</font></a>
          <a href="User_GetPassword.asp">·忘记密码？</a></div> </td>
  <%else%>
  <input name="Author" type="text" style="width:21% " value="<%=Request.Cookies("Foosun")("MemName")%>" readonly size="20">
  <%end if %>
          </tr>
 <!--=========================================================================-->

有问题请跟我联系。

　　　　　　　　　　　　　　　　　　　　　　　 福建省宁化第二中学
　　　　　　　　　　　　　　　　　　　　　　　　2006年7月17日

 

演示发贴（留言）:

http://www.nhez.cn/nhez/Users/GBook/Write_GBook_NoName.asp

 

投稿插件下载 for 风讯3.1：[upload=rar]viewFile.asp?ID=1879[/upload]　（还没有完全改好，准备让匿用户可以回复，而站长可以选择是否开放）
投稿插件下载 for 风讯3.2：[upload=rar]viewFile.asp?ID=4773[/upload]

欢迎试用，请提出使用意见！

[此贴子已经被作者于2006-7-18 11:42:01编辑过]

附件: 1814.rar

附件: 1822.rar

附件: 1823.rar

附件: 4642.rar

附件: 4643.rar

Fly颖 - 2005-10-31 09:06:00

顶...楼主又有新东西了

lino - 2005-10-31 11:31:00

顶你~热心楼主！

nazyman - 2005-10-31 15:51:00

哈，快给演示看看

doudou888 - 2005-10-31 17:14:00

刚才在1楼给出了演示地址

小山 - 2005-10-31 18:36:00

等待中……

jianlv520 - 2005-10-31 21:52:00

[em02][em02][em02][em02][em02][em02][em02][em02][em02]

doudou888 - 2005-10-31 22:58:00

首页调用成功!演示

http://www.nhez.cn/nhez/

(在下部的最新留言)

[此贴子已经被作者于2006-7-10 07:44:19编辑过]

heng - 2005-11-1 11:12:00

谢谢，我需要一份

[此贴子已经被作者于2005-11-1 11:34:53编辑过]

小山 - 2005-11-2 13:57:00

还没出吗

wsvip - 2005-11-3 19:19:00

以下是引用lino在2005-10-31 11:31:00的发言：
顶你~热心楼主！

ljh5532 - 2005-11-4 11:47:00

好啊，可以下载吗？我都想要啊

小山 - 2005-11-4 18:31:00

等你的文件下载……

arrok - 2005-11-5 02:06:00

期待楼主的插件作品!

友情支持!

sxyzy - 2005-11-5 20:17:00

以下是引用arrok在2005-11-5 2:06:00的发言：

期待楼主的插件作品!

友情支持!

[em05]

wenmeng - 2005-11-7 14:24:00

不错哈!

sxyzy - 2005-11-7 18:39:00

等你的文件下载……

小山 - 2005-11-7 23:08:00

首页调用不成功了……

liao365 - 2005-11-12 09:26:00

大师出手,就是不凡.

fengyun518 - 2005-11-13 01:46:00

给我一份,我的是3.0\SP2,我发现发表和投稿没有相关连的文件夹存在,晕死,代码也没有,害死我了.

doudou888 - 2005-11-13 23:10:00

发贴插件可以下载了，需要的朋友请到一楼下。欢迎提出使用意见。

wsvip - 2005-11-14 19:51:00

收到 ,测试中....

psbird - 2005-11-15 22:53:00

谢谢，下一份测试一下。

shcwp - 2005-11-16 10:07:00

我下载了，回去用一下！

pennyliu - 2005-11-23 16:32:00

首先谢谢楼主，开发出这么好的东东，

有两个问题需要你给帮忙：

1留言以后后台查看报错

2投稿的文章标题样式，为什么和投稿栏目的样式不一样o？（这可能是风讯的问题）

doudou888 - 2005-11-23 17:36:00

有空我再看看。

新疆教育网 - 2005-11-24 12:04:00

楼主，您好，我想请教一个问题，我刚才下载了你的好东东，可是在FoosunCMS v3.1.1120(V3.1.0930 SP1) 不能使用了。请指导！

谢谢

doudou888 - 2005-11-24 15:55:00

可能要再调试吧。我还没有去调试，自己先试试吧。

p1688 - 2005-11-24 19:39:00

谢谢楼主,豆豆每次出的东西都很实用.

再请问你一下,修改的留言本具有审核功能吗?(这个是非常重要的).

[em01]

doudou888 - 2005-11-24 22:37:00

这个没有考虑。可能有吧，自己试试。

12345

查看完整版本: [下载]演示：3.1、3.2中实现匿名用户可以留言、投稿，可以下载测试了！

Powered by Discuz!NT Archiver 2.0.1115 2001-2009 Comsenz Inc.