<%
id=trim(request("id"))
'TB=trim(request("TB"))
sql="delete from T_xx where id="&id
conn.execute(sql)
''''删除图象开始''''
set rs2=server.createobject("adodb.recordset")
sql2="select * from attach where NewsID=" & NewsID
rs2.open sql2,conn,1,3
do while not rs2.EOF
Set fso=Server.CreateObject("Scripting.FileSystemObject")
If fso.FileExists(Server.Mappath("../WebFiles/"&rs2("filename")))=true Then
fso.DeleteFile Server.MapPath("../WebFiles/"&rs2("filename") )
End If
Set fso=Nothing
rs2.movenext
loop
rs2.close
set rs2=nothing
conn.execute("delete from attach where NewsID=" & NewsID)
''''删除图象结束''''
conn.close
%>
信息删除