sfr_do.asp

基于ASP的SQL小区物业管理系统课程设计

<!--#include file="sub/conn.asp"-->
<% 
   dim room_id,elec,gas,mana,carp,TV,sumf,rest,ntime,reset
   room_id=Trim(Request.Form("room_id"))
   elec=Cint(Trim(Request.Form("elec")))
   gas=Cint(Trim(Request.Form("gas")))
   mana=Cint(Trim(Request.Form("mana")))
   carp=Cint(Trim(Request.Form("carp")))
   TV=Cint(Trim(Request.Form("TV")))
   'sumf=Trim(Request.Form("sumf"))
   reset=Cint(Trim(Request.Form("rest")))
   ntime=now()
   sumf=elec+gas+mana+carp+TV
   rest=reset-sumf
   set cmd=Server.CreateObject("ADODB.COMMAND")
   cmd.ActiveConnection=conn
   'cmd.CommandText="select max(id) from money"
   'set rs=cmd.execute
   'dim y_id
   'y_id=rs(0)+1
   cmd.CommandText="insert into money values('"&room_id&"','"&elec&"','"&gas&"','"&mana&"','"&carp&"','"&TV&"','"&sumf&"','"&rest&"','"&ntime&"')"
   cmd.execute
   Response.Redirect("sfr.asp")
%>