qiyetype_del_ok.asp

来自「房地产管理系统 vb写的,很不错!!!!!!!!!!!」· ASP 代码 · 共 50 行

<%
If session("manager")="" Then
  Response.Redirect("manage.asp")
  Response.end
 End If
%><!--#include file="../inc/conn.asp"-->
<%
'┌─  风云ASP在线  ────────────────────────┐
'│                                                                 │
'│  作者：赵振波.	http://www.fyasp.com	    				    │
'│                                                                 │
'│   Q Q：176189168  										   	    │
'│                                                                 │
'│ Email：[e-mail]                                             │
'│                                                                 │
'│ 程序定做，系统开发，网站制作，提供高质量的网络产品、技术和服务！│
'│                                                                 │
'│                                                                 │
'└───────────────────  http://www.fyasp.com ──┘
%>
<% 
dim id_array(100)
dim type_array(100) 
opendataconn
set rs=server.createobject("adodb.recordset")
  ids=split(request("id"),",") 
  j=0
  for i=0 to ubound(ids)
  sql="select * from qiyetype where id='"&ids(i)&"'"
  rs.open sql,conn,1,1
  type_array(i)=rs("name")
  rs.close
  id_array(i)=ids(i)
  j=j+1
      tt=ids(i)
    conn.execute "delete from qiyetype where id='"&tt&"'"
  next
  for i=0 to j-1
  conn.execute "delete from qiyeinfo where my_type='"&type_array(i)&"'"
  response.write id_array(i)
  response.write type_array(i)
  next
 response.redirect"qiyetype_del.asp"
closedataconn
%>