📄 deltopic.asp
字号:
<!--#include file="Check.asp"-->
<!--#include file="Conn.asp"-->
<!--#include file="Config.asp"-->
<!--#include file="Functions.asp"-->
<%
id=request("id")
If id="" Then
Response.Write"<script>alert('请选择,再点[删除]铵钮!谢谢!');history.go(-1);</script>"
Response.End
End If
sql="Select * from TestTopic where id in ("&id&")"
Set oRs=Server.CreateObject("Adodb.RecordSet")
oRs.Open sql,Conn,3,3
PicList=Trim(oRs("PicList"))
If PicList<>"" Then
P=Split(PicList,",")
For i=0 To Ubound(P)-1
Call DelFile(Trim(P(i)))
Next
End If
oRs.Delete
oRs.UpDate
oRs.Close()
Set oRs=Nothing
Response.Write "<script>alert('删除成功!');</script>"
response.redirect "AdminTopic.asp"
%>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -