<!--#include file="../head.asp"-->
  <!--#include file="../checkrole.asp"-->
  <!--#include file="../../inc/filesystem.asp"-->
 <%
 
    call checkuser("gj")
	newurl=""
	if issession=0 then
	gsid=Replace_Text(request.Cookies("Yxmemberid"))
	 username=Replace_Text(request.Cookies("Yxmember"))
 	else
	gsid=session("id")
	username=session("user")
 	end if
  	set rsp=server.CreateObject("adodb.recordset")
	sqlp="select * from Websen_corporation where id="&gsid
	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 Websen_corporation set despic='"&newurl&"' where id="&gsid
     call FileDel(HOPE_InstallDir&"vipcom/"&username&"/"&Replace_Text(request("noid")))
    response.Redirect(request.ServerVariables("HTTP_REFERER"))
	%>
