<%call log_chk() call passChk()%> <% dim namex,sex,bron,mz,mm,sg,tz,hy,sf,tel,jg,adr,note,jl,thex thex=request("thex") namex=request("namex") sex=request("sex") bron=request("bron") mz=request("mz") mm=request("mm") sg=request("sg") tz=request("tz") hy=request("hy") sf=request("sf") tel=request("tel") jg=request("jg") adr=request("adr") note=request("note") jl=request("jl") if namex="" or tel="" then response.Write"" response.End() end if Set rs=Server.Createobject("Adodb.Recordset") sql="select * from adyp where yp_id="&thex&"" rs.open sql,conn,1,3 rs("yp_name")=namex rs("yp_sex")=sex rs("yp_bron")=bron rs("yp_mz")=mz rs("yp_mm")=mm rs("yp_sg")=sg rs("yp_tz")=tz rs("yp_hy")=hy rs("yp_sf")=sf rs("yp_tel")=tel rs("yp_jg")=jg rs("yp_adr")=adr rs("yp_note")=note rs("yp_jl")=jl rs("yp_time")=now() rs.update rs.close set rs=nothing response.write"" %>