ASPÖг£ÓõÄSQLÃüÁî

db="data.mdb"
connstr = "provider=microsoft.jet.oledb.4.0;data source="&Server.Mappath(db)&""   
set conn=server.createobject("ADODB.CONNECTION")

conn.open connstr

conn.execute "delete * from [user] where [yl_id]="&clng(ID)

 sql="Select * from [user] where id="&id&""
Set rs=Server.CreateObject("Adodb.RecordSet")
 rsreg.Open sql,conn,1,3
 if not (rsreg.bof and rsreg.EOF) then
 rs("youbian")=115000
 rs.update
 end if

conn.execute("update [user] set [youbian]=115000 where [id]="&id&"")

set rs=server.CreateObject("adodb.recordset")
       sql="select * from [user] where [youbian]="&youbian&""
       rs.open sql , conn,1,3
      if not (rs.eof and rs.bof) then
   response.write "¸Ã¼Ç¼ÒÑ´æÔÚ"
      response.end
    else
             rs.addnew
    rs("youbian")=youbian
       rs.update
   end if

conn.execute "insert into [user] (name,youbian) values ("&name&","&youbian&")"