电子警察标志牌安装位置信息登记系统 V1.0.1

【实例简介】

此软件绝对未加入任何病毒代码，完全可以放心使用，希望有更新功能的管理用户，非常感谢！

V1.0.1更新内容 ：取消信息登记里面的日期和图纸编号字段,多个图片上传改为单个图片上传,若干个必选项改为非必选项。

【实例截图】

【核心代码】

<%@ CodePage="65001" %>
<%
Response.Buffer = EW_RESPONSE_BUFFER
%>
<!--#include file="Guohua_network_control_studio_ewcfg15.asp"-->
<!--#include file="Guohua_network_control_studio_Usersinfo.asp"-->
<!--#include file="Guohua_network_control_studio_aspfn15.asp"-->
<!--#include file="Guohua_network_control_studio_userfn15.asp"-->
<% Call ew_Header(False, EW_CHARSET, False) %>
<% Server.ScriptTimeout = 1800 %>
<%

' Define page object
Dim default
Set default = New cdefault
Set Page = default

' Page init processing
Call default.Page_Init

' Page main
Call default.Page_Main
%>
<!--#include file="Guohua_network_control_studio_header.asp"-->
<% Call default.ShowMessage %>
<!--#include file="Guohua_network_control_studio_footer.asp"-->
<%

' Clean up and drop page object
Call default.Page_Terminate("")
Set default = Nothing
%>
<%

'
' Page Class
'
Class cdefault

    ' Page ID
    Public Property Get PageID
        PageID = "default"
    End Property

    ' Project ID
    Public Property Get ProjectID
        ProjectID = "{9FA369A4-AEC2-43AB-9150-8E45DB93286B}"
    End Property

    ' Page Object Name
    Public Property Get PageObjName
        PageObjName = "default"
    End Property

    ' Field (S_number)
    Public Property Get S_number
        Set S_number = Users.S_number
    End Property

    ' Field (User_level)
    Public Property Get User_level
        Set User_level = Users.User_level
    End Property

    ' Field (User_name)
    Public Property Get User_name
        Set User_name = Users.User_name
    End Property

    ' Field (user_pwd)
    Public Property Get user_pwd
        Set user_pwd = Users.user_pwd
    End Property

    ' Field (User_email)
    Public Property Get User_email
        Set User_email = Users.User_email
    End Property

    ' Field (Activated)
    Public Property Get Activated
        Set Activated = Users.Activated
    End Property

    ' Field (Userprofile)
    Public Property Get zUserprofile
        Set zUserprofile = Users.zUserprofile
    End Property

    ' Field (User_info)
    Public Property Get User_info
        Set User_info = Users.User_info
    End Property

    ' Get field object dictionary (ASP)
    Public Property Get Fields
        Set Fields = Users.Fields
    End Property

    ' Get field object by name (alias of Fields) (ASP)
    Public Function GetField(Name)
        Set GetField = Fields.Get(Name)
    End Function

    ' Get field object by parm (ASP)
    Public Function GetFieldByParm(Parm)
        Dim keys, key
        keys = Fields.Keys()
        For Each key In keys
            If Fields.Get(key).FldParm = Parm Then
                Set GetFieldByParm = Fields.Get(key)
                Exit Function
            End If
        Next
        Set GetFieldByParm = Nothing
    End Function

    ' Export document (ASP)
    Dim ExportDoc

    ' Page headings
    Dim Heading
    Dim Subheading

    ' Page heading
    Function PageHeading()
        PageHeading = ""
        If Heading <> "" Then
            PageHeading = Heading
        End If
    End Function

    ' Page subheading
    Function PageSubheading()
        If Subheading <> "" Then
            PageSubheading = Subheading
        Else
            PageSubheading = ""
        End If
    End Function

    ' Page Name
    Public Property Get PageName
        PageName = ew_CurrentPage()
    End Property

    ' Page Url
    Public Property Get PageUrl
        PageUrl = ew_CurrentPage() & "?"
    End Property

    ' Message
    Public Property Get Message
        Message = Session(EW_SESSION_MESSAGE)
    End Property

    Public Property Let Message(v)
        Dim msg
        msg = Session(EW_SESSION_MESSAGE)
        Call ew_AddMessage(msg, v)
        Session(EW_SESSION_MESSAGE) = msg
    End Property

    Public Property Get FailureMessage
        FailureMessage = Session(EW_SESSION_FAILURE_MESSAGE)
    End Property

    Public Property Let FailureMessage(v)
        Dim msg
        msg = Session(EW_SESSION_FAILURE_MESSAGE)
        Call ew_AddMessage(msg, v)
        Session(EW_SESSION_FAILURE_MESSAGE) = msg
    End Property

    Public Property Get SuccessMessage
        SuccessMessage = Session(EW_SESSION_SUCCESS_MESSAGE)
    End Property

    Public Property Let SuccessMessage(v)
        Dim msg
        msg = Session(EW_SESSION_SUCCESS_MESSAGE)
        Call ew_AddMessage(msg, v)
        Session(EW_SESSION_SUCCESS_MESSAGE) = msg
    End Property

    Public Property Get WarningMessage
        WarningMessage = Session(EW_SESSION_WARNING_MESSAGE)
    End Property

    Public Property Let WarningMessage(v)
        Dim msg
        msg = Session(EW_SESSION_WARNING_MESSAGE)
        Call ew_AddMessage(msg, v)
        Session(EW_SESSION_WARNING_MESSAGE) = msg
    End Property

    ' Methods to clear message
    Public Sub ClearMessage()
        Session(EW_SESSION_MESSAGE) = ""
    End Sub

    Public Sub ClearFailureMessage()
        Session(EW_SESSION_FAILURE_MESSAGE) = ""
    End Sub

    Public Sub ClearSuccessMessage()
        Session(EW_SESSION_SUCCESS_MESSAGE) = ""
    End Sub

    Public Sub ClearWarningMessage()
        Session(EW_SESSION_WARNING_MESSAGE) = ""
    End Sub

    Public Sub ClearMessages()
        Session(EW_SESSION_MESSAGE) = ""
        Session(EW_SESSION_FAILURE_MESSAGE) = ""
        Session(EW_SESSION_SUCCESS_MESSAGE) = ""
        Session(EW_SESSION_WARNING_MESSAGE) = ""
    End Sub

    ' Show Message
    Public Sub ShowMessage()
        Dim hidden, html, sMessage
        hidden = False
        html = ""

        ' Message
        sMessage = Message
        Call Message_Showing(sMessage, "")
        If sMessage <> "" Then ' Message in Session, display
            If Not hidden Then sMessage = "<button type=""button"" class=""close"" data-dismiss=""alert"">&times;</button>" & sMessage
            html = html & "<div class=""alert alert-info ewInfo"">" & sMessage & "</div>"
            Session(EW_SESSION_MESSAGE) = "" ' Clear message in Session
        End If

        ' Warning message
        Dim sWarningMessage
        sWarningMessage = WarningMessage
        Call Message_Showing(sWarningMessage, "warning")
        If sWarningMessage <> "" Then ' Message in Session, display
            If Not hidden Then sWarningMessage = "<button type=""button"" class=""close"" data-dismiss=""alert"">&times;</button>" & sWarningMessage
            html = html & "<div class=""alert alert-warning ewWarning"">" & sWarningMessage & "</div>"
            Session(EW_SESSION_WARNING_MESSAGE) = "" ' Clear message in Session
        End If

        ' Success message
        Dim sSuccessMessage
        sSuccessMessage = SuccessMessage
        Call Message_Showing(sSuccessMessage, "success")
        If sSuccessMessage <> "" Then ' Message in Session, display
            If Not hidden Then sSuccessMessage = "<button type=""button"" class=""close"" data-dismiss=""alert"">&times;</button>" & sSuccessMessage
            html = html & "<div class=""alert alert-success ewSuccess"">" & sSuccessMessage & "</div>"
            Session(EW_SESSION_SUCCESS_MESSAGE) = "" ' Clear message in Session
        End If

        ' Failure message
        Dim sErrorMessage
        sErrorMessage = FailureMessage
        Call Message_Showing(sErrorMessage, "failure")
        If sErrorMessage <> "" Then ' Message in Session, display
            If Not hidden Then sErrorMessage = "<button type=""button"" class=""close"" data-dismiss=""alert"">&times;</button>" & sErrorMessage
            html = html & "<div class=""alert alert-danger ewError"">" & sErrorMessage & "</div>"
            Session(EW_SESSION_FAILURE_MESSAGE) = "" ' Clear message in Session
        End If
        Response.Write "<div class=""ewMessageDialog""" & ew_IIf(hidden, " style=""display: none;""", "") & ">" & html & "</div>"
    End Sub
    Dim Token
    Dim CheckToken
    Dim TokenTimeout

    ' Valid Post
    Function ValidPost()
        If Not CheckToken Or Not ew_IsPost() Then
            ValidPost = True
            Exit Function
        End If
        If Request.Form(EW_TOKEN_NAME).Count = 0 Then
            ValidPost = False
            Exit Function
        End If
        ValidPost = ew_CheckToken(Request.Form(EW_TOKEN_NAME),TokenTimeout)
    End Function

    ' Create Token
    Sub CreateToken()
        If CheckToken And Token = "" Then
            Token = ew_CreateToken()
            gsToken = Token ' Save to global variable
        End If
    End Sub

    '
    ' Class initialize
    '
    Private Sub Class_Initialize()
        Session.LCID = 1033 ' Always use US locale id
        If IsEmpty(StartTimer) Then StartTimer = Timer ' Init start time

        ' Check Token
        Token = ""
        CheckToken = EW_CHECK_TOKEN
        TokenTimeout = 0
        TokenTimeout = ew_SessionTimeoutTime()

        ' Initialize language object
        If IsEmpty(Language) Then
            Set Language = New cLanguage
            Call Language.LoadPhrases
        End If

        ' Initialize form object
        Set ObjForm = Nothing

        ' Get resize object
        Call ew_GetResizeObj

        ' Intialize page id (for backward compatibility)
        EW_PAGE_ID = "default"

        ' Debug message
        Call ew_LoadDebugMsg

        ' Open connection to the database
        If IsEmpty(Conn) Then
            Set Conn = ew_Connect("DB")
        End If

        ' User table object (Users)
        If IsEmpty(UserTable) Then
            Set UserTable = New cUsers
            Set UserTableConn = ew_GetConn(UserTable.TableDBID)
        End If
    End Sub

    '
    ' Page_Init
    '
    Sub Page_Init()

        ' User profile
        Set UserProfile = New cUserProfile

        ' Security
        Set Security = New cAdvancedSecurity

        ' Global page loading event (in userfn*.asp)
        Call Page_Loading

        ' Page load event, used in current page
        Call Page_Load

        ' Check token
        If Not ValidPost() Then
            Response.Write Language.Phrase("InvalidPostRequest")
            Call Page_Terminate("")
            Response.End
        End If

        ' Create Token
        Call CreateToken
    End Sub

    '
    ' Page_Terminate
    '
    Sub Page_Terminate(url)
        If Request.Form("customexport")&"" = "" Then

            ' Page unload event, used in current page
            Call Page_Unload

            ' Global page unloaded event (in userfn*.asp)
            Call Page_Unloaded
        End If
        Dim sRedirectUrl
        sRedirectUrl = url
        Call Page_Redirecting(sRedirectUrl)
        Call ew_CloseConn ' Close Connection
        Set Security = Nothing
        Set ObjForm = Nothing
        Set gResizeObj = Nothing

        ' Go to URL if specified
        If gsExport & "" = "" Then
            If sRedirectUrl <> "" Then
                If Response.Buffer Then Response.Clear
                Call ew_SaveDebugMsg
                Response.Redirect sRedirectUrl
            End If
        End If
        Call ew_CleanUp
    End Sub

    '
    ' Page_Terminate (End)
    '
    ' Page main
    Sub Page_Main()
        Set Breadcrumb = New cBreadcrumb

        ' If session expired, show session expired message
        If Request.QueryString("expired") = "1" Then
            FailureMessage = Language.Phrase("SessionExpired")
        End If
        If Not Security.IsLoggedIn() Then Security.AutoLogin()
        Call Security.LoadUserLevel ' Load user level
        If Security.AllowList(CurrentProjectID() & "Installation_position") Then
            Call Page_Terminate("Guohua_network_control_studio_Installation_positionlist.asp") ' Exit and go to default page
        End If
        If Security.AllowList(CurrentProjectID() & "Registration_system_of_installation_position_information_of_elec") Then
            Call Page_Terminate("Guohua_network_control_studio_Registration_system_of_installation_position_information_of_eleclist.asp")
        End If
        If Security.AllowList(CurrentProjectID() & "type") Then
            Call Page_Terminate("Guohua_network_control_studio_ztypelist.asp")
        End If
        If Security.AllowList(CurrentProjectID() & "UserLevelPermissions") Then
            Call Page_Terminate("Guohua_network_control_studio_UserLevelPermissionslist.asp")
        End If
        If Security.AllowList(CurrentProjectID() & "UserLevels") Then
            Call Page_Terminate("Guohua_network_control_studio_UserLevelslist.asp")
        End If
        If Security.AllowList(CurrentProjectID() & "Users") Then
            Call Page_Terminate("Guohua_network_control_studio_Userslist.asp")
        End If
        If Security.AllowList(CurrentProjectID() & "Software_use_help") Then
            Call Page_Terminate("Guohua_network_control_studio_Software_use_helplist.asp")
        End If
        If Security.AllowList(CurrentProjectID() & "电警标牌安装位置明细查询") Then
            Call Page_Terminate("Guohua_network_control_studio_z75358B666807724C5B8988C54F4D7F6E660E7EC667E58BE2list.asp")
        End If
        If Security.IsLoggedIn() Then
            FailureMessage = ew_DeniedMsg() & "<br><br><a href=""Guohua_network_control_studio_logout.asp"">" & Language.Phrase("BackToLogin") & "</a>"
        Else
            Call Page_Terminate("Guohua_network_control_studio_login.asp") ' Exit and go to login page
        End If
    End Sub

    ' Page Load event
    Sub Page_Load()

        'Response.Write "Page Load"
    End Sub

    ' Page Unload event
    Sub Page_Unload()

        'Response.Write "Page Unload"
    End Sub

    ' Page Redirecting event
    Sub Page_Redirecting(url)

        'url = newurl
    End Sub

    ' Message Showing event
    ' typ = ""|"success"|"failure"
    Sub Message_Showing(msg, typ)

        ' Example:
        'If typ = "success" Then msg = "your success message"

    End Sub
End Class
%>