标题: 动网Cls_Forum类分析
作者: dnawo
日期: 2007-03-16 03:11 PM
分类: 程序修改
内容: 在动网论坛(ASP版)中有一个非常重要的核心类：Cls_Forum，保存在根目录Dv_ClsMain.asp里，在conn.asp中创建了它的一个实例Dvbbs，今天我们就来分析一下这个类：
一、类属性(公有变量)，总计88个
Public BoardID,SqlQueryNum,Forum_Info,Forum_Setting,Forum_user,Forum_Copyright,Forum_ads,Forum_ChanSetting,Forum_UploadSetting
Public Forum_sn,Forum_Version,Stats,StyleName,ErrCodes,NowUseBBS,Cookiepath,ScriptFolder,BoardInfoData,UserSession
Public lanstr,mainhtml,mainsetting,sysmenu,mainpic,UserToday,BoardJumpList,BoardList,CacheData,Maxonline
Public VipGroupUser,Vipuser,Boardmaster,Superboardmaster,Master,FoundIsChallenge,FoundUser
Public ScriptName,MemberName,MemberWord,MemberClass,UserHidden,UserID,UserTrueIP,UserPermission
Public sendmsgnum,sendmsgid,sendmsguser,Page_Admin
Public BadWords,rBadWord,Forum_emot,Forum_PostFace,Forum_UserFace,SkinID,Forum_PicUrl
Public Reloadtime,CacheName,UserGroupID,Lastlogin,GroupSetting,FoundUserPer,UserGroupParent,UserGroupParentID
Public Board_Setting,LastPost,Board_user,BoardType,Board_Data,Sid,Boardreadme,BoardRootID,BoardParentID
Public ModHtmlLinked,ArchiverUrl,ArchiverType
Public Browser,version ,platform,IsSearch,Cls_IsSearch
Public IsUserPermissionOnly,IsUserPermissionAll,ShowSQL,actforip
此外还有Name(只写),Value(可读可写),ErrType(只写),Get_ScriptNameUrl(只读)
二、(私有变量)，总计9个
Private Forum_CSS,Main_Sid,Nowstats,CssID
Private LocalCacheName,IsTopTable,ShowErrType
Private Is_Isapi_Rewrite,iArchiverUrl
三、类方法(公有过程)，总计58个
1.Function过程，总计23个
Public Function ObjIsEmpty()
Public Function IsReadonly()
Public Function IsONline(UserName,action)
Public Function ChkPost()
Public Function NeedChecklongin()
Public Function RecordsetToxml(Recordset,row,xmlroot)
Public Function ArrayToxml(DataArray,Recordset,row,xmlroot)
Public Function Createpass()
Public Function FoundUserPermission_All()
Public Function Replacehtml(Textstr)
Public Function Onlineip(ip)
Public Function Execute(Command)
Public Function Plus_Execute(Command)
Public Function address(sip)
Public Function GetCode()
Public Function CodeIsTrue()
Public Function HTMLEncode(fString)
Public Function iHTMLEncode(fString)
Public Function CheckNumeric(Byval CHECK_ID)
Public Function strLength(str)
Public Function ChkBadWords(Str)
Public Function Checkstr(Str)
Public Function GetBrowser()
2.Sub过程，总计35个
Public Sub Sendmessanger(touserid,senduser,messangertext)
Public Sub loadSetup()
Public Sub LoadBoardList()
Public Sub MakBoardNav(parentid,Node1)
Public Sub LoadPlusMenu()
Public Sub LoadBoardData(bid)
Public Sub LoadBoardinformation(bid)
Public Sub LoadGroupSetting()
Public Sub Loadstyle()
Public Sub LoadStyleMenu()
Public Sub UpdateForum_Info(act)
Public Sub GetForum_Setting()
Public Sub LoadTemplates(Page_Fields)
Public Sub ReloadSetupCache(MyValue,N)
Public Sub NeedUpdateList(username,act)
Public Sub LetGuestSession()
Public Sub CheckUserLogin()
Public Sub NewPassword()
Public Sub TrueCheckUserLogin()
Public Sub GetCacheUserInfo()
Public Sub LoadUserPermission_All()
Public Sub ActiveOnline()
Public Sub Nav()
Public Sub head()
Public Sub ShowTopTable()
Public Sub Head_var(IsBoard,idepth,GetTitle,GetUrl)
Public Sub AddErrCode(ErrCode)
Public Sub Showerr()
Public Sub Showmessanger(title,messangertext)
Public Sub Footer()
Public Sub Dvbbs_Suc(sucmsg)
Public Sub ReloadBoardCache(lboardid)
Public Sub ReloadBoardInfo(lboardid)
Public Sub ToolsLog(Log_ToolsID,CountNum,Log_Money,Log_Ticket,Log_Type,Conect,HMoney)
Public Function IsWebSearch()
四、(私有过程)，总计5个
1.有返回值，总计1个
Private Function getIP() '取得IP
2.无返回值，总计4个
Private Sub Class_Initialize() '类初始化
Private Sub class_terminate() '类结束
Private Sub GetGroupSetting()
Private Sub UserActiveOnline()
+ 查看当前日志评论 (1)
────────────
PJBlog3 v3.2.9.518 Inside.
Processed In 0.047 ms
标题: 动网Cls_Forum类分析
你没有权限发表评论
────────────
PJBlog3 v3.2.9.518 Inside.
Processed In 0.047 ms
暂无评论
────────────
PJBlog3 v3.2.9.518 Inside.
Processed In 0.047 ms