📄 updel2.asp

📁 admin/admin.asp是WAP的后台管理登陆页面

💻 ASP

字号:

<%
if session("admin")="" and session("flag")="" then
  response.redirect "admin.asp"
end if
%>
<!--#include FILE="conn.asp"-->
<!--#include FILE="char.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<link rel="stylesheet" type="text/css" href="style.css">
</head>
<body>
<table align="center" width="400" border="0" align="center" cellpadding="4" cellspacing="1" bgcolor="#000000">
<tr>
<td colspan="2" bgcolor=#999999 align="center"><B>删除文件</B></td>
<tr>
<td colspan="2" bgcolor=#ffffff align="center">
<%
cad=request("classid")
cbd=request("Nclassid")
sq1="select * from article where articleid="&request("id")
Set Rs1 = Server.CreateObject("Adodb.Recordset")
rs1.open sq1,conn,1,2
path=rs1("datadir")
''---------------
path=Server.Mappath("\")&"\"&path
Set FsoObj=Server.CreateObject("Scripting.FileSystemObject")
Set tempfileOBJ = FsoObj.GetFile(path)
tempfileOBJ.Delete
if Err <> 0 then
iserr=true
Err.Clear
End if
''---------------
rs1.delete
rs1.close
Set rs1=Nothing%>
<%If iserr=True then%>
删除文件错误！
<%else%>
删除文件成功！
<%End If%>
</td></tr>
<tr>
<td colspan="2" bgcolor=#999999 align="center"><B><a href='adminedit.asp'>返回列表</a>
</B></td></tr>
</table>
</body>
</html>

⌨️ 快捷键说明

复制代码 Ctrl + C

搜索代码 Ctrl + F

全屏模式 F11

切换主题 Ctrl + Shift + D

显示快捷键 ?

增大字号 Ctrl + =

减小字号 Ctrl + -