bwjsc.asp

来自「学生成绩管理是学校管理的重要组成部分。成绩不仅关系到学生成绩升迁」· ASP 代码 · 共 37 行

<!--#include file="conn.asp"-->

<%
bh=request("bh")
dm=request("dm")

set rs=server.createobject("adodb.recordset")
 sql="select * from cxb where bh='" + bh + "'"
 rs.open sql,conn,3,3
rs.delete
 rs.close
 set rs=nothing



function  deletefiles(bh)  
 
       Set  fs1=Server.CreateObject("Scripting.FileSystemObject")    
       if  fs1.FileExists  (bh)  then  
       fs1.DeleteFile  bh,True    
       else  
           response.write  "文件不存在!"  
       end  if  
       Set  fs1=nothing  
         
                   
end  function


gws =  Server.MapPath(".")&"\"&path&bh

deletefiles(gws)
 conn.close
 set conn=nothing
 response.redirect("bindex.asp?dm="&dm&"")

%>