📄 delpic.asp
字号:
<!--#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"))
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -