我的论坛源代码(一)

2016-01-29 14:31 13 1 收藏

我的论坛源代码(一),我的论坛源代码(一)

【 tulaoshi.com - PHP 】

  其实写这几篇代码的时间不过近三天而已,事前即没有经过详细思考和计划(可以说一点计划都没有)那天想起做个论坛试试,于是就做起来了,而我也是才接触了将近一个月时间的PHP,以前也没真正写过程序之类的东东,在写这段代码的两天半时间里,有好几次遇到困难,都想放弃,但是我还是写出来了,而且没想到居然能用,所以中间可能有很多隐患也说不清,虽然说是可以用了。
再过两天,我就要去上班,也没时间再仔细地从头到尾检查这些代码了,这也是我放上来的原因之一,还有一个原因是,因为我想让大家一起来看看这些字符,我只是个菜鸟,中间可能有很多捷径没走,也有可能有很多地方不对,而且近两天我改了部份页面的代码,但其它相关的代码没去掉,所以有些地方有点重覆。但是它能正常运行,这是肯定的(至少表面上正常,我在WIN98/APACHE/PHP/MYSQL下用没问题,在网上测试也没问题,其它环境下就不知道了。我只希望和我一样的菜鸟们,或是比我还菜的菜鸟们能从中得到些什么,而那些老鸟及前辈们能来信或留言指出中间的缺点或不足的话,我会更高兴。因为那样的话,我也可从中学到不少东西。我的邮件地址是:hllinyu@netease.com,OICQ:2289230,主页地址是:http://lfox.oso.com.cn
好了,废话说太多了,我希望大家能投入到修改这个论坛源代码的工作中来,让它成为中国人自己开发的免费论坛,让论坛代码成为许许多多像我一样对PHP很感兴趣而又感觉无从下手的朋友们手下的参考资料就行了。下面来看我的论坛吧!
首先介绍要用的两个表存放贴子信息的foxbbs和存放用户信息的useinfo,因为当初考虑到数据空间不是很大,所以选择了MYSQL+TXT的方式来做,所有主题除了内容外都是存放在MYSQL里的,而数据量相对较大的主题内容和回复内容都单独存放扩展名为.FOX和.BBS的TXT格式文件里,在表里加个存放文件名的字段就行了,为了避免文件名重覆,取当前的系统时间来做文件名,比如2001年1月2日11时20分30秒发了一张帖子,文件名就是20010102112030.txt我想这能满足绝大部分的要求了,因为可能没几个论坛会热到每秒钟都有两张或两张以上的新帖出现吧!呵呵……
此论坛的具体情况可见http://lfox.oso.com.cn/foxbbs/foxbbs.php,另外主页面http://lfox.oso.com.cn/index.php上提供源码打包下载,看了源代码可别来捣乱哦。

useinfo 用户信息表  
0   usename    varchar(8)    not null          用户名
1   usepass    varchar(8)    not null          密码
2   useni      varchar(30)   not null 昵称  
3   useoicq    varchar(12)   not null    
4   usesex     int(1)        not null 用户性别  
5   useage     int(2)        not null 用户年龄  
6   usezy      varchar(4)    not null 职业  
7   useaddr    varchar(20)   not null 地址  
8   usemail    varchar(40)   not null 邮箱  
9   useweb     varchar(50)   not null 主页  
10  useqm      varchar(240)  not null  签名   
11  useattr    int(1)        not null 属性   1用户2版主3管理员4站长  
12  useinf     int(1)        not null 是否公开信息 1否2是   
13  useid      int(5)        not auto_increment   primary key   用户ID号
14  usebq      int(1)        not null   表情
15  regdate    datetime;       

来源:http://www.tulaoshi.com/n/20160129/1493526.html

延伸阅读
标签: ASP
  建立数据库结构: ' bbs ' 序号 INT NOT NULL IDENTITY ' 作者 VARCHAR(80) ' 题目 VARCHAR(255) ' 回复 INT NOT NULL DEFAULT 0 ' 点击 INT NOT NULL DEFAULT 0 ' 时间 DATETIME DEFAULT GETDATE() ' 内容 TEXT ' 邮件通知 BIT DEFAULT 0 ' ' bbsreply ' 序号 INT NOT NULL IDENTITY ' 原文 INT ' 作者 VARCHAR(80) ' 题目 VARCHAR(255)...
标签: ASP
  '============================= Case "Content" '============================= ' 显示内容 If Request("Keyword") < "" Then KeyWord = Request("Keyword") Else KeyWord = "" % <TABLE align=center border=0 cellPadding=1 cellSpacing=0 width=650 <TR <TD ...
标签: ASP
  <% '===================================== Case "Adduser" '===================================== ' 添加用户 '============== Userid = Trim(Request("Userid")) Password = Trim(Request("Password")) Confirm = Trim(Request("Confirm")) Email = Trim(Request("Email"))...
标签: ASP
  ' 打开数据库 Set Con = Server.CreateObject("ADODB.Connection") Con.Open "asp" , Application("ConASP_RuntimeUserName") , Application("ConASP_RuntimePassword") Set RecBBS = Server.CreateObject("ADODB.RecordSet") Set RecReply = Server.CreateObject("ADODB.Reco...
标签: ASP
  '============================== Case "Write" '============================== ' 发表文章 % <TABLE align=center border=0 cellPadding=7 cellSpacing=0 width=650 <TR <TD class=menu <P<A href="/"飞林庄</A-&gt;<A href="<%= ASP_FILE_NAME %"经验交流</A</P...

经验教程

88

收藏

76
微博分享 QQ分享 QQ空间 手机页面 收藏网站 回到头部