   <%@ codepage ="936" %>
    <% 
	data_path="../../" 'ACC连接数据库路径，对SQL无效
	numid="21"
	dir="../err.asp" 
  %>
  <!--#include file="../../conn/conn.asp"-->
<!--#include file="../../inc/safe.asp"-->
    <!--#include file="../../inc/filesystem.asp"-->
  <!--#include file="../rolecheck.asp"-->

 <%
 
 	newurl=""
	userid=Replace_Text(request("userid"))
	usern=Replace_Text(request("usern"))
 	set rsp=server.CreateObject("adodb.recordset")
	sqlp="select * from Websen_corporation where id="&userid
	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="&userid
     call FileDel(HOPE_InstallDir&"vipcom/"&usern&"/"&Replace_Text(request("noid")))
    response.Redirect(request.ServerVariables("HTTP_REFERER"))
	%>
