📄 updel2.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<% if session("shoujipno")=request("shouji") then %>
<!--#include FILE="conn.asp"-->
<!--#include FILE="char.asp"-->
<% Response.ContentType="text/vnd.wap.wml;charset=UTF-8" %>
<?xml version="1.0" encoding="utf-8"?>
<!DOCTYPE wml PUBLIC "-//WAPFORUM//DTD WML 1.1//EN" "http://www.wapforum.org/DTD/wml_1.1.xml">
<wml>
<head>
<meta http-equiv="Cache-Control" content="max-age=0"/>
<meta http-equiv="Cache-Control" content="no-cache"/>
</head>
<card title="删除文件">
<p>
<%
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%>
删除文件错误！<br/>
<%else%>
删除文件成功！<br/>
<%End If%>
-------------<br/>
<a href='lang.asp?classid=<%=cad%>&nclassid=<%=cbd%>'>返回上级</a><br/>
<a href='index.asp'>网站首页</a>
</p>
</card>
</wml>
<%
else
response.redirect "logo.asp"
end if
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -