杭州交通信息网神农基因子公司:帮忙翻译一下下面的程序，尽量详细一些，越详细越好！！！！
来源：百度文库 编辑：杭州交通信息网 时间：2024/04/27 19:46:54
<html>
<!--#include file="log_flag.asp"-->
<!--#include file="DBOpen.asp"-->
<%
ID=Request.QueryString ("ID")
%>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<LINK href="style.css" rel=stylesheet type=text/css>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>测点报警历史记录</title>
</head>
<body bgcolor="#F4F4F4" topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0" >
<div align="center">
<table border="0" width="444" id="table1" cellspacing="0" cellpadding="0">
<tr>
<td align="center" valign="top">
<table border="1" width="100%" id="table2" cellspacing="0" cellpadding="0" bordercolor="#ABABAB" style="border-collapse: collapse">
<%
set PntAlert_data=server.CreateObject ("adodb.recordset")
String_conn="select * from AlertRec where ID="&ID&" order by ""DateTime"" DESC"
'Response.Write string_conn
set PntAlert_data=conn.Execute (string_conn)
do until PntAlert_data.EOF
select case PntAlert_data("Type")
case 1
'StrAlert="超温报警：报警温度界限"&Cstr(AlertWD)&"℃"
StrColor="red"
case 2
'StrAlert="温升过快"
StrColor="#FF00FF"
case 3
'StrAlert="超温预警：预警温度界限"&Cstr(PreAlertWD)&"℃"
StrColor="#FFA500"
case 4
'StrAlert="温度传感器故障"
StrColor="#007F00"
end select
%>
<tr>
<td width="180" style="padding-left: 2px"><font color="<%=StrColor%>"><%=PntAlert_data("DateTime")%></font></td>
<td width="264" style="padding-left: 2px"><font color="<%=StrColor%>"><%=PntAlert_data("Explain")%></font></td>
</tr>
<%
PntAlert_data.MoveNext ()
loop
PntAlert_data.Close ()
set PntAlert_data=nothing
%>
</table>
</td>
</tr>
</table>
</div>
<%'Response.Write ID%>
</body>
<!--#include file="DBClose.asp"-->
</html>
<%@语言= VBScript%>
<html>
<!--#包括 file="log_flag.asp"-->
<!--#包括 file="DBOpen.asp"-->
<%
ID=Request。QueryString("身份证")
%>
<领导>
<meta http-equiv="内容-语言" 内容"=zh-cn">
<联编 href="style.css" 阻抗的单位= stylesheet 类型=本文/css>
<meta http-equiv="内容-类型" 内容"=本文/html;charset=gb2312">
<命名 >测点报警历史记录</名称>
</头>
<身体 bgcolor="#F4F4F4"topmargin"=0"leftmargin"=0"rightmargin"=0"bottommargin"=0">
< div 排列 ="中心">
<桌子边缘="0" 宽度"=444"遗传素质"=table1"cellspacing"=0"cellpadding"=0">
<tr>
<td 排列="中心" valign"=顶端">
<桌子边缘="1" 宽度"=100%"遗传素质"=table2"cellspacing"=0"cellpadding"=0"bordercolor"=#ABABAB"风格"=边缘-崩溃: 崩溃">
<%
设定 PntAlert_data=server 。CreateObject("adodb.recordset")
String_conn=" 挑选出来的 * 从 AlertRec 哪里身份证="&身份证&" 次序藉着 ""DateTime"" DESC"
'回应。写 string_conn
设定 PntAlert_data=指挥操舵。运行 (string_conn)
做直到 PntAlert_data。EOF
选择情形 PntAlert_data("类型")
情形 1
' StrAlert="超温报警：报警温度界限"&Cstr(AlertWD) 和 "℃"
StrColor="red"
情形 2
' StrAlert="温升过快"
StrColor="#FF00FF"
情形 3
' StrAlert="超温预警：预警温度界限"&Cstr(PreAlertWD) 和 "℃"
StrColor="#FFA500"
情形 4
' StrAlert="温度传感器故障"
StrColor="#007 F00"
结束挑选出来的
%>
<tr>
<td 宽度="180" 风格"=垫充-左边: 2 px"><字型颜色="<%=StrColor%>"><%=PntAlert_data("DateTime")%></字型></td>
<td 宽度="264" 风格"=垫充-左边: 2 px"><字型颜色="<%=StrColor%>"><%=PntAlert_data("")%></字型></td>
</tr>
<%
PntAlert_data。MoveNext()
使
PntAlert_data。关 ()
设定 PntAlert_data= 无
%>
</桌子>
</td>
</tr>
</桌子>
</div>
<%'回应。写身份证%>
</身体>
<!--#包括 file="DBClose.asp"-->
</html>