deltopic.asp

一般的,简单的的的的的的的的饿的饿恶毒 一般的,简单的的的的的的的的饿的饿恶毒 一般的,简单的的 的的 饿的饿恶毒

<!--#include file="conn.asp"-->
<%
TopID=Request("topid")
ID=Request("id")
TopicID=Request("TopicID")
reID=request("reID")

if session("username")="" or session("username")="游客" then
response.redirect("showtopic.asp?TopID="&TopID&"&ID="&ID&"&TopicID="&TopicID)
end if






if reID="" then

	sql="select * from topic where id="&topicid
	set rs=Server.CreateObject("ADODB.Recordset")
	rs.open sql,conn,1,1

	if session("username")=rs("username") or session("username")="Desner" then
		sql="select * from users where username='"&rs("username")&"'"
		set rec=Server.CreateObject("ADODB.Recordset")
		rec.open sql,conn,1,3
		rec.update
		rec("Money")=rec("Money")-5
		rec("TCount")=rec("TCount")-1
		rec.update
		rec.close
	rs.close
	else
		response.redirect("showtopic.asp?TopID="&TopID&"&ID="&ID&"&TopicID="&TopicID)
	end if
	
	conn.execute "delete from(Topic) where ID="&TopicID
	conn.execute "delete from(reply) where TopicID="&TopicID
	response.redirect("forum.asp?TopID="&TopID&"&ID="&ID)
else
	
	sql="select * from reply where id="&reID
	set rs=Server.CreateObject("ADODB.Recordset")
	rs.open sql,conn,1,1
	if session("username")=rs("username") or session("username")="Desner" then
		sql="select * from users where username='"&rs("username")&"'"
		set rec=Server.CreateObject("ADODB.Recordset")
		rec.open sql,conn,1,3
		rec.update
		rec("Money")=rec("Money")-1
		rec.update
		rec.close
	else
		response.redirect("showtopic.asp?TopID="&TopID&"&ID="&ID&"&TopicID="&TopicID)
	end if
	conn.execute "delete from(reply) where ID="&reID
	response.redirect("showtopic.asp?TopID="&TopID&"&ID="&ID&"&TopicID="&TopicID)
end if
%>