动网论坛核心类源码注释

<object runat="server" id="DvStream" progid="ADODB.Stream"></object>
<%
'=========================================================
' File: Dv_ClsMain.asp
' Version:8.2.0
' Date: 2007-3-10
' Script Written by dvbbs.net
'=========================================================
' Copyright (C) 2003,2004 AspSky.Net. All rights reserved.
' Web: http://www.aspsky.net,http://www.dvbbs.net
' Email: eway@aspsky.net
'=========================================================
'是否商业版，非官方SQL版本请在此设置为0以及在Conn中设置论坛为SQL数据库，否则显示不正常
Const IsBuss=1 '定义变量,初始值为1
Const Dvbbs_Server_Url = "http://server.dvbbs.net/" '定义动网服务器地址http://server.dvbbs.net
Const Dvbbs_PayTo_Url = "http://pay.dvbbs.net/" '定义动网http://pay.dvbbs.net/
Const fversion="8.2.0" '定义版本号
Dim IP_MAX
Const guestxml="<?xml version=""1.0"" encoding=""gb2312""?><xml><userinfo statuserid=""0"" userid=""0"" username=""客人"" userclass=""客人"" usergroupid=""7"" cometime="""" boardid=""0"" activetime="""" statusstr=""""/></xml>"'定义一个xml文件,主要是做中间缓存作用,防止频繁读写数据库,值得借鉴
Class Cls_Forum
 Rem 对各字段的解释,StyleName和NowUseBBS两变量没有用到
 'BoardID 论坛ID,SqlQueryNum 数据库查询次数,Forum_Info 论坛基本信息,Forum_Setting 论坛设置信息,Forum_user 论坛用户,Forum_Copyright 论坛版权,Forum_ads 论坛广告,
 'Forum_ChanSetting 论坛栏目基本设置,Forum_UploadSetting 论坛上传设置,Forum_sn 论坛名称,Forum_Version 论坛版本号,Stats 网页的标题信息,
 'StyleName 论坛使用的样式名称,Cookiepath Cookie路径,ScriptFolder 暂放 ,BoardInfoData 论坛信息基本数据,UserSession 用户Session信息
 'MainSetting 论坛的基本设置信息(字体大小,颜色等),sysmenu 系统菜单,UserToday 存储的是0|0|0|0|0,还不知道是干吗用的,BoardJumpList 论坛跳转菜单,BoardList 论坛列表,
 'CacheData 论坛缓存数据,Maxonline 最大在线人数,VipGroupUser Vip用户组,Vipuser vip用户,Boardmaster 论坛版主,Superboardmaster 论坛超级版主,Master 管理员,
 'FoundIsChallenge 暂放,FoundUser 暂放,ScriptName 文件名的前缀,MemberName 用户名,MemberWord 用户密码,MemberClass 用户头衔,UserHidden 是否隐身,UserID 用户ID,
 'UserTrueIP 论坛用户真实IP, UserPermission 用户访问权限设置字段,sendmsgnum 发送短消息数目,sendmsgid 短消息ID,sendmsguser 发送短消息用户,Page_Admin 判断用的
 'BadWords 需要过滤的词汇,rBadWord 过滤后的显示的词汇,Forum_emot 论坛心情图标,Forum_UserFace 论坛用户图象,SkinID 主题样式ID,Forum_PicUrl 论坛图片路径
 'Forum_CSS 论坛样式,Main_Sid 暂放,Nowstats 暂放,CssID 样式表ID,ReloadTime 缓存有效时间,CacheName 缓存名称,UserGroupID 用户所在组ID,Lastlogin 最后登陆,
 'GroupSetting 圈子设置,FoundUserPer 布尔值,UserGroupParent 用户所在圈子,UserGroupParentID 用户所在圈子ID
 'LocalCacheName 本地缓存名,IsTopTable 一常量(0和1),ShowErrType 错误信息显示模式,Board_Setting 分论坛设置信息,LastPost 最后注销时间,Board_User 暂放,
 'BoardType 论坛类型,Board_Data 论坛缓存数据,sid 暂放,Boardreadme 论坛帮助,BoardRootID 论坛根ID,BoardParentID 论坛父ID,Is_Isapi_Rewrite 是否重写, iArchiverUrl 暂放
 'Browser 浏览器,version 版本号,platform 操作系统,IsSearch 布尔值,Cls_IsSearch 暂放,IsUserPermissionAll 是否允许所有用户,ShowSQL 显示SQL,GroupName 圈子名称
 'ScriptPath 模板路径,Forum_apis 论坛插件
 
 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 MainSetting,sysmenu,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
 Private Forum_CSS,Main_Sid,Nowstats,CssID
 Public Reloadtime,CacheName,UserGroupID,Lastlogin,GroupSetting,FoundUserPer,UserGroupParent,UserGroupParentID
 Private LocalCacheName,IsTopTable,ShowErrType
 Public Board_Setting,LastPost,Board_user,BoardType,Board_Data,Sid,Boardreadme,BoardRootID,BoardParentID
 Private Is_Isapi_Rewrite,iArchiverUrl
 Public ModHtmlLinked,ArchiverUrl,ArchiverType
 Public Browser,version ,platform,IsSearch,Cls_IsSearch
 Public IsUserPermissionOnly,IsUserPermissionAll,ShowSQL,actforip,DvRegExp,DvRegExp1
 Public GroupName,ScriptPath,Forum_apis
 Rem Const
 Function iCreateObject(str)
  'iis5创建对象方法Server.CreateObject(ObjectName);
  'iis6创建对象方法CreateObject(ObjectName);
  '默认为iis6，如果在iis5中使用，需要改为Server.CreateObject(str);
  Set iCreateObject=CreateObject(str)'创建一个对象
 End Function

 Function CreateXmlDoc(str)
  Set CreateXmlDoc = iCreateObject(str)'创建一个xml对象
  CreateXmlDoc.async=false
 End Function
 

 Public Function ReadTextFile(fileName)'读取文本函数
  On Error Resume Next
   'Response.Write Server.MapPath(ScriptPath&fileName)
   DvStream.charset="gb2312"'字符编码,gb2312表示简体中文
   DvStream.Mode = 3'对数据的修改权限,3表示可读写
   DvStream.open()'打开流模式
   DvStream.LoadFromFile(Server.MapPath(ScriptPath&fileName))'调入文件路径
   ReadTextFile=DvStream.ReadText'读取文件内容
   DvStream.close()'关闭流模式
  If Err Then
   err.Clear
   PageEnd()
   Response.Clear
   Response.Write ScriptPath&fileName & "文件不存在！请检查,或者恢复官方模板数据！"
   Response.End
  End If
 End Function

 Function writeToFile(fileName,Text)'写入文本函数
  DvStream.charset="gb2312"'字符编码简体中文
  DvStream.Mode = 3'表示可读写
  DvStream.open()'打开流模式
  DvStream.WriteText(Text)'写入文件内容
  DvStream.SaveToFile Serv