Loveyuki's BLOG

L-BLOG.NET, The Matrix Reloaded.

存档:2007-11-29
关于以前开发的极客地带的一点说明
Loveyuki | 原创作品 | 2007-11-29 21:07 | 1708 点击 | 16 评论 | Geekera

很多关心我的朋友都知道我前一段时间用 ASP.NET 和 AJAX 写了一个极客地带,但是一直以来我都没有发布出来,也没有投入使用,因为现在国内互联网监察的比较厉害,蓝色理想的服务器前一段时间都被查了,我现在是没有实力去运营的,所以代码一直就在我电脑上,最多也就是用花生壳做了链接让朋友体验一下,提一些意见。

极客地带虽然开发基本已经完成,但是要运营暂时是不可能了,所以我也没有想过运营的计划,对于我个人来讲,出售企业授权应该是比较好的办法了。极客地带的代码我还是会继续优化的。

极客地带是用 ASP.NET 2.0 开发的一个集成论坛,知识管理,博客的社区系统,主控台完全使用 AJAX 构建,给用户带来最优的操作体验,极客地带使用专题来整理聚合信息。

下面放出一些截图,大家有兴趣就看看:

一些 ASP 方面的小技巧和代码
Loveyuki | 原创作品 | 2007-11-29 10:49 | 1533 点击 | 4 评论 | ASP
  1. 计算分页,嘿嘿一次搞定不用判断
    intNumPage = Abs(Int(-(intNumRecord/intPerPage)))
  2. 将日期格式化为RFC822格式,以前的方法麻烦哦,看这个简单的
    Function DateToRFC822(byVal dtaVal)
        Dim strCurLocale : strCurLocale = GetLocale()
        SetLocale("en-gb")
        dtaVal = CDate(dtaVal)
        DateToRFC822 = WeekdayName(Weekday(dtaVal),True)&","&_
                       Right("0"&Day(dtaVal),2)&" "&_
                       MonthName(Month(dtaVal),True)&" "&_
                       Year(dtaVal)&" "&_
                       Right("0"&Hour(dtaVal),2)&":"&_
                       Right("0"&Minute(dtaVal),2)&":"& _
                       Right("0"&Second(dtaVal),2)&" "& _
                       " +0800"
        SetLocale(strCurLocale)
    End Function
 

版权所有©2007-2008, Loveyuki.com | 系统:Bitrac | 皮肤:Blog Pixel | 空间域名:光辉互联 易联网络