📄 del.asp

📁 OA最新破解2008版全新破解希望大家用着舒服

💻 ASP

字号:

<!--#include file="../../conn/dbconn2.asp"-->
<!--#include file="../../inc/safe.asp"-->
<!--#include file="../../inc/config.asp"-->
<%
  Response.Buffer = true
  Response.ExpiresAbsolute=now()-1
  Response.Expires=0
  Response.CacheControl="no-cache"
%>
<%
if Not ChkPost then 
response.redirect ("../../login/chklogin.asp?login=4")
response.end
end if

if session("id")="" then 
response.Redirect("../../login/login1.asp")
response.end
end if

if Chkrequest(request("info_id")) then
info_id=request("info_id")
else
Response.Redirect ("../../login/chklogin.asp?login=4")
end if

set rs=conn.execute("select picture from info where info_id="&info_id&" and gsid="&session("id")&"")
if not(rs.eof and rs.bof) then
set fs=server.CreateObject("scripting.filesystemobject")
do while not rs.eof
filepath=newspic&rs("picture")
filepath=server.MapPath(filepath)
if fs.FileExists(filepath) and rs("picture")<>"nopicture.gif" then
     fs.DeleteFile filepath,true
end if
rs.movenext
loop
set fs=nothing
end if
rs.close
set rs=nothing

conn.execute("delete from info where info_id="&info_id&" and gsid="&session("id")&"")
Conn.Close 
Set Conn = Nothing 
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>操作成功</title>
<link href="../../images/css.css" rel="stylesheet" type="text/css">
<meta HTTP-EQUIV=refresh Content='1;url=edit.asp'>
</head>

<table border="0" cellspacing="0" width="100%" cellpadding="0" height="418" style="border-collapse: collapse" bordercolor="#111111">
<tr>
<td width="100%" height="418" valign="middle" align="center">
<b>此信息已经删除成功！<a href="edit.asp">返回</a></b></td>
</tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -