deltopic.asp

一个较完备的交互式网络教学系统 开发语言为 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"
%>