DVBBS设计了三个类
Cls_Forum
cls_Template
cls_UserOnlne
index首页:
执行页面的顺序分析:
一:conn.asp
定义缓冲后下载
定义变量强制性
定义全局变量及常量
定义数据库连接对象过程:
Sub ConnectionDatabase
End Sub
'独立道具库连接设置
Sub Plus_ConnectionDatabase
End Sub
定义对象实例:Set Dvbbs = New Cls_Forum:Set template = New cls_templates
二、Dv_ClsMain.asp
参考类分析。定义类
三、常量定义
Cls_UserOnlne 实例化:Set MyBoardOnline = new Cls_UserOnlne
执行以下事件
'论坛设置
Dvbbs.GetForum_Setting 'Dv_ClsMain.asp 370行GetForum_Setting()
'判断用户是否登陆设置
Dvbbs.CheckUserLogin 'Dv_ClsMain.asp 653行CheckUserLogin()
定义check 字符串 XHTML代码
Function checkXHTML(XMLstr)
三、dv_clsother.asp
Rem 除首页外的通用函数
'检查板块信息,输出导航菜单字串
Sub CheckBoardInfo()
'判断是否得到板块访问允许
Sub GetBoardPermission()
Rem 能否进入论坛的判断
Public Sub Chkboardlogin()
'得到论坛文字广告位部分内容,PageID=0 为首页,=1为帖子列表页面,=2为帖子内容页面
'下载文本广告
Sub LoardTextAd()
Sub GetForumTextAd(PageID)
'下载板块新闻
Sub LoadBoardNews_Paper()
'下载组群名称
Sub Load_GroupName()
四、index.asp自身页面
Rem 首页页面设置
几个判断:
1 是否需要通行证判断
2 是否为客户端连接,即非内部提交
3 是否显示XML
执行Main()
Sub Showxml()'首页按xml格式显示
Sub Main()'正常显示函数
'接下来可能是本页的主函数要用到的次函数
Sub Chk_List_Err()
Sub topicList()
Function auditcount()
Sub LoadTopiclist()
Sub transform_topicList()
Sub LoadBoardlistData()
Sub BoardList()
Sub transform_BoardList()
Sub ShowNews()
Sub LoadlinkList()
Sub Forum_birUser()
Function LoadToolsInfo()
Sub Passport_Main()
最后是一段禁目被框架的代码