cls_main.asp第1/3页

<%
class cls_main
    Public ScriptName, SqlQueryNum, savelog, system, ResLicence, ResType, ResLanguage, UserClass, strMsg, RefererPage
    Public adminName, adminPass, System_Sn, UserTrueIP
    Public Reloadtime, MaxCount, CacheName, Cache_Data, sPath
    Private LocalCacheName, CacheData, DelCount, ArrSetting
    Public MemberUserName, MemberUserID, MemberUserPassword, MemberUserClass, MemberVipType
    '类初始化
    Private Sub Class_Initialize()        
        savelog = 0 '设置为1的时候会记录攻击或错误错信息。
        SqlQueryNum = 0
        Dim Tmpstr, i
        Tmpstr = Request.ServerVariables("PATH_INFO")
        Tmpstr = Split(Tmpstr, "/")
        i = UBound(Tmpstr)
        ScriptName = LCase(Tmpstr(i))
        RefererPage = Request.ServerVariables("HTTP_REFERER")
        adminName = Session("adminName")
        adminPass = Session("adminPass")

Reloadtime = 14400
        CacheName = Replace(Replace(Replace(Server.MapPath("index.asp"), "index.asp", ""), ":", ""), "\", "")
        System_Sn = LCase(Replace(Request.ServerVariables("SERVER_NAME") & Request.ServerVariables("URL"), Split(Request.ServerVariables("SCRIPT_NAME"), "/")(UBound(Split(Request.ServerVariables("SCRIPT_NAME"), "/"))), ""))
        UserTrueIP = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
        If UserTrueIP = "" Then UserTrueIP = Request.ServerVariables("REMOTE_ADDR")
        UserTrueIP = checkStr(UserTrueIP)

If SystemEdition = 3 Then
            sPath = "../"
        Else
            sPath = ""
        End If

MemberUserName = checkStr(Request.Cookies(System_Sn)("MemberUserName"))
        MemberUserID = checkStr(Request.Cookies(System_Sn)("MemberUserID"))
        MemberUserPassword = checkStr(Request.Cookies(System_Sn)("MemberUserPassword"))
        MemberUserClass = checkStr(Request.Cookies(System_Sn)("MemberUserClass"))
        MemberVipType = checkStr(Request.Cookies(System_Sn)("MemberVipType"))

End Sub

'类结束
    Private Sub Class_Terminate()
        If IsObject(Conn) Then
            'Conn.Close
            Set Conn = Nothing
        End If
    End Sub

Public Property Let Name(ByVal vNewValue)
        LocalCacheName = LCase(vNewValue)
    End Property
    Public Property Let Value(ByVal vNewValue)
        If LocalCacheName <> "" Then
            ReDim Cache_Data(2)
            Cache_Data(0) = vNewValue
            Cache_Data(1) = Now()
            Application.Lock
            Application(CacheName & "_" & LocalCacheName) = Cache_Data
            Application.UnLock
        Else
            Err.Raise vbObjectError + 1, "Mesky.Cn CacheServer", " please change the CacheName."
        End If
    End Property
    Public Property Get Value()
        If LocalCacheName <> "" Then
            Cache_Data = Application(CacheName & "_" & LocalCacheName)
            If IsArray(Cache_Data) Then
                Value = Cache_Data(0)
            Else
                Err.Raise vbObjectError + 1, "Mesky.Cn CacheServer", " The Cache_Data(" & LocalCacheName & ") Is Empty."
            End If
        Else
            Err.Raise vbObjectError + 1, "Mesky.Cn CacheServer", " please change the CacheName."
        End If
    End Property
    Public Function ObjIsEmpty()
        ObjIsEmpty = True
        Cache_Data = Application(CacheName & "_" & LocalCacheName)
        If Not IsArray(Cache_Data) Then Exit Function
        If Not IsDate(Cache_Data(1)) Then Exit Function
        If DateDiff("s", CDate(Cache_Data(1)), Now()) < (60 * Reloadtime) Then ObjIsEmpty = False
    End Function
    Public Sub DelCahe(MyCaheName)
        Application.Lock
        Application.Contents.Remove (CacheName & "_" & MyCaheName)
        Application.UnLock
    End Sub

'加载系统配置信息
    Public Sub LoadSetting()
        Dim Rs
        'If Not IsObject(Conn) Then ConnectionDatabase
        Set Rs = Execute("Select Setting From Mesky_Setting where isDefault=1")
        ArrSetting = Split(Rs("Setting"), "{$}")
        Set Rs = Nothing
        system = Split(ArrSetting(144), ",")
        ResLicence = Split(ArrSetting(141), ",")
        ResLanguage = Split(ArrSetting(142), ",")
        ResType = Split(ArrSetting(143), ",")
        UserClass = Split(ArrSetting(140), ",")
        Name = "StyleName"
        If ObjIsEmpty Then Call ReloadTemplates
    End Sub
    Public Function Setting(s)
        Setting = ArrSetting(s)
    End Function
    Public Sub ReloadTemplates()
        Dim Rs, i
        Set Rs = Execute("select top 1 * from Mesky_Style where isDefault =1")
        If Not (Rs.EOF And Rs.BOF) Then
            For i = 2 To Rs.Fields.Count - 3
                Name = Rs(i).Name
                'Response.Write(Rs(i).Name)
                Value = Rs(i).Value
            Next
        End If
        Set Rs = Nothing
    End Sub

当前1/3页 123下一页阅读全文

(0)

相关推荐

  • cls_main.asp第1/3页

    <% class cls_main     Public ScriptName, SqlQueryNum, savelog, system, ResLicence, ResType, ResLanguage, UserClass, strMsg, RefererPage     Public adminName, adminPass, System_Sn, UserTrueIP     Public Reloadtime, MaxCount, CacheName, Cache_Data, sPa

  • asp.net实现取消页面表单内文本输入框Enter响应的方法

    本文实例讲述了asp.net实现取消页面表单内文本输入框Enter响应的方法.分享给大家供大家参考,具体如下: 很早以前开发asp.net项目的时候遇到的:在一个服务器TextBox控件上按下 Enter键,页面回发刷新一遍.后来google一下,发现这是asp.net2.0为表单处理专门设置的"Enter key"功能,关于asp.net ajax表单的enter key,你可以查看这一篇<ASP.NET基于Ajax的Enter键提交问题>.前面给出链接的两篇都是叫我们怎

  • asp.net 生成静态页笔记

    1.使用serever.Excute 复制代码 代码如下: StreamWriter sw = new StreamWriter(Server.MapPath("html/Login.html"), false); Server.Execute("ShowColumn.aspx?id=1&page=2", sw); sw.Close(); 2.替换字符 url重写 1.定义重写规则 urls.xml 变成urls.config 复制代码 代码如下: <

  • ASP.NET MVC3模板页的使用(2)

    本文为大家演示下MVC3中怎样使用模板页,在传统的webform设计模式中,我们使用masterpage作为模板页,在MVC3 razor视图设计中,我们使用另一种方式作为模板页. 新建一个MVC3项目,在解决方案资源管理中,我们可以看到VIEWS文件夹下面有一个Shared文件夹.在Shared文件夹里面有一个_Layout.cshtml页面.这个就是项目中默认的模板页面.如下图所示 : 1.新建内容页         内容页在MVC3中也叫做视图布局页,可以右键选中视图文件夹,通过添加视图来

  • Asp.Net 生成静态页并实现分页效果

    1.静态模板页面 template.html,主要是定义了一些特殊字符,用来被替换. 复制代码 代码如下: <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN""http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <meta http-equiv="Content-Type" co

  • asp.net gridview多页时的批量删除

    book_admin.aspx 复制代码 代码如下: <asp:GridView ID="grwBook" runat="server" CellPadding="4" ForeColor="#333333" GridLines="None" AutoGenerateColumns="false" AllowPaging="true" DataKeyNames=

  • EasyASP v1.5发布(包含数据库操作类,原clsDbCtrl.asp)第1/2页

    而Easp类中提供了大量实用的ASP通用过程及方法,可以简化大部分的ASP操作.目前只提供了VBScript版,JScript版将来可能会提供.EasyASP v1.5 (2008-10-22更新) 新增功能: 1.将数据库控制类(原clsDbCtrl.asp)封装入Easp类,均通过Easp.db调用,也可独立使用. 2.新增MSSQL存储过程调用方法,可灵活调用存储过程并返回返回值.记录集及出参. 3.新增db.CreatConn方法,可以根据自定义的连接字符串连接数据库. 4.新增db.J

  • asp+javascript实现404页的处理转换

    主要是给用户的友好性,原来用户是依靠搜索引擎进入我每篇文章的,怎么能让用户让一个旧的页面跳转到新的页面,且文章不变,如: 程序代码   http://www.jb51.net/blog/article.asp?id=381  //旧网址   进入之后自动跳转到   http://www.jb51.net/article.asp?id=381 这就需要new321服务器的404页来处理了,代码如下: 程序代码   <%    url=Request.ServerVariables("QUER

  • asp.net 生成静态页时的进度条显示

    asp.net如何生成静态页,请参考下面的文章:http://www.jb51.net/article/18175.htm而我们用模拟的话,只需要让线程延迟执行就可以了.比如下面的代码: 复制代码 代码如下: for (int i = 0; i < 10; i++) { DateTime startTime = DateTime.Now; Response.Write(i + "-------------执行时间:" + startTime.ToString()+"&l

  • asp.net生成静态页并分页+ubb第1/2页

    作为练习我加入了"插入代码""插入运行代码",大家可以看情况,加入其他UBB. 2.代码:default.aspx.cs 复制代码 代码如下: using System; using System.Data; using System.Configuration; using System.Web; using System.Web.Security; using System.Web.UI; using System.Web.UI.WebControls; usi

随机推荐