newasp中main类

论坛 期权论坛     
niminba   2021-5-22 15:06   75   0
&lt;% <br>Const&nbsp;IsDeBug&nbsp;=&nbsp;1 <br>Class&nbsp;NewaspMain_Cls <br><br>&nbsp;&nbsp;&nbsp;&nbsp;Public&nbsp;membername,&nbsp;memberpass,&nbsp;membergrade,&nbsp;membergroup,&nbsp;memberid <br>&nbsp;&nbsp;&nbsp;&nbsp;Public&nbsp;memberclass,&nbsp;menbernickname,&nbsp;Cookies_Name,&nbsp;CheckPassword <br><br>&nbsp;&nbsp;&nbsp;&nbsp;Public&nbsp;SiteName,&nbsp;SiteUrl,&nbsp;MasterMail,&nbsp;keywords,&nbsp;Copyright <br>&nbsp;&nbsp;&nbsp;&nbsp;Public&nbsp;InstallDir,&nbsp;IndexName,&nbsp;IstopSite,&nbsp;StopReadme,&nbsp;IsCloseMail <br>&nbsp;&nbsp;&nbsp;&nbsp;Public&nbsp;SendMailType,&nbsp;MailFrom,&nbsp;MailServer,&nbsp;MailUserName,&nbsp;MailPassword,&nbsp;MailInformPass,&nbsp;ChkSameMail <br>&nbsp;&nbsp;&nbsp;&nbsp;Public&nbsp;CheckUserReg,&nbsp;AdminCheckReg,&nbsp;AddUserPoint,&nbsp;SendRegMessage,&nbsp;FullContQuery,&nbsp;ActionTime <br>&nbsp;&nbsp;&nbsp;&nbsp;Public&nbsp;IsRunTime,&nbsp;UploadClass,&nbsp;UploadFileSize,&nbsp;UploadFileType,&nbsp;ContentKeyword,&nbsp;PreviewSetting <br>&nbsp;&nbsp;&nbsp;&nbsp;Public&nbsp;StopApplyLink,&nbsp;FSO_ScriptName,&nbsp;InitTitleColor,&nbsp;StopBankPay <br>&nbsp;&nbsp;&nbsp;&nbsp;Public&nbsp;ChinaeBank,&nbsp;VersionID,&nbsp;Badwords,&nbsp;Badwordr,&nbsp;serialcode,&nbsp;passedcode <br><br>&nbsp;&nbsp;&nbsp;&nbsp;Public&nbsp;ChannelName,&nbsp;ChannelDir,&nbsp;StopChannel,&nbsp;ChannelType <br>&nbsp;&nbsp;&nbsp;&nbsp;Public&nbsp;modules,&nbsp;ChannelSkin,&nbsp;HtmlPath,&nbsp;HtmlForm,&nbsp;HtmlPrefix <br>&nbsp;&nbsp;&nbsp;&nbsp;Public&nbsp;IsCreateHtml,&nbsp;HtmlExtName,&nbsp;StopUpload,&nbsp;MaxFileSize,&nbsp;UpFileType <br>&nbsp;&nbsp;&nbsp;&nbsp;Public&nbsp;IsAuditing,&nbsp;AppearGrade,&nbsp;ModuleName,&nbsp;BindDomain,&nbsp;DomainName <br>&nbsp;&nbsp;&nbsp;&nbsp;Public&nbsp;PostGrade,&nbsp;LeastString,&nbsp;MaxString,&nbsp;PaginalNum,&nbsp;LeastHotHist,&nbsp;Channel_Setting <br>&nbsp;&nbsp;&nbsp;&nbsp;Public&nbsp;ChannelSetting,ChannelData,ChannelPath <br>&nbsp;&nbsp;&nbsp;&nbsp;Public&nbsp;ChannelModule,ChannelHtmlPath,ChannelHtmlForm,ChannelUseHtml,ChannelHtmlExt,ChannelPrefix <br><br>&nbsp;&nbsp;&nbsp;&nbsp;Public&nbsp;ThisEdition,&nbsp;CopyrightStr,&nbsp;Version,&nbsp;Values,&nbsp;startime <br>&nbsp;&nbsp;&nbsp;&nbsp;Public&nbsp;SqlQueryNum,&nbsp;GetUserip,&nbsp;CacheName,&nbsp;Reloadtime <br><br>&nbsp;&nbsp;&nbsp;&nbsp;Public&nbsp;ScriptName,&nbsp;Admin_Page,&nbsp;skinid,&nbsp;SkinPath,&nbsp;HtmlCss,&nbsp;HtmlTop,&nbsp;HtmlFoot,&nbsp;HtmlContent,&nbsp;sHtmlContent <br>&nbsp;&nbsp;&nbsp;&nbsp;Private&nbsp;Main_Style,&nbsp;Main_Setting,&nbsp;MainStyle,&nbsp;Html_Setting <br>&nbsp;&nbsp;&nbsp;&nbsp;Private&nbsp;LocalCacheName,&nbsp;Cache_Data <br>&nbsp;&nbsp;&nbsp;&nbsp;Private&nbsp;CacheChannel,&nbsp;CacheData <br><br>&nbsp;&nbsp;&nbsp;&nbsp;Private&nbsp;arrGroupSetting,&nbsp;blnGroupSetting,&nbsp;binUserLong <br><br>&nbsp;&nbsp;&nbsp;&nbsp;Private&nbsp;Sub&nbsp;Class_Initialize() <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;On&nbsp;Error&nbsp;Resume&nbsp;Next <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Reloadtime&nbsp;=&nbsp;28800 <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;SqlQueryNum&nbsp;=&nbsp;0 <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;'--缓存名称 <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CacheName&nbsp;=&nbsp;"newasp" <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Cookies_Name&nbsp;=&nbsp;"newasp_net" <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;binUserLong&nbsp;=&nbsp;False <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;blnGroupSetting&nbsp;=&nbsp;False <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;GetUserip&nbsp;=&nbsp;Request.ServerVariables("HTTP_X_FORWARDED_FOR") <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;Len(GetUserip)&nbsp;=&nbsp;0&nbsp;Then&nbsp;GetUserip&nbsp;=&nbsp;Request.ServerVariables("REMOTE_ADDR") <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;GetUserip&nbsp;=&nbsp;CheckStr(GetUserip) <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;membername&nbsp;=&nbsp;CheckStr(Request.Cookies(Cookies_Name)("username")) <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;memberpass&nbsp;=&nbsp;CheckStr(Request.Cookies(Cookies_Name)("password")) <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;menbernickname&nbsp;=&nbsp;CheckStr(Request.Cookies(Cookies_Name)("nickname")) <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;membergrade&nbsp;=&nbsp;ChkNumeric(Request.Cookies(Cookies_Name)("UserGrade")) <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;membergroup&nbsp;=&nbsp;CheckStr(Request.Cookies(Cookies_Name)("UserGroup")) <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;memberclass&nbsp;=&nbsp;ChkNumeric(Request.Cookies(Cookies_Name)("UserClass")) <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;memberid&nbsp;=&nbsp;ChkNumeric(Request.Cookies(Cookies_Name)("userid")) <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;CheckPassword&nbsp;=&nbsp;CheckStr(Request.Cookies(Cookies_Name)("CheckPassword")) <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Dim&nbsp;tmpstr,&nbsp;i <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;tmpstr&nbsp;=&nbsp;Request.ServerVariables("PATH_INFO") <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;tmpstr&nbsp;=&nbsp;Split(tmpstr,&nbsp;"/") <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;i&nbsp;=&nbsp;UBound(tmpstr) <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;ScriptName&nbsp;=&nbsp;LCase(tmpstr(i)) <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;Admin_Page&nbsp;=&nbsp;False <br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;If&nbsp;InStr(ScriptName,&nbsp;"showerr")&nbsp;&gt;&nbsp;0&nbsp;Or&nbsp;InStr(Sc
分享到 :
0 人收藏
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

积分:1060120
帖子:212021
精华:0
期权论坛 期权论坛
发布
内容

下载期权论坛手机APP