renyuandel.asp

来自「基于遗传算法」· ASP 代码 · 共 22 行

<!--#include file="conn.inc"-->
<%
dim i
dim j
id=request("id")
id=split(id,",")
i=ubound(id)
for j=0 to i
  sql="select * from cadre_info where userid="& cint(id(j))
  set rs=server.createobject("adodb.recordset")
  rs.open sql,conn,3,2
  if not rs.eof then
  rs.delete
  rs.update
  rs.close
  end if
next
response.redirect "renyuanxinxi.asp"
%>