📄 fireadd.asp
字号:
<% Set hdobj = Server.CreateObject("HD.comOpen")'请确保此行在最前
Connkaa = hdobj.WeekaaConn()
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>房屋使用管理</title>
<style type="text/css">
<!--
body {
margin-left: 0px;
margin-top: 10px;
margin-right: 0px;
margin-bottom: 0px;
}
.style9 {
font-size: 14px;
font-weight: bold;
font-family: "黑体";
}
body,td,th {
font-size: 12px;
}
a:link {
color: #000000;
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #000000;
}
a:hover {
text-decoration: none;
}
a:active {
text-decoration: none;
}
.STYLE12 {font-size: 16px; font-family: "黑体"; color: #FF0000;}
-->
</style>
<%
dim a,bz,yz
ID=trim(Request.QueryString("ID"))
Laka=trim(Request.QueryString("Laka"))
if (Request.QueryString("ac"))="" then
if ID<>"" then
Set rv=Server.Createobject("Adodb.RecordSet")
sqlv = "Select * From [Fire] where ID="&ID
rv.Open sqlv,Connkaa,1,3
if Not rv.Eof then
ID=rv("ID")
rva=rv("a")
rvb=rv("b")
rvc=rv("c")
rvd=rv("d")
rve=rv("e")
rvf=rv("f")
rvg=rv("g")
rvh=rv("h")
rvi=rv("i")
rvj=rv("j")
rvk=rv("k")
rvl=rv("l")
rvh=FormatDateTime(rvh,2)
rvj=FormatDateTime(rvj,2)
rvl=FormatDateTime(rvl,2)
rvi=rvi*1
rvk=rvk*1
bgh=""
bgj=""
bgl=""
if datediff("d",rvj,now())>rvi then
bgj="#FF0000"
end if
if datediff("d",rvl,now())>rvk then
bgl="#FF0000"
end if
if datediff("d",rvh,now())>0 then
bgh="#FF0000"
end if
end if
else
rva=Laka
end if
%>
</head>
<body>
<form name="form" method="post" action="?ID=<%=ID%>&ac=action">
<table width="500" border="0" align="center">
<tr align="center" valign="middle">
<td height="40" colspan="4">
<span class="STYLE12"><%=rva%>消防资料</span></td>
</tr>
<tr>
<td width="19"> </td>
<td width="109" height="30" align="center">楼层代码</td>
<td width="335" align="left"><input type="hidden" name="a" value="<%=rva%>"><%=rva%></td>
<td width="19"> </td>
</tr>
<tr>
<td> </td>
<td height="30" align="center">项 目</td>
<td align="left"><input name="b" type="text" id="b" style="background-color: #FFFFFF; border-color: #000099; border-style: solid; border-width: 0px 0px 1px" value="<%=rvb%>" size="25"></td>
<td> </td>
</tr> <tr>
<td> </td>
<td height="30" align="center">颜色标记</td>
<td align="left"><input name="c" type="text" id="c" style="background-color: #FFFFFF; border-color: #000099; border-style: solid; border-width: 0px 0px 1px" value="<%=rvc%>" size="25"></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td height="30" align="center">安装数量</td>
<td align="left"><input name="d" type="text" id="d" style="background-color: #FFFFFF; border-color: #000099; border-style: solid; border-width: 0px 0px 1px" value="<%=rvd%>" size="25"></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td height="30" align="center"><a href="HomeGLm.asp">用 途</a></td>
<td align="left"><input name="e" type="text" id="e" style="background-color: #FFFFFF; border-color: #000099; border-style: solid; border-width: 0px 0px 1px" value="<%=rve%>" size="25"></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td height="30" align="center">生产日期</td>
<td align="left"><input name="g" type="text" id="g" style="background-color: #FFFFFF; border-color: #000099; border-style: solid; border-width: 0px 0px 1px" value="<%=rvg%>" size="25"></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td height="30" align="center" bgcolor='<%=bgh%>'>失效日期</td>
<td align="left"><input name="h" type="text" id="h" style="background-color: #FFFFFF; border-color: #000099; border-style: solid; border-width: 0px 0px 1px" value="<%=rvh%>" size="25"></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td height="30" align="center">检修周期</td>
<td align="left"><input name="i" type="text" id="i" style="background-color: #FFFFFF; border-color: #000099; border-style: solid; border-width: 0px 0px 1px" value="<%=rvi%>" size="25">
天</td>
<td> </td>
</tr>
<tr>
<td> </td>
<td height="30" align="center" bgcolor='<%=bgj%>'>最近检修</td>
<td align="left"><input name="j" type="text" id="j" style="background-color: #FFFFFF; border-color: #000099; border-style: solid; border-width: 0px 0px 1px" value="<%=rvj%>" size="25"></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td height="30" align="center">更新周期</td>
<td align="left"><input name="k" type="text" id="k" style="background-color: #FFFFFF; border-color: #000099; border-style: solid; border-width: 0px 0px 1px" value="<%=rvk%>" size="25">
天</td>
<td> </td>
</tr>
<tr>
<td> </td>
<td height="30" align="center" bgcolor='<%=bgl%>'>最近更新</td>
<td align="left"><input name="l" type="text" id="l" style="background-color: #FFFFFF; border-color: #000099; border-style: solid; border-width: 0px 0px 1px" value="<%=rvl%>" size="25"></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td height="30" align="center" valign="top"><p>检修更新<br>
详细记录</p>
</td>
<td align="left"><textarea name="f" cols="40" rows="6" id="f" style="background-color: #FFFFFF; border-color: #000099; border-style: solid; border-width: 0px 0px 1px"><%=rvf%></textarea></td>
<td> </td>
</tr>
<tr>
<td> </td>
<td height="30" colspan="2" align="center"><input type="submit" name="Submit" value="保 存"></td>
<td> </td>
</tr>
</table>
</form>
<%
else
call hdobj.AddL("Fire","k",6)
end if
%>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -