?? homeon.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: 0px;
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
a=trim(Request.QueryString("La"))
if (Request.QueryString("ac"))="" then
Set rv=Server.Createobject("Adodb.RecordSet")
sqlv = "Select * From [HomeEQ] where a= '"&a&"' order by a asc"
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")
end if
if rvb="" then
rvb=0
end if
if rvc="" then
rvc=0
end if
if rvd="" then
rvd=0
end if
if rve="" then
rve=0
end if
if rvf="" then
rvf=0
end if
if rvg="" then
rvg=0
end if
if rvh="" then
rvh=0
end if
if rvi="" then
rvi=0
end if
if rvj="" then
rvj=0
end if
if rvk="" then
rvk=0
end if
tb="HomeEQ"
Set stv = Server.CreateObject("ADODB.RecordSet")
sqstv = "Select * From [sets] where TB='"&tb&"'"
stv.Open Sqstv,Connkaa,1,3
stva=stv("a")
stvb=stv("b")
stvc=stv("c")
stvd=stv("d")
stve=stv("e")
stvf=stv("f")
stvg=stv("g")
stvh=stv("h")
stvi=stv("i")
stvj=stv("j")
stvk=stv("k")
stvl=stv("l")
%>
</head>
<body>
<table width="500" border="0" align="center">
<form name="form" method="post" action="?La=<%=a%>&ID=<%=ID%>&ac=action">
<tr align="center" valign="middle">
<td height="25" colspan="4" background="../Image/bg01.jpg"> </td>
</tr>
<tr align="center" valign="middle">
<td height="40" colspan="4">
<span class="STYLE12"><%=a%>房間設(shè)備配置</span></td>
</tr>
<tr>
<td width="109" height="25" align="right"><%=stvb%></td>
<td width="168" 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="6"></td>
<td width="47" align="right"><%=stvc%></td>
<td width="158" 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="6"></td>
</tr>
<tr>
<td height="25" align="right"><%=stvd%></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="6"></td>
<td align="right"><%=stve%></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="6"></td>
</tr>
<tr>
<td height="25" align="right"><%=stvf%></td>
<td align="left"><input name="f" type="text" id="f" style="background-color: #FFFFFF; border-color: #000099; border-style: solid; border-width: 0px 0px 1px" value="<%=rvf%>" size="6"></td>
<td align="right"><%=stvg%></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="6"></td>
</tr>
<tr>
<td height="25" align="right" valign="top"><%=stvh%></td>
<td height="25" align="left" valign="top"><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="6"></td>
<td height="25" align="right" valign="top"><%=stvi%></td>
<td height="25" align="left" valign="top"><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="6"></td>
</tr>
<tr>
<td height="25" align="right" valign="top"><%=stvj%></td>
<td height="25" align="left" valign="top"><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="6"></td>
<td height="25" align="right" valign="top"><%=stvk%></td>
<td height="25" align="left" valign="top"><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="6"></td>
</tr>
<tr>
<td height="25" colspan="4" align="center" valign="top"><%=stvl%></td>
</tr>
<tr>
<td height="20" colspan="4" align="center" valign="top"><textarea name="l" cols="40" rows="6" id="l"><%=rvl%></textarea></td>
</tr>
<tr>
<td height="30" colspan="4" align="center"><input type="submit" name="Submit" value="保 存"><input type="hidden" name="a" value="<%=a%>"></td>
</tr></form>
</table>
<%
else
call hdobj.AddL("HomeEQ","k",6)
end if
%>
</body>
</html>
?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -