在好例子网,分享、交流、成长!
您当前所在位置:首页ASP 开发实例ASP/Basic基础 → 访客测温登记系统 V1.3.1

访客测温登记系统 V1.3.1

ASP/Basic基础

下载此实例
  • 开发语言:ASP
  • 实例大小:3.33M
  • 下载次数:51
  • 浏览次数:446
  • 发布时间:2021-01-14
  • 实例类别:ASP/Basic基础
  • 发 布 人:chendaiguo
  • 文件格式:.zip
  • 所需积分:10
 相关标签: 测温 访客 系统

实例介绍

【实例简介】


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

国华网控工作室_访客测温登记系统 V1.0,该系统主要分为访客信息登记和访客测温登记两个模块。


有感于最近疫情严重,有急事预约进入办公场所的人,需要进行访客登记记录,此时需要手动在记录本上,记录访客人员名称等信息,很是麻烦。

利用半天时间,做了一个简洁版的访客测温登记系统,该系统使用ACCESS2003做为数据库,方便部署,不需网络连接,复制过去解压放到虚拟主机即可运行。

默认登录账号:admin,密码:111

页脚信息统计信息和域名备案信息可以定制;

发送到邮箱的功能需要生成授权密码;

需要的可以与作者联系QQ:3409306881

【实例截图】

【核心代码】

<%@ CodePage="65001" %>
<%
Response.Buffer = EW_RESPONSE_BUFFER
%>
<!--#include file="ontrial_ewcfg15.asp"-->
<!--#include file="ontrial_Temperature_measurement_registrationinfo.asp"-->
<!--#include file="ontrial_Usersinfo.asp"-->
<!--#include file="ontrial_aspfn15.asp"-->
<!--#include file="ontrial_userfn15.asp"-->
<% Call ew_Header(False, EW_CHARSET, False) %>
<% Server.ScriptTimeout = 28800 %>
<%

' Define page object
Dim Temperature_measurement_registration_add
Set Temperature_measurement_registration_add = New cTemperature_measurement_registration_add
Set Page = Temperature_measurement_registration_add

' Page init processing
Call Temperature_measurement_registration_add.Page_Init

' Page main
Call Temperature_measurement_registration_add.Page_Main

' Global Page Rendering event (in userfn*.asp)
Page_Rendering()

' Page Render event
Temperature_measurement_registration_add.Page_Render()
%>
<!--#include file="ontrial_header.asp"-->
<script type="text/javascript">
// Form object
var CurrentPageID = EW_PAGE_ID = "add";
var CurrentForm = fTemperature_measurement_registrationadd = new ew_Form("fTemperature_measurement_registrationadd", "add");
// Validate form
fTemperature_measurement_registrationadd.Validate = function() {
    if (!this.ValidateRequired)
        return true; // Ignore validation
    var $ = jQuery, fobj = this.GetForm(), $fobj = $(fobj);
    if ($fobj.find("#a_confirm").val() == "F")
        return true;
    var elm, felm, uelm, addcnt = 0;
    var $k = $fobj.find("#" this.FormKeyCountName); // Get key_count
    var rowcnt = ($k[0]) ? parseInt($k.val(), 10) : 1;
    var startcnt = (rowcnt == 0) ? 0 : 1; // Check rowcnt == 0 => Inline-Add
    var gridinsert = $fobj.find("#a_list").val() == "gridinsert";
    for (var i = startcnt; i <= rowcnt; i ) {
        var infix = ($k[0]) ? String(i) : "";
        $fobj.data("rowindex", infix);
            elm = this.GetElements("x" infix "_Date_of_registration");
            if (elm && !ew_IsHidden(elm) && !ew_HasValue(elm))
                return this.OnError(elm, "<%= ew_JsEncode2(Replace(Temperature_measurement_registration.Date_of_registration.ReqErrMsg, "%s", Temperature_measurement_registration.Date_of_registration.FldCaption)) %>");
            elm = this.GetElements("x" infix "_Date_of_registration");
            if (elm && !ew_CheckDateDef(elm.value))
                return this.OnError(elm, "<%= ew_JsEncode2(Temperature_measurement_registration.Date_of_registration.FldErrMsg) %>");
            elm = this.GetElements("x" infix "_User_fullname");
            if (elm && !ew_IsHidden(elm) && !ew_HasValue(elm))
                return this.OnError(elm, "<%= ew_JsEncode2(Replace(Temperature_measurement_registration.User_fullname.ReqErrMsg, "%s", Temperature_measurement_registration.User_fullname.FldCaption)) %>");
            elm = this.GetElements("x" infix "_Place_of_origin_1");
            if (elm && !ew_IsHidden(elm) && !ew_HasValue(elm))
                return this.OnError(elm, "<%= ew_JsEncode2(Replace(Temperature_measurement_registration.Place_of_origin_1.ReqErrMsg, "%s", Temperature_measurement_registration.Place_of_origin_1.FldCaption)) %>");
            elm = this.GetElements("x" infix "_temperature");
            if (elm && !ew_CheckNumber(elm.value))
                return this.OnError(elm, "<%= ew_JsEncode2(Temperature_measurement_registration.temperature.FldErrMsg) %>");
            elm = this.GetElements("x" infix "_Departure_time");
            if (elm && !ew_CheckDateDef(elm.value))
                return this.OnError(elm, "<%= ew_JsEncode2(Temperature_measurement_registration.Departure_time.FldErrMsg) %>");
            // Fire Form_CustomValidate event
            if (!this.Form_CustomValidate(fobj))
                return false;
    }
    // Process detail forms
    var dfs = $fobj.find("input[name='detailpage']").get();
    for (var i = 0; i < dfs.length; i ) {
        var df = dfs[i], val = df.value;
        if (val && ewForms[val])
            if (!ewForms[val].Validate())
                return false;
    }
    return true;
}
// Form_CustomValidate event
fTemperature_measurement_registrationadd.Form_CustomValidate =
 function(fobj) { // DO NOT CHANGE THIS LINE!
     // Your custom validation code here, return false if invalid.
     return true;
 }
// Use JavaScript validation or not
<% If EW_CLIENT_VALIDATE Then %>
fTemperature_measurement_registrationadd.ValidateRequired = true; // Use JavaScript validation
<% Else %>
fTemperature_measurement_registrationadd.ValidateRequired = false; // No JavaScript validation
<% End If %>
// Dynamic selection lists
fTemperature_measurement_registrationadd.Lists["x_User_fullname"] = {"LinkField":"x_User_fullname","Ajax":true,"AutoFill":true,"DisplayFields":["x_User_fullname","","",""],"ParentFields":[],"ChildFields":[],"FilterFields":[],"Options":[],"Template":"","LinkTable":"visitor_maillist"};
fTemperature_measurement_registrationadd.Lists["x_User_fullname"].Data = "<%= Temperature_measurement_registration.User_fullname.LookupFilterQuery(False, "add", Temperature_measurement_registration_add) %>";
fTemperature_measurement_registrationadd.Lists["x_Place_of_origin_1"] = {"LinkField":"x_Place_of_origin_1","Ajax":true,"AutoFill":false,"DisplayFields":["x_Place_of_origin_1","","",""],"ParentFields":[],"ChildFields":[],"FilterFields":[],"Options":[],"Template":"","LinkTable":"Place_of_origin"};
fTemperature_measurement_registrationadd.Lists["x_Place_of_origin_1"].Data = "<%= Temperature_measurement_registration.Place_of_origin_1.LookupFilterQuery(False, "add", Temperature_measurement_registration_add) %>";
<% Set arAS = Nothing %>
// Form object for search
</script>
<script type="text/javascript">
// Write your client script here, no need to add script tags.
</script>
<% Call Temperature_measurement_registration_add.ShowPageHeader %>
<% Call Temperature_measurement_registration_add.ShowMessage %>
<form name="fTemperature_measurement_registrationadd" id="fTemperature_measurement_registrationadd" class="<%= Temperature_measurement_registration_add.FormClassName %>" action="<%= ew_CurrentPage() %>" method="post">
<% If Temperature_measurement_registration_add.CheckToken Then %>
<input type="hidden" name="<%= EW_TOKEN_NAME %>" value="<%= Temperature_measurement_registration_add.Token %>">
<% End If %>
<input type="hidden" name="t" value="Temperature_measurement_registration">
<input type="hidden" name="a_add" id="a_add" value="A">
<input type="hidden" name="modal" value="<%= ew_IIf(Temperature_measurement_registration_add.IsModal, "1", "0") %>">
<div class="ewAddDiv"><!-- page* -->
<% If Temperature_measurement_registration.Date_of_registration.Visible Then ' Date_of_registration %>
    <div id="r_Date_of_registration" class="form-group">
        <label id="elh_Temperature_measurement_registration_Date_of_registration" for="x_Date_of_registration" class="<%= Temperature_measurement_registration.LeftColumnClass %>"><%= Temperature_measurement_registration.Date_of_registration.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %></label>
        <div class="<%= Temperature_measurement_registration.RightColumnClass %>"><div<%= Temperature_measurement_registration.Date_of_registration.CellAttributes %>>
<span id="el_Temperature_measurement_registration_Date_of_registration">
<input type="text" data-table="Temperature_measurement_registration" data-field="x_Date_of_registration" data-format="1" name="x_Date_of_registration" id="x_Date_of_registration" placeholder="<%= Temperature_measurement_registration.Date_of_registration.PlaceHolder %>" value="<%= Temperature_measurement_registration.Date_of_registration.EditValue %>"<%= Temperature_measurement_registration.Date_of_registration.EditAttributes %>>
<% If Not Temperature_measurement_registration.Date_of_registration.ReadOnly And Not Temperature_measurement_registration.Date_of_registration.Disabled And Not IsEmpty(Temperature_measurement_registration.Date_of_registration.EditAttrs.Exists("readonly")) And Not IsEmpty(Temperature_measurement_registration.Date_of_registration.EditAttrs.Exists("disabled")) Then %>
<script type="text/javascript">
ew_CreateDateTimePicker("fTemperature_measurement_registrationadd", "x_Date_of_registration", {"ignoreReadonly":true,"useCurrent":false,"format":1});
</script>
<% End If %>
</span>
<%= Temperature_measurement_registration.Date_of_registration.CustomMsg %></div></div>
    </div>
<% End If %>
<% If Temperature_measurement_registration.User_fullname.Visible Then ' User_fullname %>
    <div id="r_User_fullname" class="form-group">
        <label id="elh_Temperature_measurement_registration_User_fullname" for="x_User_fullname" class="<%= Temperature_measurement_registration.LeftColumnClass %>"><%= Temperature_measurement_registration.User_fullname.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %></label>
        <div class="<%= Temperature_measurement_registration.RightColumnClass %>"><div<%= Temperature_measurement_registration.User_fullname.CellAttributes %>>
<span id="el_Temperature_measurement_registration_User_fullname">
<% Call Temperature_measurement_registration.User_fullname.EditAttrs.UpdateAttribute("onchange", "ew_AutoFill(this);") %>
<select data-table="Temperature_measurement_registration" data-field="x_User_fullname" data-value-separator="<%= Temperature_measurement_registration.User_fullname.DisplayValueSeparatorAttribute %>" id="x_User_fullname" name="x_User_fullname"<%= Temperature_measurement_registration.User_fullname.EditAttributes %>>
<%= Temperature_measurement_registration.User_fullname.SelectOptionListHtml("x_User_fullname", Temperature_measurement_registration) %>
</select>
<% If AllowAdd(CurrentProjectID & "visitor_maillist") And Not Temperature_measurement_registration.User_fullname.ReadOnly Then %>
<button type="button" title="<%= ew_HtmlTitle(Language.Phrase("AddLink")) & "&nbsp;" & Temperature_measurement_registration.User_fullname.FldCaption %>" onclick="ew_AddOptDialogShow({lnk:this,el:'x_User_fullname',url:'ontrial_visitor_maillistaddopt.asp'});" class="ewAddOptBtn btn btn-default btn-sm" id="aol_x_User_fullname"><span class="glyphicon glyphicon-plus ewIcon"></span><span class="hide"><%= Language.Phrase("AddLink") %>&nbsp;<%= Temperature_measurement_registration.User_fullname.FldCaption %></span></button>
<% End If %>
<input type="hidden" name="ln_x_User_fullname" id="ln_x_User_fullname" value="x_ID_number,x_User_phonenumber">
</span>
<%= Temperature_measurement_registration.User_fullname.CustomMsg %></div></div>
    </div>
<% End If %>
<% If Temperature_measurement_registration.ID_number.Visible Then ' ID_number %>
    <div id="r_ID_number" class="form-group">
        <label id="elh_Temperature_measurement_registration_ID_number" for="x_ID_number" class="<%= Temperature_measurement_registration.LeftColumnClass %>"><%= Temperature_measurement_registration.ID_number.FldCaption %></label>
        <div class="<%= Temperature_measurement_registration.RightColumnClass %>"><div<%= Temperature_measurement_registration.ID_number.CellAttributes %>>
<span id="el_Temperature_measurement_registration_ID_number">
<input type="text" data-table="Temperature_measurement_registration" data-field="x_ID_number" name="x_ID_number" id="x_ID_number" size="30" maxlength="50" placeholder="<%= Temperature_measurement_registration.ID_number.PlaceHolder %>" value="<%= Temperature_measurement_registration.ID_number.EditValue %>"<%= Temperature_measurement_registration.ID_number.EditAttributes %>>
</span>
<%= Temperature_measurement_registration.ID_number.CustomMsg %></div></div>
    </div>
<% End If %>
<% If Temperature_measurement_registration.User_phonenumber.Visible Then ' User_phonenumber %>
    <div id="r_User_phonenumber" class="form-group">
        <label id="elh_Temperature_measurement_registration_User_phonenumber" for="x_User_phonenumber" class="<%= Temperature_measurement_registration.LeftColumnClass %>"><%= Temperature_measurement_registration.User_phonenumber.FldCaption %></label>
        <div class="<%= Temperature_measurement_registration.RightColumnClass %>"><div<%= Temperature_measurement_registration.User_phonenumber.CellAttributes %>>
<span id="el_Temperature_measurement_registration_User_phonenumber">
<input type="text" data-table="Temperature_measurement_registration" data-field="x_User_phonenumber" name="x_User_phonenumber" id="x_User_phonenumber" size="30" maxlength="50" placeholder="<%= Temperature_measurement_registration.User_phonenumber.PlaceHolder %>" value="<%= Temperature_measurement_registration.User_phonenumber.EditValue %>"<%= Temperature_measurement_registration.User_phonenumber.EditAttributes %>>
</span>
<%= Temperature_measurement_registration.User_phonenumber.CustomMsg %></div></div>
    </div>
<% End If %>
<% If Temperature_measurement_registration.Place_of_origin_1.Visible Then ' Place_of_origin %>
    <div id="r_Place_of_origin_1" class="form-group">
        <label id="elh_Temperature_measurement_registration_Place_of_origin_1" for="x_Place_of_origin_1" class="<%= Temperature_measurement_registration.LeftColumnClass %>"><%= Temperature_measurement_registration.Place_of_origin_1.FldCaption %><%= Language.Phrase("FieldRequiredIndicator") %></label>
        <div class="<%= Temperature_measurement_registration.RightColumnClass %>"><div<%= Temperature_measurement_registration.Place_of_origin_1.CellAttributes %>>
<span id="el_Temperature_measurement_registration_Place_of_origin_1">
<select data-table="Temperature_measurement_registration" data-field="x_Place_of_origin_1" data-value-separator="<%= Temperature_measurement_registration.Place_of_origin_1.DisplayValueSeparatorAttribute %>" id="x_Place_of_origin_1" name="x_Place_of_origin_1"<%= Temperature_measurement_registration.Place_of_origin_1.EditAttributes %>>
<%= Temperature_measurement_registration.Place_of_origin_1.SelectOptionListHtml("x_Place_of_origin_1", Temperature_measurement_registration) %>
</select>
</span>
<%= Temperature_measurement_registration.Place_of_origin_1.CustomMsg %></div></div>
    </div>
<% End If %>
<% If Temperature_measurement_registration.To_which_department.Visible Then ' To_which_department %>
    <div id="r_To_which_department" class="form-group">
        <label id="elh_Temperature_measurement_registration_To_which_department" for="x_To_which_department" class="<%= Temperature_measurement_registration.LeftColumnClass %>"><%= Temperature_measurement_registration.To_which_department.FldCaption %></label>
        <div class="<%= Temperature_measurement_registration.RightColumnClass %>"><div<%= Temperature_measurement_registration.To_which_department.CellAttributes %>>
<span id="el_Temperature_measurement_registration_To_which_department">
<input type="text" data-table="Temperature_measurement_registration" data-field="x_To_which_department" name="x_To_which_department" id="x_To_which_department" size="30" maxlength="50" placeholder="<%= Temperature_measurement_registration.To_which_department.PlaceHolder %>" value="<%= Temperature_measurement_registration.To_which_department.EditValue %>"<%= Temperature_measurement_registration.To_which_department.EditAttributes %>>
</span>
<%= Temperature_measurement_registration.To_which_department.CustomMsg %></div></div>
    </div>
<% End If %>
<% If Temperature_measurement_registration.no_matter_what.Visible Then ' no_matter_what %>
    <div id="r_no_matter_what" class="form-group">
        <label id="elh_Temperature_measurement_registration_no_matter_what" for="x_no_matter_what" class="<%= Temperature_measurement_registration.LeftColumnClass %>"><%= Temperature_measurement_registration.no_matter_what.FldCaption %></label>
        <div class="<%= Temperature_measurement_registration.RightColumnClass %>"><div<%= Temperature_measurement_registration.no_matter_what.CellAttributes %>>
<span id="el_Temperature_measurement_registration_no_matter_what">
<textarea data-table="Temperature_measurement_registration" data-field="x_no_matter_what" name="x_no_matter_what" id="x_no_matter_what" cols="35" rows="5" placeholder="<%= Temperature_measurement_registration.no_matter_what.PlaceHolder %>"<%= Temperature_measurement_registration.no_matter_what.EditAttributes %>><%= Temperature_measurement_registration.no_matter_what.EditValue %></textarea>
</span>
<%= Temperature_measurement_registration.no_matter_what.CustomMsg %></div></div>
    </div>
<% End If %>
<% If Temperature_measurement_registration.temperature.Visible Then ' temperature %>
    <div id="r_temperature" class="form-group">
        <label id="elh_Temperature_measurement_registration_temperature" for="x_temperature" class="<%= Temperature_measurement_registration.LeftColumnClass %>"><%= Temperature_measurement_registration.temperature.FldCaption %></label>
        <div class="<%= Temperature_measurement_registration.RightColumnClass %>"><div<%= Temperature_measurement_registration.temperature.CellAttributes %>>
<span id="el_Temperature_measurement_registration_temperature">
<input type="text" data-table="Temperature_measurement_registration" data-field="x_temperature" name="x_temperature" id="x_temperature" size="30" placeholder="<%= Temperature_measurement_registration.temperature.PlaceHolder %>" value="<%= Temperature_measurement_registration.temperature.EditValue %>"<%= Temperature_measurement_registration.temperature.EditAttributes %>>
</span>
<%= Temperature_measurement_registration.temperature.CustomMsg %></div></div>
    </div>
<% End If %>
<% If Temperature_measurement_registration.Departure_time.Visible Then ' Departure_time %>
    <div id="r_Departure_time" class="form-group">
        <label id="elh_Temperature_measurement_registration_Departure_time" for="x_Departure_time" class="<%= Temperature_measurement_registration.LeftColumnClass %>"><%= Temperature_measurement_registration.Departure_time.FldCaption %></label>
        <div class="<%= Temperature_measurement_registration.RightColumnClass %>"><div<%= Temperature_measurement_registration.Departure_time.CellAttributes %>>
<span id="el_Temperature_measurement_registration_Departure_time">
<input type="text" data-table="Temperature_measurement_registration" data-field="x_Departure_time" data-format="1" name="x_Departure_time" id="x_Departure_time" placeholder="<%= Temperature_measurement_registration.Departure_time.PlaceHolder %>" value="<%= Temperature_measurement_registration.Departure_time.EditValue %>"<%= Temperature_measurement_registration.Departure_time.EditAttributes %>>
<% If Not Temperature_measurement_registration.Departure_time.ReadOnly And Not Temperature_measurement_registration.Departure_time.Disabled And Not IsEmpty(Temperature_measurement_registration.Departure_time.EditAttrs.Exists("readonly")) And Not IsEmpty(Temperature_measurement_registration.Departure_time.EditAttrs.Exists("disabled")) Then %>
<script type="text/javascript">
ew_CreateDateTimePicker("fTemperature_measurement_registrationadd", "x_Departure_time", {"ignoreReadonly":true,"useCurrent":false,"format":1});
</script>
<% End If %>
</span>
<%= Temperature_measurement_registration.Departure_time.CustomMsg %></div></div>
    </div>
<% End If %>
</div><!-- /page* -->
<% If Not Temperature_measurement_registration_add.IsModal Then %>
<div class="form-group"><!-- buttons .form-group -->
    <div class="<%= Temperature_measurement_registration.OffsetColumnClass %>"><!-- buttons offset -->
<button class="btn btn-primary ewButton" name="btnAction" id="btnAction" type="submit"><%= Language.Phrase("AddBtn") %></button>
<button class="btn btn-default ewButton" name="btnCancel" id="btnCancel" type="button" data-href="<%= Temperature_measurement_registration.ReturnUrl %>"><%= Language.Phrase("CancelBtn") %></button>
    </div><!-- /buttons offset -->
</div><!-- /buttons .form-group -->
<% End If %>
</form>
<script type="text/javascript">
fTemperature_measurement_registrationadd.Init();
</script>
<%
Call Temperature_measurement_registration_add.ShowPageFooter
If EW_DEBUG_ENABLED Then Response.Write ew_DebugMsg()
%>
<script type="text/javascript">
// Write your table-specific startup script here
// document.write("page loaded");
</script>
<!--#include file="ontrial_footer.asp"-->
<%

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

'
' Page Class
'
Class cTemperature_measurement_registration_add

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

    ' Project ID
    Public Property Get ProjectID
        ProjectID = "{55F9B3F4-2B0C-42C0-A285-AA04F54570CB}"
    End Property

    ' Table Name
    Public Property Get TableName
        TableName = "Temperature_measurement_registration"
    End Property

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

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

    ' Field (Date_of_registration)
    Public Property Get Date_of_registration
        Set Date_of_registration = Temperature_measurement_registration.Date_of_registration
    End Property

    ' Field (User_fullname)
    Public Property Get User_fullname
        Set User_fullname = Temperature_measurement_registration.User_fullname
    End Property

    ' Field (ID_number)
    Public Property Get ID_number
        Set ID_number = Temperature_measurement_registration.ID_number
    End Property

    ' Field (User_phonenumber)
    Public Property Get User_phonenumber
        Set User_phonenumber = Temperature_measurement_registration.User_phonenumber
    End Property

    ' Field (Place_of_origin)
    Public Property Get Place_of_origin_1
        Set Place_of_origin_1 = Temperature_measurement_registration.Place_of_origin_1
    End Property

    ' Field (To_which_department)
    Public Property Get To_which_department
        Set To_which_department = Temperature_measurement_registration.To_which_department
    End Property

    ' Field (no_matter_what)
    Public Property Get no_matter_what
        Set no_matter_what = Temperature_measurement_registration.no_matter_what
    End Property

    ' Field (temperature)
    Public Property Get temperature
        Set temperature = Temperature_measurement_registration.temperature
    End Property

    ' Field (Departure_time)
    Public Property Get Departure_time
        Set Departure_time = Temperature_measurement_registration.Departure_time
    End Property

    ' Field (last_update_time)
    Public Property Get last_update_time
        Set last_update_time = Temperature_measurement_registration.last_update_time
    End Property

    ' Field (update_users)
    Public Property Get update_users
        Set update_users = Temperature_measurement_registration.update_users
    End Property

    ' Get field object dictionary (ASP)
    Public Property Get Fields
        Set Fields = Temperature_measurement_registration.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
        ElseIf ew_NotEmpty(Temperature_measurement_registration) Then
            PageHeading = Temperature_measurement_registration.TableCaption
        End If
    End Function

    ' Page subheading
    Function PageSubheading()
        If Subheading <> "" Then
            PageSubheading = Subheading
        Else
            PageSubheading = ""
            If TableName <> "" Then
                PageSubheading = Language.Phrase(PageID)
            End If
        End If
    End Function

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

    ' Page Url
    Public Property Get PageUrl
        PageUrl = ew_CurrentPage() & "?"
        If Temperature_measurement_registration.UseTokenInUrl Then PageUrl = PageUrl & "t=" & Temperature_measurement_registration.TableVar & "&" ' add page token
    End Property
    Dim AuditTrailOnAdd
    Dim AuditTrailOnEdit
    Dim AuditTrailOnDelete
    Dim AuditTrailOnView
    Dim AuditTrailOnViewData
    Dim AuditTrailOnSearch

    ' 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 PageHeader
    Dim PageFooter

    ' Show Page Header
    Public Sub ShowPageHeader()
        Dim sHeader
        sHeader = PageHeader
        Call Page_DataRendering(sHeader)
        If sHeader <> "" Then ' Header exists, display
            Response.Write "<p>" & sHeader & "</p>"
        End If
    End Sub

    ' Show Page Footer
    Public Sub ShowPageFooter()
        Dim sFooter
        sFooter = PageFooter
        Call Page_DataRendered(sFooter)
        If sFooter <> "" Then ' Footer exists, display
            Response.Write "<p>" & sFooter & "</p>"
        End If
    End Sub

    '
    ' Validate Page request
    '
    Public Function IsPageRequest()
        If Temperature_measurement_registration.UseTokenInUrl Then
            IsPageRequest = False
            If ew_NotEmpty(ObjForm) Then
                IsPageRequest = (Temperature_measurement_registration.TableVar = ObjForm.GetValue("t"))
            End If
            If Request.QueryString("t").Count > 0 Then
                IsPageRequest = (Temperature_measurement_registration.TableVar = Request.QueryString("t"))
            End If
        Else
            IsPageRequest = True
        End If
    End Function
    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 table object
        If IsEmpty(Temperature_measurement_registration) Then Set Temperature_measurement_registration = New cTemperature_measurement_registration
        Set Table = Temperature_measurement_registration

        ' Initialize URLs
        ' Initialize other table object

        If IsEmpty(Users) Then Set Users = New cUsers

        ' Initialize form object
        Set ObjForm = Nothing

        ' Get resize object
        Call ew_GetResizeObj

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

        ' Initialize table name (for backward compatibility)
        EW_TABLE_NAME = "Temperature_measurement_registration"

        ' Debug message
        Call ew_LoadDebugMsg

        ' Open connection to the database
        If IsEmpty(Conn) Then
            Set Conn = ew_Connect(Temperature_measurement_registration.TableDBID)
        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()

        ' Is modal
        IsModal = (Request.QueryString("modal") = "1" Or Request.Form("modal") = "1")

        ' User profile
        Set UserProfile = New cUserProfile

        ' Security
        Set Security = New cAdvancedSecurity
        If Not Security.IsLoggedIn() Then Security.AutoLogin()

        ' Table Permission loading event
        If Security.IsLoggedIn() Then Call Security.TablePermission_Loading
        Call Security.LoadCurrentUserLevel(ProjectID & TableName)

        ' Table Permission loaded event
        If Security.IsLoggedIn() Then Call Security.TablePermission_Loaded
        If Not Security.CanAdd Then
            Call Security.SaveLastUrl
            If Security.CanList Then
                Call Page_Terminate(ew_GetUrl("ontrial_Temperature_measurement_registrationlist.asp"))
            Else
                Call Page_Terminate(ew_GetUrl("ontrial_login.asp"))
            End If
        End If

        ' Create form object
        Set ObjForm = New cFormObj
        Temperature_measurement_registration.CurrentAction = ew_IIf(Request.QueryString("a").Count > 0, Request.QueryString("a") & "", ObjForm.GetValue("a_list") & "") ' Set up current action
        Call Temperature_measurement_registration.Date_of_registration.SetVisibility(Temperature_measurement_registration)
        Call Temperature_measurement_registration.User_fullname.SetVisibility(Temperature_measurement_registration)
        Call Temperature_measurement_registration.ID_number.SetVisibility(Temperature_measurement_registration)
        Call Temperature_measurement_registration.User_phonenumber.SetVisibility(Temperature_measurement_registration)
        Call Temperature_measurement_registration.Place_of_origin_1.SetVisibility(Temperature_measurement_registration)
        Call Temperature_measurement_registration.To_which_department.SetVisibility(Temperature_measurement_registration)
        Call Temperature_measurement_registration.no_matter_what.SetVisibility(Temperature_measurement_registration)
        Call Temperature_measurement_registration.temperature.SetVisibility(Temperature_measurement_registration)
        Call Temperature_measurement_registration.Departure_time.SetVisibility(Temperature_measurement_registration)
        Call Temperature_measurement_registration.last_update_time.SetVisibility(Temperature_measurement_registration)
        Call Temperature_measurement_registration.update_users.SetVisibility(Temperature_measurement_registration)

        ' 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

        ' Process auto fill
        Dim results
        If Request.Form("ajax") = "autofill" Then
            results = Temperature_measurement_registration.GetAutoFill(Request.Form("name"), Request.Form("q"))
            If results <> "" Then

                ' Clean output buffer
                If Response.Buffer Then Response.Clear
                Response.Write results
                Call Page_Terminate("")
                Response.End
            End If
        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

        ' Export
        If ew_NotEmpty(Temperature_measurement_registration) Then
            If Temperature_measurement_registration.Export <> "" And Request.Form("data").Count > 0 Then
                Dim sContent
                sContent = Request.Form("data")
                gsExportFile = Request.Form("filename")
                If gsExportFile = "" Then gsExportFile = Temperature_measurement_registration.TableVar
                If Temperature_measurement_registration.Export = "pdf" Then
                    Call ExportPdf(sContent)
                ElseIf Temperature_measurement_registration.Export = "email" Then
                    Response.Write ExportEmail(sContent)
                ElseIf Temperature_measurement_registration.Export = "excel" Then
                    Call ExportExcel(sContent)
                ElseIf Temperature_measurement_registration.Export = "word" Then
                    Call ExportWord(sContent)
                End If
            End If
        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

                ' Handle modal response
                If IsModal Then ' Show as modal
                    Dim row, pageName
                    Set row = Dictionary()
                    Call row.Add("url", sRedirectURL)
                    Call row.Add("modal", "1")
                    pageName = ew_GetPageName(sRedirectURL)
                    If pageName <> Temperature_measurement_registration.ListUrl Then ' Not List page
                        Call row.Add("caption", Temperature_measurement_registration.GetModalCaption(pageName))
                        If pageName = "ontrial_Temperature_measurement_registrationview.asp" Then
                            Call row.Add("view", "1")
                        End If
                    Else 'List page should not be shown as modal => error
                        Call row.Add("error", FailureMessage)
                        Call ClearFailureMessage
                    End If
                    Call ResponseJson
                    Response.Write "[" & row.ToJson() & "]"
                    Set row = Nothing
                    Response.End
                Else
                    Call ew_SaveDebugMsg
                    Response.Redirect sRedirectUrl
                End If
            End If
        End If
        Set Temperature_measurement_registration = Nothing
        Call ew_CleanUp
    End Sub

    '
    ' Page_Terminate (End)
    '

    Dim FormClassName
    Dim IsModal
    Dim IsMobileOrModal
    Dim DbMasterFilter, DbDetailFilter
    Dim StartRec
    Dim Priv
    Dim OldRecordset
    Dim CopyRecord

    '
    ' Page main
    '
    Sub Page_Main()
        IsMobileOrModal = False
        If IsModal Then    gbSkipHeaderFooter = True
        FormClassName = "ewForm ewAddForm form-horizontal"

        ' Set up current action
        If ObjForm.GetValue("a_add")&"" <> "" Then
            Temperature_measurement_registration.CurrentAction = ObjForm.GetValue("a_add") ' Get form action

        ' Not post back
        Else

            ' Load key values from QueryString
            CopyRecord = True
            If Request.QueryString("S_number").Count > 0 Then
                Temperature_measurement_registration.S_number.QueryStringValue = Request.QueryString("S_number")
                Call Temperature_measurement_registration.SetKey("S_number", Temperature_measurement_registration.S_number.CurrentValue) ' Set up key
            Else
                Call Temperature_measurement_registration.SetKey("S_number", "") ' Clear key
                CopyRecord = False
            End If
            If CopyRecord Then
                Temperature_measurement_registration.CurrentAction = "C" ' Copy Record
            Else
                Temperature_measurement_registration.CurrentAction = "I" ' Display Blank Record
            End If
        End If
        Dim loaded
        loaded = LoadOldRecord() ' Load old recordset

        ' Load form values
        If ObjForm.GetValue("a_add")&"" <> "" Then
            Call LoadFormValues ' Load form values
        End If

        ' Validate form if post back
        If ObjForm.GetValue("a_add")&"" <> "" Then
            If Not ValidateForm() Then
                Temperature_measurement_registration.CurrentAction = "I" ' Form error, reset action
                Temperature_measurement_registration.EventCancelled = True ' Event cancelled
                Call RestoreFormValues ' Restore form values
                FailureMessage = gsFormError
            End If
        End If

        ' Perform current action
        Select Case Temperature_measurement_registration.CurrentAction
            Case "I" ' Blank record
            Case "C" ' Copy an existing record
                If Not loaded Then ' Record not loaded
                    If FailureMessage = "" Then FailureMessage = Language.Phrase("NoRecord") ' No record found
                    Call Page_Terminate("ontrial_Temperature_measurement_registrationlist.asp") ' No matching record, return to list
                End If
            Case "A" ' Add new record
                Temperature_measurement_registration.SendEmail = True ' Send email on add success
                If AddRow(OldRecordset) Then ' Add successful
                    If SuccessMessage = "" Then SuccessMessage = Language.Phrase("AddSuccess") ' Set up success message
                    Dim sReturnUrl
                    sReturnUrl = Temperature_measurement_registration.ReturnUrl
                    If ew_GetPageName(sReturnUrl) = "ontrial_Temperature_measurement_registrationlist.asp" Then
                        sReturnUrl = Temperature_measurement_registration.AddMasterUrl(sReturnUrl) ' List page, return to List page with correct master key if necessary
                    ElseIf ew_GetPageName(sReturnUrl) = "ontrial_Temperature_measurement_registrationview.asp" Then
                        sReturnUrl = Temperature_measurement_registration.ViewUrl("") ' View paging, return to View page with keyurl directly
                    End If
                    Call Page_Terminate(sReturnUrl) ' Clean up and return
                Else
                    Temperature_measurement_registration.EventCancelled = True ' Event cancelled
                    Call RestoreFormValues ' Add failed, restore form values
                End If
        End Select

        ' Set up Breadcrumb
        Call SetupBreadcrumb

        ' Render row based on row type
        Temperature_measurement_registration.RowType = EW_ROWTYPE_ADD ' Render add type

        ' Render row
        Call Temperature_measurement_registration.ResetAttrs
        Call RenderRow
    End Sub

    '
    ' Get upload files
    '
    Sub GetUploadFiles()

        ' Get upload data
    End Sub

    '
    ' Load default values
    '
    Sub LoadDefaultValues()
        Temperature_measurement_registration.S_number.CurrentValue = Null
        Temperature_measurement_registration.S_number.OldValue = Temperature_measurement_registration.S_number.CurrentValue
        Temperature_measurement_registration.Date_of_registration.CurrentValue = Null
        Temperature_measurement_registration.Date_of_registration.OldValue = Temperature_measurement_registration.Date_of_registration.CurrentValue
        Temperature_measurement_registration.User_fullname.CurrentValue = Null
        Temperature_measurement_registration.User_fullname.OldValue = Temperature_measurement_registration.User_fullname.CurrentValue
        Temperature_measurement_registration.ID_number.CurrentValue = Null
        Temperature_measurement_registration.ID_number.OldValue = Temperature_measurement_registration.ID_number.CurrentValue
        Temperature_measurement_registration.User_phonenumber.CurrentValue = Null
        Temperature_measurement_registration.User_phonenumber.OldValue = Temperature_measurement_registration.User_phonenumber.CurrentValue
        Temperature_measurement_registration.Place_of_origin_1.CurrentValue = Null
        Temperature_measurement_registration.Place_of_origin_1.OldValue = Temperature_measurement_registration.Place_of_origin_1.CurrentValue
        Temperature_measurement_registration.To_which_department.CurrentValue = Null
        Temperature_measurement_registration.To_which_department.OldValue = Temperature_measurement_registration.To_which_department.CurrentValue
        Temperature_measurement_registration.no_matter_what.CurrentValue = Null
        Temperature_measurement_registration.no_matter_what.OldValue = Temperature_measurement_registration.no_matter_what.CurrentValue
        Temperature_measurement_registration.temperature.CurrentValue = 0
        Temperature_measurement_registration.Departure_time.CurrentValue = Null
        Temperature_measurement_registration.Departure_time.OldValue = Temperature_measurement_registration.Departure_time.CurrentValue
        Temperature_measurement_registration.last_update_time.CurrentValue = Null
        Temperature_measurement_registration.last_update_time.OldValue = Temperature_measurement_registration.last_update_time.CurrentValue
        Temperature_measurement_registration.update_users.CurrentValue = Null
        Temperature_measurement_registration.update_users.OldValue = Temperature_measurement_registration.update_users.CurrentValue
    End Sub

    '
    ' Load form values
    '
    Sub LoadFormValues()

        ' Load values from form
        If Not Temperature_measurement_registration.Date_of_registration.FldIsDetailKey Then Temperature_measurement_registration.Date_of_registration.FormValue = ObjForm.GetValue("x_Date_of_registration")
        If Not Temperature_measurement_registration.Date_of_registration.FldIsDetailKey Then Temperature_measurement_registration.Date_of_registration.CurrentValue = ew_UnFormatDateTime(Temperature_measurement_registration.Date_of_registration.CurrentValue, 1)
        If Not Temperature_measurement_registration.User_fullname.FldIsDetailKey Then Temperature_measurement_registration.User_fullname.FormValue = ObjForm.GetValue("x_User_fullname")
        If Not Temperature_measurement_registration.ID_number.FldIsDetailKey Then Temperature_measurement_registration.ID_number.FormValue = ObjForm.GetValue("x_ID_number")
        If Not Temperature_measurement_registration.User_phonenumber.FldIsDetailKey Then Temperature_measurement_registration.User_phonenumber.FormValue = ObjForm.GetValue("x_User_phonenumber")
        If Not Temperature_measurement_registration.Place_of_origin_1.FldIsDetailKey Then Temperature_measurement_registration.Place_of_origin_1.FormValue = ObjForm.GetValue("x_Place_of_origin_1")
        If Not Temperature_measurement_registration.To_which_department.FldIsDetailKey Then Temperature_measurement_registration.To_which_department.FormValue = ObjForm.GetValue("x_To_which_department")
        If Not Temperature_measurement_registration.no_matter_what.FldIsDetailKey Then Temperature_measurement_registration.no_matter_what.FormValue = ObjForm.GetValue("x_no_matter_what")
        If Not Temperature_measurement_registration.temperature.FldIsDetailKey Then Temperature_measurement_registration.temperature.FormValue = ObjForm.GetValue("x_temperature")
        If Not Temperature_measurement_registration.Departure_time.FldIsDetailKey Then Temperature_measurement_registration.Departure_time.FormValue = ObjForm.GetValue("x_Departure_time")
        If Not Temperature_measurement_registration.Departure_time.FldIsDetailKey Then Temperature_measurement_registration.Departure_time.CurrentValue = ew_UnFormatDateTime(Temperature_measurement_registration.Departure_time.CurrentValue, 1)
        If Not Temperature_measurement_registration.last_update_time.FldIsDetailKey Then Temperature_measurement_registration.last_update_time.FormValue = ObjForm.GetValue("x_last_update_time")
        If Not Temperature_measurement_registration.last_update_time.FldIsDetailKey Then Temperature_measurement_registration.last_update_time.CurrentValue = ew_UnFormatDateTime(Temperature_measurement_registration.last_update_time.CurrentValue, 0)
        If Not Temperature_measurement_registration.update_users.FldIsDetailKey Then Temperature_measurement_registration.update_users.FormValue = ObjForm.GetValue("x_update_users")
    End Sub

    '
    ' Restore form values
    '
    Sub RestoreFormValues()
        Temperature_measurement_registration.Date_of_registration.CurrentValue = Temperature_measurement_registration.Date_of_registration.FormValue
        Temperature_measurement_registration.Date_of_registration.CurrentValue = ew_UnFormatDateTime(Temperature_measurement_registration.Date_of_registration.CurrentValue, 1)
        Temperature_measurement_registration.User_fullname.CurrentValue = Temperature_measurement_registration.User_fullname.FormValue
        Temperature_measurement_registration.ID_number.CurrentValue = Temperature_measurement_registration.ID_number.FormValue
        Temperature_measurement_registration.User_phonenumber.CurrentValue = Temperature_measurement_registration.User_phonenumber.FormValue
        Temperature_measurement_registration.Place_of_origin_1.CurrentValue = Temperature_measurement_registration.Place_of_origin_1.FormValue
        Temperature_measurement_registration.To_which_department.CurrentValue = Temperature_measurement_registration.To_which_department.FormValue
        Temperature_measurement_registration.no_matter_what.CurrentValue = Temperature_measurement_registration.no_matter_what.FormValue
        Temperature_measurement_registration.temperature.CurrentValue = Temperature_measurement_registration.temperature.FormValue
        Temperature_measurement_registration.Departure_time.CurrentValue = Temperature_measurement_registration.Departure_time.FormValue
        Temperature_measurement_registration.Departure_time.CurrentValue = ew_UnFormatDateTime(Temperature_measurement_registration.Departure_time.CurrentValue, 1)
        Temperature_measurement_registration.last_update_time.CurrentValue = Temperature_measurement_registration.last_update_time.FormValue
        Temperature_measurement_registration.last_update_time.CurrentValue = ew_UnFormatDateTime(Temperature_measurement_registration.last_update_time.CurrentValue, 0)
        Temperature_measurement_registration.update_users.CurrentValue = Temperature_measurement_registration.update_users.FormValue
    End Sub

    '
    ' Load row based on key values
    '
    Function LoadRow()
        Dim RsRow, sSql, sFilter
        sFilter = Temperature_measurement_registration.KeyFilter

        ' Call Row Selecting event
        Call Temperature_measurement_registration.Row_Selecting(sFilter)

        ' Load SQL based on filter
        Temperature_measurement_registration.CurrentFilter = sFilter
        sSql = Temperature_measurement_registration.SQL
        Call ew_SetDebugMsg("LoadRow: " & sSql) ' Show SQL for debugging
        Set RsRow = ew_LoadRowByDbid(sSql, Temperature_measurement_registration.TableDBID)
        If RsRow.EOF Then
            LoadRow = False
        Else
            LoadRow = True
            RsRow.MoveFirst
            Call LoadRowValues(RsRow) ' Load row values
        End If
        RsRow.Close
        Set RsRow = Nothing
    End Function

    '
    ' Load row values from recordset
    '
    Sub LoadRowValues(RsRow)
        Dim sDetailFilter
        If Not EW_DEBUG_ENABLED Then On Error Resume Next
        If IsNull(RsRow) Then
            Set RsRow = NewRow()
        End If

        ' Call Row Selected event
        Call Temperature_measurement_registration.Row_Selected(RsRow)
        If ew_Empty(RsRow) Then Exit Sub
        If RsRow.EOF Then Exit Sub
        Temperature_measurement_registration.S_number.DbValue = RsRow("S_number")
        Temperature_measurement_registration.Date_of_registration.DbValue = RsRow("Date_of_registration")
        Temperature_measurement_registration.User_fullname.DbValue = RsRow("User_fullname")
        If ew_FieldExistInRs(RsRow, "EV__User_fullname") Then
            Temperature_measurement_registration.User_fullname.VirtualValue = RsRow("EV__User_fullname") ' Set up virtual field value
        Else
            Temperature_measurement_registration.User_fullname.VirtualValue = "" ' Clear value
        End If
        Temperature_measurement_registration.ID_number.DbValue = RsRow("ID_number")
        Temperature_measurement_registration.User_phonenumber.DbValue = RsRow("User_phonenumber")
        Temperature_measurement_registration.Place_of_origin_1.DbValue = RsRow("Place_of_origin")
        Temperature_measurement_registration.To_which_department.DbValue = RsRow("To_which_department")
        Temperature_measurement_registration.no_matter_what.DbValue = RsRow("no_matter_what")
        Temperature_measurement_registration.temperature.DbValue = RsRow("temperature")
        Temperature_measurement_registration.Departure_time.DbValue = RsRow("Departure_time")
        Temperature_measurement_registration.last_update_time.DbValue = RsRow("last_update_time")
        Temperature_measurement_registration.update_users.DbValue = RsRow("update_users")
    End Sub

    ' Return a row with default values
    Function NewRow
        Call LoadDefaultValues
        Dim cnn, rs, sSql, sFilter

        ' Clear any previous errors
        Err.Clear
        Set cnn = Temperature_measurement_registration.TableConnection
        sFilter = Temperature_measurement_registration.CurrentFilter
        Temperature_measurement_registration.CurrentFilter = "(0 = 1)"
        sSql = Temperature_measurement_registration.SQL
        Temperature_measurement_registration.CurrentFilter = sFilter
        Set rs = Server.CreateObject("ADODB.Recordset")
        rs.CursorLocation = 3 ' adUseClient
        Call ew_SetDebugMsg("NewRow: " & sSql) ' Show SQL for debugging
        rs.Open sSql, cnn, 3, 4 ' adOpenStatic, adLockBatchOptimistic

        ' Disconnect the Recordset
        Set rs.ActiveConnection = Nothing

        ' Add new record
        rs.AddNew
        rs("Date_of_registration") = Temperature_measurement_registration.Date_of_registration.CurrentValue
        rs("User_fullname") = Temperature_measurement_registration.User_fullname.CurrentValue
        rs("ID_number") = Temperature_measurement_registration.ID_number.CurrentValue
        rs("User_phonenumber") = Temperature_measurement_registration.User_phonenumber.CurrentValue
        rs("Place_of_origin") = Temperature_measurement_registration.Place_of_origin_1.CurrentValue
        rs("To_which_department") = Temperature_measurement_registration.To_which_department.CurrentValue
        rs("no_matter_what") = Temperature_measurement_registration.no_matter_what.CurrentValue
        rs("temperature") = Temperature_measurement_registration.temperature.CurrentValue
        rs("Departure_time") = Temperature_measurement_registration.Departure_time.CurrentValue
        rs("last_update_time") = Temperature_measurement_registration.last_update_time.CurrentValue
        rs("update_users") = Temperature_measurement_registration.update_users.CurrentValue

        ' Return the recordset
        If Err.Number = 0 Then
            Set NewRow = rs
        Else
            Set NewRow = Nothing
        End If
    End Function

    ' Load DbValue from recordset
    Sub LoadDbValues(Rs)
        If Not EW_DEBUG_ENABLED Then On Error Resume Next
        If ew_Empty(Rs) Then Exit Sub
        If Rs.EOF Then Exit Sub
        Temperature_measurement_registration.S_number.m_DbValue = Rs("S_number")
        Temperature_measurement_registration.Date_of_registration.m_DbValue = Rs("Date_of_registration")
        Temperature_measurement_registration.User_fullname.m_DbValue = Rs("User_fullname")
        Temperature_measurement_registration.ID_number.m_DbValue = Rs("ID_number")
        Temperature_measurement_registration.User_phonenumber.m_DbValue = Rs("User_phonenumber")
        Temperature_measurement_registration.Place_of_origin_1.m_DbValue = Rs("Place_of_origin")
        Temperature_measurement_registration.To_which_department.m_DbValue = Rs("To_which_department")
        Temperature_measurement_registration.no_matter_what.m_DbValue = Rs("no_matter_what")
        Temperature_measurement_registration.temperature.m_DbValue = Rs("temperature")
        Temperature_measurement_registration.Departure_time.m_DbValue = Rs("Departure_time")
        Temperature_measurement_registration.last_update_time.m_DbValue = Rs("last_update_time")
        Temperature_measurement_registration.update_users.m_DbValue = Rs("update_users")
    End Sub

    ' Load old record
    Function LoadOldRecord()

        ' Load key values from Session
        Dim bValidKey
        bValidKey = True
        If Temperature_measurement_registration.GetKey("S_number")&"" <> "" Then
            Temperature_measurement_registration.S_number.CurrentValue = Temperature_measurement_registration.GetKey("S_number") ' S_number
        Else
            bValidKey = False
        End If

        ' Load old record
        OldRecordset = Null
        If bValidKey Then
            Temperature_measurement_registration.CurrentFilter = Temperature_measurement_registration.KeyFilter
            Dim sSql
            sSql = Temperature_measurement_registration.SQL
            Set OldRecordset = ew_LoadRecordsetByDbid(sSql, Temperature_measurement_registration.TableDBID)
        End If
        Call LoadRowValues(OldRecordset) ' Load row values
        LoadOldRecord = bValidKey
    End Function

    '
    ' Render row values based on field settings
    '
    Sub RenderRow()

        ' Initialize URLs
        ' Convert decimal values if posted back

        If Temperature_measurement_registration.temperature.FormValue = Temperature_measurement_registration.temperature.CurrentValue And IsNumeric(Temperature_measurement_registration.temperature.CurrentValue) Then
            Temperature_measurement_registration.temperature.CurrentValue = ew_StrToFloat(Temperature_measurement_registration.temperature.CurrentValue)
        End If

        ' Call Row Rendering event
        Call Temperature_measurement_registration.Row_Rendering

        '
        ' Common render codes for all row types
        '
        ' S_number
        ' Date_of_registration
        ' User_fullname
        ' ID_number
        ' User_phonenumber
        ' Place_of_origin
        ' To_which_department
        ' no_matter_what
        ' temperature
        ' Departure_time
        ' last_update_time
        ' update_users
        '
        ' View Row
        '

        If Temperature_measurement_registration.RowType = EW_ROWTYPE_VIEW Then ' View row

            ' S_number
            Temperature_measurement_registration.S_number.ViewValue = Temperature_measurement_registration.S_number.CurrentValue
            Temperature_measurement_registration.S_number.ViewCustomAttributes = ""

            ' Date_of_registration
            Temperature_measurement_registration.Date_of_registration.ViewValue = Temperature_measurement_registration.Date_of_registration.CurrentValue
            Temperature_measurement_registration.Date_of_registration.ViewValue = ew_FormatDateTime(Temperature_measurement_registration.Date_of_registration.ViewValue, 1)
            Temperature_measurement_registration.Date_of_registration.ViewCustomAttributes = ""

            ' User_fullname
            If Temperature_measurement_registration.User_fullname.VirtualValue <> "" Then
                Temperature_measurement_registration.User_fullname.ViewValue = Temperature_measurement_registration.User_fullname.VirtualValue
            Else
            If Temperature_measurement_registration.User_fullname.CurrentValue & "" <> "" Then
                sFilterWrk = "[User_fullname]" & ew_SearchString("=", Temperature_measurement_registration.User_fullname.CurrentValue, EW_DATATYPE_STRING, "")
            sSqlWrk = "SELECT [User_fullname], [User_fullname] AS [DispFld], '' AS [Disp2Fld], '' AS [Disp3Fld], '' AS [Disp4Fld] FROM [visitor_maillist]"
            sWhereWrk = ""
            Call ew_AddFilter(sWhereWrk, sFilterWrk)
            Call Temperature_measurement_registration.Lookup_Selecting(Temperature_measurement_registration.User_fullname, sWhereWrk) ' Call Lookup Selecting
            If sWhereWrk <> "" Then sSqlWrk = sSqlWrk & " WHERE " & sWhereWrk
            sSqlWrk = sSqlWrk & " ORDER BY [User_fullname] DESC"
                Call ew_SetDebugMsg("Lookup(DB): " & sSqlWrk) ' Show data for debugging
                Set RsWrk = ew_GetConn("DB").Execute(sSqlWrk)
                If Not RsWrk.Eof Then
                    Redim arwrk(4,0)
                    arwrk(1,0)= RsWrk("DispFld")
                    Temperature_measurement_registration.User_fullname.ViewValue = Temperature_measurement_registration.User_fullname.DisplayValue(arwrk, 0)
                Else
                    Temperature_measurement_registration.User_fullname.ViewValue = Temperature_measurement_registration.User_fullname.CurrentValue
                End If
                RsWrk.Close
                Set RsWrk = Nothing
            Else
                Temperature_measurement_registration.User_fullname.ViewValue = Null
            End If
            End If
            Temperature_measurement_registration.User_fullname.ViewCustomAttributes = ""

            ' ID_number
            Temperature_measurement_registration.ID_number.ViewValue = Temperature_measurement_registration.ID_number.CurrentValue
            Temperature_measurement_registration.ID_number.ViewCustomAttributes = ""

            ' User_phonenumber
            Temperature_measurement_registration.User_phonenumber.ViewValue = Temperature_measurement_registration.User_phonenumber.CurrentValue
            Temperature_measurement_registration.User_phonenumber.ViewCustomAttributes = ""

            ' Place_of_origin
            If Temperature_measurement_registration.Place_of_origin_1.CurrentValue & "" <> "" Then
                sFilterWrk = "[Place_of_origin]" & ew_SearchString("=", Temperature_measurement_registration.Place_of_origin_1.CurrentValue, EW_DATATYPE_STRING, "")
            sSqlWrk = "SELECT [Place_of_origin], [Place_of_origin] AS [DispFld], '' AS [Disp2Fld], '' AS [Disp3Fld], '' AS [Disp4Fld] FROM [Place_of_origin]"
            sWhereWrk = ""
            Call ew_AddFilter(sWhereWrk, sFilterWrk)
            Call Temperature_measurement_registration.Lookup_Selecting(Temperature_measurement_registration.Place_of_origin_1, sWhereWrk) ' Call Lookup Selecting
            If sWhereWrk <> "" Then sSqlWrk = sSqlWrk & " WHERE " & sWhereWrk
            sSqlWrk = sSqlWrk & " ORDER BY [Place_of_origin] DESC"
                Call ew_SetDebugMsg("Lookup(DB): " & sSqlWrk) ' Show data for debugging
                Set RsWrk = ew_GetConn("DB").Execute(sSqlWrk)
                If Not RsWrk.Eof Then
                    Redim arwrk(4,0)
                    arwrk(1,0)= RsWrk("DispFld")
                    Temperature_measurement_registration.Place_of_origin_1.ViewValue = Temperature_measurement_registration.Place_of_origin_1.DisplayValue(arwrk, 0)
                Else
                    Temperature_measurement_registration.Place_of_origin_1.ViewValue = Temperature_measurement_registration.Place_of_origin_1.CurrentValue
                End If
                RsWrk.Close
                Set RsWrk = Nothing
            Else
                Temperature_measurement_registration.Place_of_origin_1.ViewValue = Null
            End If
            Temperature_measurement_registration.Place_of_origin_1.ViewCustomAttributes = ""

            ' To_which_department
            Temperature_measurement_registration.To_which_department.ViewValue = Temperature_measurement_registration.To_which_department.CurrentValue
            Temperature_measurement_registration.To_which_department.ViewCustomAttributes = ""

            ' no_matter_what
            Temperature_measurement_registration.no_matter_what.ViewValue = Temperature_measurement_registration.no_matter_what.CurrentValue
            Temperature_measurement_registration.no_matter_what.ViewCustomAttributes = ""

            ' temperature
            Temperature_measurement_registration.temperature.ViewValue = Temperature_measurement_registration.temperature.CurrentValue
            Temperature_measurement_registration.temperature.ViewCustomAttributes = ""

            ' Departure_time
            Temperature_measurement_registration.Departure_time.ViewValue = Temperature_measurement_registration.Departure_time.CurrentValue
            Temperature_measurement_registration.Departure_time.ViewValue = ew_FormatDateTime(Temperature_measurement_registration.Departure_time.ViewValue, 1)
            Temperature_measurement_registration.Departure_time.ViewCustomAttributes = ""

            ' last_update_time
            Temperature_measurement_registration.last_update_time.ViewValue = Temperature_measurement_registration.last_update_time.CurrentValue
            Temperature_measurement_registration.last_update_time.ViewValue = ew_FormatDateTime(Temperature_measurement_registration.last_update_time.ViewValue, 0)
            Temperature_measurement_registration.last_update_time.ViewCustomAttributes = ""

            ' update_users
            Temperature_measurement_registration.update_users.ViewValue = Temperature_measurement_registration.update_users.CurrentValue
            Temperature_measurement_registration.update_users.ViewCustomAttributes = ""

            ' View refer script
            ' Date_of_registration

            Temperature_measurement_registration.Date_of_registration.LinkCustomAttributes = ""
            Temperature_measurement_registration.Date_of_registration.HrefValue = ""
            Temperature_measurement_registration.Date_of_registration.TooltipValue = ""

            ' User_fullname
            Temperature_measurement_registration.User_fullname.LinkCustomAttributes = ""
            Temperature_measurement_registration.User_fullname.HrefValue = ""
            Temperature_measurement_registration.User_fullname.TooltipValue = ""

            ' ID_number
            Temperature_measurement_registration.ID_number.LinkCustomAttributes = ""
            Temperature_measurement_registration.ID_number.HrefValue = ""
            Temperature_measurement_registration.ID_number.TooltipValue = ""

            ' User_phonenumber
            Temperature_measurement_registration.User_phonenumber.LinkCustomAttributes = ""
            Temperature_measurement_registration.User_phonenumber.HrefValue = ""
            Temperature_measurement_registration.User_phonenumber.TooltipValue = ""

            ' Place_of_origin
            Temperature_measurement_registration.Place_of_origin_1.LinkCustomAttributes = ""
            Temperature_measurement_registration.Place_of_origin_1.HrefValue = ""
            Temperature_measurement_registration.Place_of_origin_1.TooltipValue = ""

            ' To_which_department
            Temperature_measurement_registration.To_which_department.LinkCustomAttributes = ""
            Temperature_measurement_registration.To_which_department.HrefValue = ""
            Temperature_measurement_registration.To_which_department.TooltipValue = ""

            ' no_matter_what
            Temperature_measurement_registration.no_matter_what.LinkCustomAttributes = ""
            Temperature_measurement_registration.no_matter_what.HrefValue = ""
            Temperature_measurement_registration.no_matter_what.TooltipValue = ""

            ' temperature
            Temperature_measurement_registration.temperature.LinkCustomAttributes = ""
            Temperature_measurement_registration.temperature.HrefValue = ""
            Temperature_measurement_registration.temperature.TooltipValue = ""

            ' Departure_time
            Temperature_measurement_registration.Departure_time.LinkCustomAttributes = ""
            Temperature_measurement_registration.Departure_time.HrefValue = ""
            Temperature_measurement_registration.Departure_time.TooltipValue = ""

            ' last_update_time
            Temperature_measurement_registration.last_update_time.LinkCustomAttributes = ""
            Temperature_measurement_registration.last_update_time.HrefValue = ""
            Temperature_measurement_registration.last_update_time.TooltipValue = ""

            ' update_users
            Temperature_measurement_registration.update_users.LinkCustomAttributes = ""
            Temperature_measurement_registration.update_users.HrefValue = ""
            Temperature_measurement_registration.update_users.TooltipValue = ""

        '
        ' Add Row
        '

        ElseIf Temperature_measurement_registration.RowType = EW_ROWTYPE_ADD Then ' Add row

            ' Date_of_registration
            Call Temperature_measurement_registration.Date_of_registration.EditAttrs.UpdateAttribute("class", "form-control")
            Temperature_measurement_registration.Date_of_registration.EditCustomAttributes = ""
            Temperature_measurement_registration.Date_of_registration.EditValue = ew_HtmlEncode(ew_FormatDateTime(Temperature_measurement_registration.Date_of_registration.CurrentValue, 8))
            Temperature_measurement_registration.Date_of_registration.PlaceHolder = ew_HtmlEncode(ew_RemoveHtml(Temperature_measurement_registration.Date_of_registration.FldCaption))

            ' User_fullname
            Call Temperature_measurement_registration.User_fullname.EditAttrs.UpdateAttribute("class", "form-control")
            Temperature_measurement_registration.User_fullname.EditCustomAttributes = ""
            If Temperature_measurement_registration.User_fullname.CurrentValue & "" = "" Then
                sFilterWrk = "0=1"
            Else
                sFilterWrk = "[User_fullname]" & ew_SearchString("=", Temperature_measurement_registration.User_fullname.CurrentValue, EW_DATATYPE_STRING, "")
            End If
            sSqlWrk = "SELECT [User_fullname], [User_fullname] AS [DispFld], '' AS [Disp2Fld], '' AS [Disp3Fld], '' AS [Disp4Fld], '' AS [SelectFilterFld], '' AS [SelectFilterFld2], '' AS [SelectFilterFld3], '' AS [SelectFilterFld4] FROM [visitor_maillist]"
            sWhereWrk = ""
            Call ew_AddFilter(sWhereWrk, sFilterWrk)
            Call Temperature_measurement_registration.Lookup_Selecting(Temperature_measurement_registration.User_fullname, sWhereWrk) ' Call Lookup Selecting
            If sWhereWrk <> "" Then sSqlWrk = sSqlWrk & " WHERE " & sWhereWrk
            sSqlWrk = sSqlWrk & " ORDER BY [User_fullname] DESC"
            Set RsWrk = Server.CreateObject("ADODB.Recordset")
            Call ew_SetDebugMsg("Lookup(DB): " & sSqlWrk) ' Show data for debugging
            RsWrk.Open sSqlWrk, ew_GetConn("DB")
            If Not RsWrk.Eof Then
                arwrk = RsWrk.GetRows
            Else
                arwrk = Array()
            End If
            RsWrk.Close
            Set RsWrk = Nothing
            Temperature_measurement_registration.User_fullname.EditValue = arwrk

            ' ID_number
            Call Temperature_measurement_registration.ID_number.EditAttrs.UpdateAttribute("class", "form-control")
            Temperature_measurement_registration.ID_number.EditCustomAttributes = ""
            Temperature_measurement_registration.ID_number.EditValue = ew_HtmlEncode(Temperature_measurement_registration.ID_number.CurrentValue)
            Temperature_measurement_registration.ID_number.PlaceHolder = ew_HtmlEncode(ew_RemoveHtml(Temperature_measurement_registration.ID_number.FldCaption))

            ' User_phonenumber
            Call Temperature_measurement_registration.User_phonenumber.EditAttrs.UpdateAttribute("class", "form-control")
            Temperature_measurement_registration.User_phonenumber.EditCustomAttributes = ""
            Temperature_measurement_registration.User_phonenumber.EditValue = ew_HtmlEncode(Temperature_measurement_registration.User_phonenumber.CurrentValue)
            Temperature_measurement_registration.User_phonenumber.PlaceHolder = ew_HtmlEncode(ew_RemoveHtml(Temperature_measurement_registration.User_phonenumber.FldCaption))

            ' Place_of_origin
            Call Temperature_measurement_registration.Place_of_origin_1.EditAttrs.UpdateAttribute("class", "form-control")
            Temperature_measurement_registration.Place_of_origin_1.EditCustomAttributes = ""
            If Temperature_measurement_registration.Place_of_origin_1.CurrentValue & "" = "" Then
                sFilterWrk = "0=1"
            Else
                sFilterWrk = "[Place_of_origin]" & ew_SearchString("=", Temperature_measurement_registration.Place_of_origin_1.CurrentValue, EW_DATATYPE_STRING, "")
            End If
            sSqlWrk = "SELECT [Place_of_origin], [Place_of_origin] AS [DispFld], '' AS [Disp2Fld], '' AS [Disp3Fld], '' AS [Disp4Fld], '' AS [SelectFilterFld], '' AS [SelectFilterFld2], '' AS [SelectFilterFld3], '' AS [SelectFilterFld4] FROM [Place_of_origin]"
            sWhereWrk = ""
            Call ew_AddFilter(sWhereWrk, sFilterWrk)
            Call Temperature_measurement_registration.Lookup_Selecting(Temperature_measurement_registration.Place_of_origin_1, sWhereWrk) ' Call Lookup Selecting
            If sWhereWrk <> "" Then sSqlWrk = sSqlWrk & " WHERE " & sWhereWrk
            sSqlWrk = sSqlWrk & " ORDER BY [Place_of_origin] DESC"
            Set RsWrk = Server.CreateObject("ADODB.Recordset")
            Call ew_SetDebugMsg("Lookup(DB): " & sSqlWrk) ' Show data for debugging
            RsWrk.Open sSqlWrk, ew_GetConn("DB")
            If Not RsWrk.Eof Then
                arwrk = RsWrk.GetRows
            Else
                arwrk = Array()
            End If
            RsWrk.Close
            Set RsWrk = Nothing
            Temperature_measurement_registration.Place_of_origin_1.EditValue = arwrk

            ' To_which_department
            Call Temperature_measurement_registration.To_which_department.EditAttrs.UpdateAttribute("class", "form-control")
            Temperature_measurement_registration.To_which_department.EditCustomAttributes = ""
            Temperature_measurement_registration.To_which_department.EditValue = ew_HtmlEncode(Temperature_measurement_registration.To_which_department.CurrentValue)
            Temperature_measurement_registration.To_which_department.PlaceHolder = ew_HtmlEncode(ew_RemoveHtml(Temperature_measurement_registration.To_which_department.FldCaption))

            ' no_matter_what
            Call Temperature_measurement_registration.no_matter_what.EditAttrs.UpdateAttribute("class", "form-control")
            Temperature_measurement_registration.no_matter_what.EditCustomAttributes = ""
            Temperature_measurement_registration.no_matter_what.EditValue = ew_HtmlEncode(Temperature_measurement_registration.no_matter_what.CurrentValue)
            Temperature_measurement_registration.no_matter_what.PlaceHolder = ew_HtmlEncode(ew_RemoveHtml(Temperature_measurement_registration.no_matter_what.FldCaption))

            ' temperature
            Call Temperature_measurement_registration.temperature.EditAttrs.UpdateAttribute("class", "form-control")
            Temperature_measurement_registration.temperature.EditCustomAttributes = ""
            Temperature_measurement_registration.temperature.EditValue = ew_HtmlEncode(Temperature_measurement_registration.temperature.CurrentValue)
            Temperature_measurement_registration.temperature.PlaceHolder = ew_HtmlEncode(ew_RemoveHtml(Temperature_measurement_registration.temperature.FldCaption))
            If Temperature_measurement_registration.temperature.EditValue&"" <> "" And IsNumeric(Temperature_measurement_registration.temperature.EditValue) Then Temperature_measurement_registration.temperature.EditValue = ew_FormatNumber(Temperature_measurement_registration.temperature.EditValue, -2, -2, -2, 0)

            ' Departure_time
            Call Temperature_measurement_registration.Departure_time.EditAttrs.UpdateAttribute("class", "form-control")
            Temperature_measurement_registration.Departure_time.EditCustomAttributes = ""
            Temperature_measurement_registration.Departure_time.EditValue = ew_HtmlEncode(ew_FormatDateTime(Temperature_measurement_registration.Departure_time.CurrentValue, 8))
            Temperature_measurement_registration.Departure_time.PlaceHolder = ew_HtmlEncode(ew_RemoveHtml(Temperature_measurement_registration.Departure_time.FldCaption))

            ' last_update_time
            ' update_users
            ' Add refer script
            ' Date_of_registration

            Temperature_measurement_registration.Date_of_registration.LinkCustomAttributes = ""
            Temperature_measurement_registration.Date_of_registration.HrefValue = ""

            ' User_fullname
            Temperature_measurement_registration.User_fullname.LinkCustomAttributes = ""
            Temperature_measurement_registration.User_fullname.HrefValue = ""

            ' ID_number
            Temperature_measurement_registration.ID_number.LinkCustomAttributes = ""
            Temperature_measurement_registration.ID_number.HrefValue = ""

            ' User_phonenumber
            Temperature_measurement_registration.User_phonenumber.LinkCustomAttributes = ""
            Temperature_measurement_registration.User_phonenumber.HrefValue = ""

            ' Place_of_origin
            Temperature_measurement_registration.Place_of_origin_1.LinkCustomAttributes = ""
            Temperature_measurement_registration.Place_of_origin_1.HrefValue = ""

            ' To_which_department
            Temperature_measurement_registration.To_which_department.LinkCustomAttributes = ""
            Temperature_measurement_registration.To_which_department.HrefValue = ""

            ' no_matter_what
            Temperature_measurement_registration.no_matter_what.LinkCustomAttributes = ""
            Temperature_measurement_registration.no_matter_what.HrefValue = ""

            ' temperature
            Temperature_measurement_registration.temperature.LinkCustomAttributes = ""
            Temperature_measurement_registration.temperature.HrefValue = ""

            ' Departure_time
            Temperature_measurement_registration.Departure_time.LinkCustomAttributes = ""
            Temperature_measurement_registration.Departure_time.HrefValue = ""

            ' last_update_time
            Temperature_measurement_registration.last_update_time.LinkCustomAttributes = ""
            Temperature_measurement_registration.last_update_time.HrefValue = ""

            ' update_users
            Temperature_measurement_registration.update_users.LinkCustomAttributes = ""
            Temperature_measurement_registration.update_users.HrefValue = ""
        End If
        If Temperature_measurement_registration.RowType = EW_ROWTYPE_ADD Or Temperature_measurement_registration.RowType = EW_ROWTYPE_EDIT Or Temperature_measurement_registration.RowType = EW_ROWTYPE_SEARCH Then ' Add/Edit/Search row
            Call Temperature_measurement_registration.SetupFieldTitles
        End If

        ' Call Row Rendered event
        If Temperature_measurement_registration.RowType <> EW_ROWTYPE_AGGREGATEINIT Then
            Call Temperature_measurement_registration.Row_Rendered
        End If
    End Sub

    '
    ' Validate form
    '
    Function ValidateForm()

        ' Initialize
        gsFormError = ""

        ' Check if validation required
        If Not EW_SERVER_VALIDATE Then
            ValidateForm = (gsFormError = "")
            Exit Function
        End If
        If Not Temperature_measurement_registration.Date_of_registration.FldIsDetailKey And Not IsNull(Temperature_measurement_registration.Date_of_registration.FormValue) And Temperature_measurement_registration.Date_of_registration.FormValue&"" = "" Then
            Call ew_AddMessage(gsFormError, Replace(Temperature_measurement_registration.Date_of_registration.ReqErrMsg, "%s", Temperature_measurement_registration.Date_of_registration.FldCaption))
        End If
        If Not ew_CheckDateDef(Temperature_measurement_registration.Date_of_registration.FormValue) Then
            Call ew_AddMessage(gsFormError, Temperature_measurement_registration.Date_of_registration.FldErrMsg)
        End If
        If Not Temperature_measurement_registration.User_fullname.FldIsDetailKey And Not IsNull(Temperature_measurement_registration.User_fullname.FormValue) And Temperature_measurement_registration.User_fullname.FormValue&"" = "" Then
            Call ew_AddMessage(gsFormError, Replace(Temperature_measurement_registration.User_fullname.ReqErrMsg, "%s", Temperature_measurement_registration.User_fullname.FldCaption))
        End If
        If Not Temperature_measurement_registration.Place_of_origin_1.FldIsDetailKey And Not IsNull(Temperature_measurement_registration.Place_of_origin_1.FormValue) And Temperature_measurement_registration.Place_of_origin_1.FormValue&"" = "" Then
            Call ew_AddMessage(gsFormError, Replace(Temperature_measurement_registration.Place_of_origin_1.ReqErrMsg, "%s", Temperature_measurement_registration.Place_of_origin_1.FldCaption))
        End If
        If Not ew_CheckNumber(Temperature_measurement_registration.temperature.FormValue) Then
            Call ew_AddMessage(gsFormError, Temperature_measurement_registration.temperature.FldErrMsg)
        End If
        If Not ew_CheckDateDef(Temperature_measurement_registration.Departure_time.FormValue) Then
            Call ew_AddMessage(gsFormError, Temperature_measurement_registration.Departure_time.FldErrMsg)
        End If

        ' Return validate result
        ValidateForm = (gsFormError = "")

        ' Call Form Custom Validate event
        Dim sFormCustomError
        sFormCustomError = ""
        ValidateForm = ValidateForm And Form_CustomValidate(sFormCustomError)
        If sFormCustomError <> "" Then
            Call ew_AddMessage(gsFormError, sFormCustomError)
        End If
    End Function

    '
    ' Add record
    '
    Function AddRow(RsOld)
        If Not EW_DEBUG_ENABLED Then On Error Resume Next
        Dim cnn, Rs, sSql, sFilter
        Dim RsNew
        Dim bInsertRow
        Dim RsChk
        Dim sIdxErrMsg

        ' Clear any previous errors
        Err.Clear
        Dim RsMaster, sMasterUserIdMsg, sMasterFilter, bCheckMasterRecord, bValidMasterKey
        Set cnn = Temperature_measurement_registration.TableConnection

        ' Load db values from rsold
        Call LoadDbValues(RsOld)
        If Not IsNull(RsOld) Then
        End If

        ' Add new record
        sFilter = "(0 = 1)"
        Temperature_measurement_registration.CurrentFilter = sFilter
        sSql = Temperature_measurement_registration.UpdateTableSQL
        Set Rs = Server.CreateObject("ADODB.Recordset")
        Rs.CursorLocation = Temperature_measurement_registration.TableCursorLocation
        Call ew_SetDebugMsg("AddRow: " & sSql) ' Show SQL for debugging
        Rs.Open sSql, cnn, 1, Temperature_measurement_registration.TableRecordsetLockType
        Rs.AddNew
        If Err.Number <> 0 Then
            Message = Err.Description
            Rs.Close
            Set Rs = Nothing
            AddRow = False
            Exit Function
        End If

        ' Field Date_of_registration
        Call Temperature_measurement_registration.Date_of_registration.SetDbValue(Rs, ew_UnFormatDateTime(Temperature_measurement_registration.Date_of_registration.CurrentValue, 1), Null, False)

        ' Field User_fullname
        Call Temperature_measurement_registration.User_fullname.SetDbValue(Rs, Temperature_measurement_registration.User_fullname.CurrentValue, Null, False)

        ' Field ID_number
        Call Temperature_measurement_registration.ID_number.SetDbValue(Rs, Temperature_measurement_registration.ID_number.CurrentValue, Null, False)

        ' Field User_phonenumber
        Call Temperature_measurement_registration.User_phonenumber.SetDbValue(Rs, Temperature_measurement_registration.User_phonenumber.CurrentValue, Null, False)

        ' Field Place_of_origin
        Call Temperature_measurement_registration.Place_of_origin_1.SetDbValue(Rs, Temperature_measurement_registration.Place_of_origin_1.CurrentValue, Null, False)

        ' Field To_which_department
        Call Temperature_measurement_registration.To_which_department.SetDbValue(Rs, Temperature_measurement_registration.To_which_department.CurrentValue, Null, False)

        ' Field no_matter_what
        Call Temperature_measurement_registration.no_matter_what.SetDbValue(Rs, Temperature_measurement_registration.no_matter_what.CurrentValue, Null, False)

        ' Field temperature
        Call Temperature_measurement_registration.temperature.SetDbValue(Rs, Temperature_measurement_registration.temperature.CurrentValue, Null, Temperature_measurement_registration.temperature.CurrentValue&"" = "")

        ' Field Departure_time
        Call Temperature_measurement_registration.Departure_time.SetDbValue(Rs, ew_UnFormatDateTime(Temperature_measurement_registration.Departure_time.CurrentValue, 1), Null, False)

        ' Field last_update_time
        Call Temperature_measurement_registration.last_update_time.SetDbValue(Rs, ew_CurrentDateTime, Null, False)

        ' Field update_users
        Call Temperature_measurement_registration.update_users.SetDbValue(Rs, CurrentUserName, Null, False)

        ' Check recordset update error
        If Err.Number <> 0 Then
            FailureMessage = Err.Description
            Rs.Close
            Set Rs = Nothing
            AddRow = False
            Exit Function
        End If

        ' Call Row Inserting event
        bInsertRow = Temperature_measurement_registration.Row_Inserting(RsOld, Rs)
        If bInsertRow Then

            ' Clone new recordset object
            Set RsNew = ew_CloneRs(Rs)
            Call ew_SetDebugMsg("Insert: " & ew_HtmlEncode(ew_RecordToJson(RsNew))) ' Show data for debugging
            Rs.Update
            If Err.Number <> 0 Then
                FailureMessage = Err.Description
                AddRow = False
            Else
                AddRow = True
            End If
            If AddRow Then
                Temperature_measurement_registration.S_number.DbValue = RsNew("S_number") ' Get insert id if necessary
            End If
        Else
            Rs.CancelUpdate

            ' Set up error message
            If SuccessMessage <> "" Or FailureMessage <> "" Then

                ' Use the message, do nothing
            ElseIf Temperature_measurement_registration.CancelMessage <> "" Then
                FailureMessage = Temperature_measurement_registration.CancelMessage
                Temperature_measurement_registration.CancelMessage = ""
            Else
                FailureMessage = Language.Phrase("InsertCancelled")
            End If
            AddRow = False
        End If
        Rs.Close
        Set Rs = Nothing
        If AddRow Then

            ' Call Row Inserted event
            Call Temperature_measurement_registration.Row_Inserted(RsOld, RsNew)
            Call Temperature_measurement_registration.WriteAuditTrailOnAdd(RsNew)
        End If
        If ew_NotEmpty(RsNew) Then
            RsNew.Close
            Set RsNew = Nothing
        End If
    End Function

    ' Set up Breadcrumb
    Sub SetupBreadcrumb()
        Dim PageId, url
        Set Breadcrumb = New cBreadcrumb
        url = Mid(ew_CurrentUrl(), InStrRev(ew_CurrentUrl(), "/") 1)
        Call Breadcrumb.Add("list", Temperature_measurement_registration.TableVar, Temperature_measurement_registration.AddMasterUrl("ontrial_Temperature_measurement_registrationlist.asp"), "", Temperature_measurement_registration.TableVar, True)
        PageId = ew_IIf(Temperature_measurement_registration.CurrentAction = "C", "Copy", "Add")
        Call Breadcrumb.Add("add", PageId, url, "", "", False)
    End Sub

    ' Setup lookup filters of a field
    Sub SetupLookupFilters(fld, pageId)
        pageId = ew_IIf(ew_EmptyStr(pageId), Temperature_measurement_registration_add.PageID, pageId)
        Select Case fld.FldVar
            Case "x_User_fullname"
                sSqlWrk = ""
                If ew_Empty(fld.LookupFilters) Then
                    Set fld.LookupFilters = Dictionary()
                End If
            sSqlWrk = "SELECT [User_fullname] AS [LinkFld], [User_fullname] AS [DispFld], '' AS [Disp2Fld], '' AS [Disp3Fld], '' AS [Disp4Fld] FROM [visitor_maillist]"
            sWhereWrk = ""
                fld.LookupFilters.Add "s", sSqlWrk
                fld.LookupFilters.Add "d", ""
                fld.LookupFilters.Add "f0", "[User_fullname] IN ({filter_value})"
                fld.LookupFilters.Add "t0", "202"
                fld.LookupFilters.Add "fn0", ""
                sSqlWrk = ""
            Call Temperature_measurement_registration.Lookup_Selecting(Temperature_measurement_registration.User_fullname, sWhereWrk) ' Call Lookup Selecting
            If sWhereWrk <> "" Then sSqlWrk = sSqlWrk & " WHERE " & sWhereWrk
            sSqlWrk = sSqlWrk & " ORDER BY [User_fullname] DESC"
                If sSqlWrk <> "" Then
                    fld.LookupFilters.Set "s", fld.LookupFilters.Get("s") & sSqlWrk
                End If
            Case "x_Place_of_origin_1"
                sSqlWrk = ""
                If ew_Empty(fld.LookupFilters) Then
                    Set fld.LookupFilters = Dictionary()
                End If
            sSqlWrk = "SELECT [Place_of_origin] AS [LinkFld], [Place_of_origin] AS [DispFld], '' AS [Disp2Fld], '' AS [Disp3Fld], '' AS [Disp4Fld] FROM [Place_of_origin]"
            sWhereWrk = ""
                fld.LookupFilters.Add "s", sSqlWrk
                fld.LookupFilters.Add "d", ""
                fld.LookupFilters.Add "f0", "[Place_of_origin] IN ({filter_value})"
                fld.LookupFilters.Add "t0", "202"
                fld.LookupFilters.Add "fn0", ""
                sSqlWrk = ""
            Call Temperature_measurement_registration.Lookup_Selecting(Temperature_measurement_registration.Place_of_origin_1, sWhereWrk) ' Call Lookup Selecting
            If sWhereWrk <> "" Then sSqlWrk = sSqlWrk & " WHERE " & sWhereWrk
            sSqlWrk = sSqlWrk & " ORDER BY [Place_of_origin] DESC"
                If sSqlWrk <> "" Then
                    fld.LookupFilters.Set "s", fld.LookupFilters.Get("s") & sSqlWrk
                End If
        End Select
    End Sub

    ' Setup AutoSuggest filters of a field
    Sub SetupAutoSuggestFilters(fld, pageId)
        pageId = ew_IIF(ew_EmptyStr(pageId), Temperature_measurement_registration_add.PageID, pageId)
        Select Case fld.FldVar
        End Select
    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"|"warning"
    Sub Message_Showing(msg, typ)

        ' Example:
        'If typ = "success" Then
        '    msg = "your success message"
        'ElseIf typ = "failure" Then
        '    msg = "your failure message"
        'ElseIf typ = "warning" Then
        '    msg = "your warning message"
        'Else
        '    msg = "your message"
        'End If

    End Sub

    ' Page Render event
    Sub Page_Render()

        'Response.Write "Page Render"
    End Sub

    ' Page Data Rendering event
    Sub Page_DataRendering(header)

        ' Example:
        'header = "your header"

    End Sub

    ' Page Data Rendered event
    Sub Page_DataRendered(footer)

        ' Example:
        'footer = "your footer"

    End Sub

    ' Form Custom Validate event
    Function Form_CustomValidate(CustomError)

        'Return error message in CustomError
        Form_CustomValidate = True
    End Function
End Class
%>

标签: 测温 访客 系统

实例下载地址

访客测温登记系统 V1.3.1

不能下载?内容有错? 点击这里报错 + 投诉 + 提问

好例子网口号:伸出你的我的手 — 分享

网友评论

第 1 楼 17638915284 发表于: 2022-09-26 12:02 37
数据库和部署环境呢?

支持(0) 盖楼(回复)

发表评论

(您的评论需要经过审核才能显示)

查看所有1条评论>>

小贴士

感谢您为本站写下的评论,您的评论对其它用户来说具有重要的参考价值,所以请认真填写。

  • 类似“顶”、“沙发”之类没有营养的文字,对勤劳贡献的楼主来说是令人沮丧的反馈信息。
  • 相信您也不想看到一排文字/表情墙,所以请不要反馈意义不大的重复字符,也请尽量不要纯表情的回复。
  • 提问之前请再仔细看一遍楼主的说明,或许是您遗漏了。
  • 请勿到处挖坑绊人、招贴广告。既占空间让人厌烦,又没人会搭理,于人于己都无利。

关于好例子网

本站旨在为广大IT学习爱好者提供一个非营利性互相学习交流分享平台。本站所有资源都可以被免费获取学习研究。本站资源来自网友分享,对搜索内容的合法性不具有预见性、识别性、控制性,仅供学习研究,请务必在下载后24小时内给予删除,不得用于其他任何用途,否则后果自负。基于互联网的特殊性,平台无法对用户传输的作品、信息、内容的权属或合法性、安全性、合规性、真实性、科学性、完整权、有效性等进行实质审查;无论平台是否已进行审查,用户均应自行承担因其传输的作品、信息、内容而可能或已经产生的侵权或权属纠纷等法律责任。本站所有资源不代表本站的观点或立场,基于网友分享,根据中国法律《信息网络传播权保护条例》第二十二与二十三条之规定,若资源存在侵权或相关问题请联系本站客服人员,点此联系我们。关于更多版权及免责申明参见 版权及免责申明

;
报警