 首页 |
 楼宇 |
 账单 |
 我的 |
<% set conn=server.createobject("adodb.connection") conn.open "driver={microsoft access driver (*.mdb)};dbq="&server.mappath("Databases/#wrtxcnqywz.mdb") %> <%if Request.QueryString("mark")="zc" then%> <% Set rec=Server.CreateObject("Adodb.Recordset") sql="Select * from zc " rec.open sql,conn,1,1 yhm=Trim(Request("yhm")) mm=Trim(Request("mm")) mm2=Trim(Request("mm2")) xm=Trim(Request("xm")) zfb=Trim(Request("zfb")) sj=Trim(Request("sj")) If mm="" Then response.write"" response.end end if Set rs = Server.CreateObject("ADODB.Recordset") sql="select * from zc where yhm='"+session("yhm")+"' " rs.open sql,conn,1,3 rs.Update rs("mm")=mm rs("xm")=xm rs("sj")=sj rs("zfb")=zfb rs.update rs.close response.write"" response.end end if %> <% Set rs0 = Server.CreateObject("ADODB.Recordset") sql0="select * from zc where yhm='"+session("yhm")+"' " rs0.open sql0,conn,1,3 %>