delpic.asp

实现一个用JSP、Servlet技术实现的小型物流网站系统。实现功能如下：管理员通过登录该系统

<!--#include file="../head.asp"-->
  <!--#include file="../checkrole.asp"-->
  <!--#include file="../../inc/filesystem.asp"-->
 <%
 
    call checkuser("gj")
	newurl=""
 	set rsp=server.CreateObject("adodb.recordset")
	sqlp="select * from wygkcn_corporation where id="&session("id")
	rsp.open sqlp,conn,1,1
	if not rsp.eof  then
	if rsp("despic")<>"" then 
	newurl=replace(rsp("despic"),Replace_Text(request("noid"))&",","")
  	end if
	rsp.close
	end if
	conn.execute "update wygkcn_corporation set despic='"&newurl&"' where id="&session("id")
     call FileDel(HOPE_InstallDir&"vipcom/"&session("user")&"/"&Replace_Text(request("noid")))
    response.Redirect(request.ServerVariables("HTTP_REFERER"))
	%>