l_jl_do.asp

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

<!--#include file="sub/conn.asp"-->
<% 
   dim danjia,id,odate,butt,fb,dj
   set cmd=Server.CreateObject("ADODB.COMMAND")
   cmd.ActiveConnection=conn
   odate=now()
   butt=Request.Form("B1")
   if butt="修改" then
   id=Request.Form("id")
   danjia=Trim(Request.Form("danjia"))
   cmd.CommandText="update l_danjia set danjia='"&danjia&"',odate='"&odate&"' where id="&id
   cmd.execute
   else
   fb=Trim(Request.Form("fb"))
   dj=Trim(Request.Form("dj"))
   cmd.CommandText="insert into l_danjia values('"&fb&"','"&dj&"','"&odate&"')"
   cmd.execute
   end if
   set conn=nothing
   Response.Redirect("l_jl.asp")
%>