宝玉

宝玉的blog
随笔 - 33, 文章 - 1, 评论 - 277, 引用 - 4
数据加载中……

CnForums1.2 完整源码


CnForums1.2针对Beta1版中用户反馈的一些问题，基本修正了大家反馈Beta1中存在的所有BUG，新增了一些功能，如：
支持框架式皮肤界面
支持动网等论坛的导入（动网论坛导入程序及源码随后发布）
版务管理
私人留言可以显示留言条数
桌面提醒功能（Popup提示）
……


现在有某个别团队直接在CnForum Beta1的源码基础上作简单修改即声称是自己的作品，保留对其进一步追究的权利。（如果在同类产品中直接使用CnForums源码，请征得作者同意并在作出相关申明）



谢谢大家对CnForums的支持


如果有任何问题请到论坛提问：http://www.cnforums.net

下载：http://bbs.openlab.net.cn/ShowThread.aspx?PostID=376725


PSP:CnForums 开发团队
2005-01-10


posted on 2005-01-10 12:50 宝玉 阅读(3111) 评论(18)  编辑 收藏

评论

#1楼    回复  引用  查看    

果然如你所说，周一就放上来了。感谢，研究ing.
2005-01-10 12:54 | CoolBug      

#2楼    回复  引用  查看    

感谢 辛苦了
2005-01-10 13:13 | 蓝色空间      

#3楼    回复  引用    

你们的站点怎么不支持断点续传，是CNForums不支持吗
2005-01-10 13:13 | zj492 [未注册用户]

#4楼    回复  引用  查看    

终于等到了，恭喜一下
2005-01-10 13:35 | boy119      

#5楼    回复  引用  查看    

宝玉兄
有英文版本的吗

我想要英文版本的代码
2005-01-10 13:38 | aierong      

#6楼    回复  引用    

辛苦了，好样的！
2005-01-10 14:55 | bestcomy [未注册用户]

#7楼    回复  引用    

发现点问题：我以admin的身份登陆，在更改个人资料 >>论坛选项 中，修改界面风格为FrameTheme，然后再次登陆修改界面风格的时候就出现点击更新按钮无效的问题。
另外，请问：界面风格是在数据库哪个表中保存的，查了users相关的几个表都没有发现。
2005-01-10 16:47 | boy119 [未注册用户]

#8楼    回复  引用  查看    

@boy119 ,
让我替宝玉回答这个问题吧

～
用户的界面风格是保存在forums_UserProfile中的StringNameValues字段中。需要进行反序列号。
 ' Additional user details
            '
            _user.DeserializeExtendedAttributes(CType(dr("StringNameValues"), Byte()))
    Public Sub DeserializeExtendedAttributes(ByVal serializedExtendedAttributes As Byte())
            If serializedExtendedAttributes.Length = 0 Then
                Return
            End If
            Try
                Dim binaryFormatter As binaryFormatter = New binaryFormatter
                Dim ms As MemoryStream = New MemoryStream
                ms.Write(serializedExtendedAttributes, 0, serializedExtendedAttributes.Length)
                ms.Position = 0
                extendedAttributes = CType(binaryFormatter.Deserialize(ms), NameValueCollection)
                ms.Close()
            Catch 'generatedExceptionVariable0 As 
            End Try
        End Sub

然后。皮肤的默认是globals.getskinpath"/图像路径。"所以我们接着分析getskinpath函数，省略……我们判定用户使用的皮肤。是使用User.Theme,接着分析property theme
        Public Function GetExtendedAttribute(ByVal name As String) As String 'name="Language",name="DateFormat"
            Dim returnValue As String = extendedAttributes(name)
            If returnValue Is Nothing Then
                Return String.Empty
            Else
                Return returnValue
            End If
        End Function

这回应该明白了。将字段序列化成extendedAttributes。然后就是获取值了
 
以上纯属个人观点：）
2005-01-10 18:01 | 小春      

#9楼    回复  引用  查看    

但是，数据库中却看不到这个值，只显示<Binary>，如果想修改的话也不行。
2005-01-11 10:17 | boy119      

#10楼 [楼主]   回复  引用    

to boy119:
问题在于admin的邮件地址不合法:(
2005-01-12 10:29 | 宝玉 [未注册用户]

#11楼    回复  引用    

ok，问题解决。另外，想请问一下，有没有登陆口和新贴的调用代码？
2005-01-12 16:34 | boy119 [未注册用户]

#12楼    回复  引用    

很想跟你们交流一下，我叫娟娟，我的电话13186075524，今天有幸闯进这儿，看到这些，感觉真的很棒
2005-03-21 11:48 | 学 [未注册用户]

#13楼    回复  引用    

大哥，我下载后怎么解压不开，说文件已损坏，能发一份给我吗，谢谢了。
singlepine@sina.com
2005-12-11 21:27 | 初学者 [未注册用户]

#14楼    回复  引用  查看    

下载不了,能否给我一份,谢谢!! benjohnsir@126.com
2006-05-24 09:24 | johnsir      

#15楼    回复  引用    

下载不了，能否给我一份，宝玉哥哥，谢谢!!! xwd301@163.com
2006-07-05 11:22 | 下楼弹吉他 [未注册用户]

#16楼    回复  引用    

我很想要这样一份源码研究一下，可以提供给我一份吗？先谢谢了。。。。xo.dog@163.com
2006-07-12 11:03 | 挨踢新贵 [未注册用户]

#17楼    回复  引用    

http://www.communityserver.cn/builds/Archive/cnforums1.2.rar
2006-07-12 14:16 | baoyu [未注册用户]

#18楼    回复  引用    

現在好像下不了了，我的郵箱lygwujian＠gmail.com.cn
2007-07-30 15:00 | lygwujian [未注册用户]

标题  
姓名  
主页
Email (只有博主才能看到) 
验证码 *  看不清,换一张 [登录][注册]
内容(请不要发表任何与政治相关的内容)  
  登录  使用高级评论  新用户注册  返回页首  恢复上次提交      
 
最新IT新闻:
· 第一财经周刊:当前互联网世界正处无秩序时代
· Visual Studio 2008 SDK 1.1 发布
· 死敌VMware变身微软认证计划新成员
· 英特尔雅虎开发网络计算机频道
· Windows Live视频邮件9月9日开始测试
博客园新闻频道  博客园首页  社区