<!--#include FILE="conn.asp"-->
<!-- #include file="../conn.asp" -->
<!--#include FILE="../admin.asp"-->
<%

Call head()
Call saycarda("笑话管理")

id=request.querystring("id")
delall=request.querystring("delall")

If delall=1 Then
connsms.Execute"delete from jiudian"
 response.write "删除全部笑话成功<br/>"
else
 connsms.Execute"delete from jiudian where id="&id
 response.write "删除成功<br/>"
 End if
response.write "-------------------<br/>"
If delall<>1 Then
response.write "<a href='delyf.asp?delall=1&amp;saytk="&saytk&"&amp;sid="&sid&"'>清空全部</a><br/>"
End If
response.write "<br/><a href='all.asp?saytk="&saytk&"&amp;sid="&sid&"'>返回所有笑话</a><br/>"
response.write "<a href='index.asp?saytk="&saytk&"&amp;sid="&sid&"'>返回笑话管理</a>"
Call headsay()
rs.close
set rs=nothing
connsms.close
set connsms=nothing
%>