📄 homeon.asp

📁 学生信息化管理系统,目前最完美的学生信息化管理系统,界面美观,操作方面,个性化设置.一套软件管理多所学校.
💻 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">&nbsp;</td>
    </tr>
    <tr align="center" valign="middle">
      <td height="40" colspan="4">
        <span class="STYLE12"><%=a%>房间设备配置</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>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -