<%
Server.ScriptTimeout=999
set rs11=Server.CreateObject("ADODB.Recordset")
strsQL="select ids from zb where cstr(ids)='"&myid& "'"
rs11.open strsQL,liao,1,2
if rs11.recordcount<1 then
rs11.addnew
rs11("ids")=myid
rs11.update
end if
        rs11.Close
	Set rs11=Nothing
set rs12=Server.CreateObject("ADODB.Recordset")
strsQL="select ids from sx where cstr(ids)='"&myid& "'"
rs12.open strsQL,liao,1,2
if rs12.recordcount<1 then
rs12.addnew
rs12("ids")=myid
rs12.update
end if
set rs11112=Server.CreateObject("ADODB.Recordset")
strsQL="select xue from sx where cstr(ids)="&myid&""
rs11112.open strsQL,liao,1,1
if rs11112("xue")<1 then
liao.Execute("update sx set xue=30 where ids="&myid&"")
end if
rs11112.close
set rs11112=nothing
        rs12.Close
	Set rs12=Nothing
set rs13=Server.CreateObject("ADODB.Recordset")
strsQL="select ids from wupin where cstr(ids)='"&myid& "'"
rs13.open strsQL,liao,1,2
if rs13.recordcount<1 then
rs13.addnew
rs13("ids")=myid
rs13.update
end if
        rs13.Close
	Set rs13=Nothing
     liao.Close
      Set liao=Nothing
%>
