news_del_ok.asp

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

<%
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 ──┘
%>
<%   
opendataconn
  ids=split(request("newsid"),",") 
  for i=0 to ubound(ids)
    tt=trim(ids(i))
	set rs=server.createobject("adodb.recordset")
	 'rs.open"select * from news where newsid="&tt&"",conn,1,1
	 'If Not Rs.Eof Then
	  'imgname=Split(Trim(Rs("imgname")),",")
	 ' For m=0 to ubound(imgname)
	   'If len(imgname(m))>12 then
	    'set fso=Server.CreateObject("Scripting.FileSystemObject")
		' fso.deleteFile Server.MapPath("../pic/"&imgname(m))
		'Set fso=Nothing
	  ' end if
	  'Next
	' End if
	 'rs.close
	sql="select * from newspl where newsid="&tt&""
	rs.open sql,conn,1,1
	if not rs.eof then 

	conn.execute "delete from newpl where newsid="&tt&""
	rs.close
	set rs=nothing
	end if
	conn.execute"delete from news where newsid="&tt&""
        next
  response.redirect"news_del.asp"
closedataconn
%>