📄 sfr.asp

📁 基于ASP的SQL小区物业管理系统课程设计
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="sub/conn.asp"-->
<!--#include file="sub/rightnav.asp"-->
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>费用录入</title>
<link href="cbody.css" rel="stylesheet" type="text/css" />
<link href="nav.css" rel="stylesheet" type="text/css" />
<script language="javascript">
function checkForm(){
re = /^\d+\.?\d*$/
if(!re.test(document.money.elec.value)){
alert('电费--只能为数字!');
return false;
}
if(!re.test(document.money.gas.value)){
alert('煤气费--只能为数字!');
return false;
}
if(!re.test(document.money.mana.value)){
alert('物业费--只能为数字!');
return false;
}
if(!re.test(document.money.carp.value)){
alert('停车费--只能为数字!');
return false;
}
if(!re.test(document.money.TV.value)){
alert('电视费--只能为数字!');
return false;
}
    var isok=true;
	isok=confirm("费用录入成功！")
	return isok;
}
</script>
</head>

<body>
<!--#include file="sub/mheader.asp"-->
<div id="abody">
  <div id="lbody">
    <div class="zh1">
	 <h5>请选择房间进行费用录入</h5>
		<div class="zhcxb">
		<form id="form1" name="form1" method="post" action="sfr.asp" >
		选择单元：
		  <select name="s1" id="s1">
            <option>全部</option>
            <option>七号楼A区</option>
            <option>七号楼B区</option>
            <option>七号楼C区</option>
            <option>八号楼A区</option>
            <option>八号楼B区</option>
            <option>八号楼C区</option>
            <option>四号楼</option>
            <option>无</option>
          </select>
		  <input name="keyword" type="text" class="yinput" id="keyword" onFocus="this.value=''" value="房间号" />
		  <input type="submit" name="B1" value="立即提交" />
		  </form>
		</div>
		<% 
		    dim fang,jian,butt,reset
			fang=Request.Form("s1")
			jian=Trim(Request.Form("keyword"))
			butt=Request.Form("B1")
			if butt="立即提交" then
		    set rs=Server.CreateObject("ADODB.RecordSet")
			sql="select * from room where room_id='"&fang&jian&"'"
            rs.open sql,conn,1,1
			if rs.recordcount=0 then
			Response.Write("</br>")
			Response.Write("对不起，该房间不存在！！！")
			else
				set rs0=Server.CreateObject("ADODB.RecordSet")
				sql="select rest from money where odate=(select max(odate) from money where room_id='"&fang&jian&"')"             '查找上月的余额
				rs0.open sql,conn,1,1
				  if rs0.recordcount=0 then
				  reset=0
				  else
				  reset=rs0(0)
				  end if
				rs0.close
				set rs0=nothing
		%>
		</br>
		<p class="mzhusi">----------请在下面横线上填写数字，若该费用不存在写“0”-----------</p>
		<h5>单位：（元）</h5>
				<form id="money" name="money" method="post" action="sfr_do.asp" onSubmit="return checkForm();" >
		<div class="zhcxc">房间号：<input name="room_id" type="text" value="<%= fang&jian %>" size="15" /></div>
		<div class="zhcxc">电费：<input name="elec" type="text" size="15" onKeyUp="onlyNumbers()" /></div>
		<div class="zhcxc">煤气费：<input name="gas" type="text" size="15" onKeyup="onlyNumbers()" /></div>
		<div class="zhcxc">物业费：<input name="mana" type="text" size="15" onKeyup="onlyNumbers()" /></div>
		<div class="zhcxc">停车费：<input name="carp" type="text" size="15" onKeyup="onlyNumbers()" /></div>
		<div class="zhcxc">数字电视费：<input name="TV" type="text" size="15" onKeyup="onlyNumbers()" /></div>
		<div class="zhcxc">上月余额：<input name="rest" type="text" value="<%= reset %>" size="15" /></div>
		<div class="zhcxc"><input type="submit" name="B2" value=" 提交 " />&nbsp;&nbsp;&nbsp;<input type="submit" name="B2" value=" 修改 " /></div>
        </form>
		<%
		    end if 
			rs.close
			set rs=nothing
			end if
		%>
    </div>
  </div>
  <div id="rbody">
    <% call rightnav() %>
  </div>
</div>
<!--#include file="sub/cbottom.asp"-->
</body>
</html>
⌨️ 快捷键说明

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