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