韩国化妆品三大品牌:帮忙翻译一下下面的程序，尽量详细一些，越详细越好！！！！

<%
search_flag=0
Msg="测点温度历史查询"

if Request.QueryString ("ID")<>"" then
Search_flag=1
elseif Request.form ("Slt_flag")="1" then
Search_flag=2
end if

select case Search_flag
case 1
PntID=Request.QueryString ("ID")
PntExplain=Request.QueryString ("Explain")
InputDateTime=date()
InputYear=year(InputDateTime)
InputMonth=month(InputDateTime)
InputDay=Day(InputDateTime)
case 2
pntid=Request.form ("ID")
InputYear=Request.Form ("SltYear")
InputMonth=Request.Form ("SltMonth")
InputDay=Request.Form ("SltDay")
'InputHour=Request.Form ("SltHour")

'if not (isnumeric(InputHour)) then Msg="<font color=red>请选择整点数！</font>"
if not (isnumeric(InputDay)) then Msg="<font color=red>请选择要查询的日期！</font>"
if not (isnumeric(InputMonth)) then Msg="<font color=red>请选择要查询的月份！</font>"
if (not (isnumeric(InputYear)) or len(cstr(InputYear))<>4) then Msg="<font color=red>请输入要查询的4位数字年份！</font>"
if pntid="" then
msg="<font color=red>请选择要查询的测点！</font>"
end if

InputDateTime=InputYear&"-"&InputMonth&"-"&InputDay
end select

'Response.Write InputYear&"年"&InputMonth&"月"&InputDay&"日"
'Response.Write "<br>"&Search_flag&"<br>"
'Response.Write PntID
'Response.Write "<br>"&aaa&"<br>"&InputDateTime
%>
<!--#include file="DBOpen.asp"-->
<div align="center">
<table border="0" width="780" id="table13" cellspacing="0" cellpadding="0">
<tr>
<td align="middle"><%=Msg%>
<table border="0" width="100%" id="table14" cellspacing="0" cellpadding="0">
<tr>
<td><form action="wdls.asp" method="post" id="form1" name="creator">
<table border="0" width="780" id="table15" cellspacing="0" cellpadding="0" height="30">
<tr>
<td align="center" valign="bottom" >
<p align="center">
<select size="1" name="ID" style="FONT-SIZE: 9pt;">
<option value="">请选择测点</option>
<%

set PntList_data=server.CreateObject("ADODB.Recordset")
set PntList_data=conn.execute ("select * from ScanPoints order by ID")
'i=pntlist_data.RecordCount

'Response.Write i
'
'set Pnt_TempWD_data=server.CreateObject ("adodb.recordset")

'set SltYear_data=conn.execute ("select * from 1011049 group by DateTime")

'String_conn="select * from "&PntID
'Response.Write string_conn

do until PntList_data.EOF
Slt_flag=""
if Cstr(Pntlist_data("ID"))=Cstr(pntid) and search_flag<>0 then Slt_flag="selected"
if Cstr(Pntlist_data("ID"))<>"1001049" and Cstr(Pntlist_data("ID"))<>"1001050" then
%>