del_news.asp

本程序系统完全实现了医院网站程序的全部功能的前台和后台程序

<%@language="VBscript"%>
<%Response.Expires=0%>
<!--#include file="./checkuser.asp" -->
<!--#include file="../../include/db_conn.asp" -->
<%i=Request.Form("news_id").Count
  if i<>0 then
  news_id=Request.Form("news_id")   
      sqlstr="select newsimg from t_news_purpose where id in (" & news_id & ")"
      set rs=conn.execute(sqlstr)
      if not rs.eof then
         do while not rs.eof
           small_photo=trim(rs(0))
                        if isnull(small_photo)=false or small_photo<>"" then  delPic "../news_images", small_photo 
           rs.movenext
          loop 
      end if
 set rs=nothing
  sqlstr="delete from t_news_purpose where id in (" & news_id & ")"
  conn.execute sqlstr
  end if
  return_to_list '