在activeform里面加入类似方法。
procedure QueryToDB(const sql: String);
begin
with ADOQuery1 do begin
Active := False;
SQL.Clear;
SQL.Add(sql);
ExecSQL;
end;
end;
在JavaScript中
<object id="myobj" clsid="....></object>
<script language="JScript">
myobj.QueryToDB("insert into ....");
</script>