admin_alldel.asp

asp构建网站bbs.采用B/S架构

	response.write "<option value="&iboardid(k)&">"
	if idepth(k)>0 then
	for n=1 to idepth(k)
	response.write "－"
	next
	end if
	response.write iboardname(k)&"</option>"
next
%>
</select>
			</td></tr>
</form>
<form action="admin_alldel.asp?action=MoveUserTopic" method="post">
            <tr>
            <th valign=middle colspan=2 height=23 align=left>按用户移动</th></tr>
            <tr>
            <td valign=middle width=40%  class=forumrow>请填写用户名</td><td class=forumrow><input name="username" size=30>&nbsp;<input type=submit name="submit" value="提 交"></td></tr>
            <tr>
            <td valign=middle width=40%  class=forumrow>原论坛</td><td class=forumrow>
<select name="outboardid" size=1>
<%
for k=0 to i-1
	if iboardid(k)=0 then
		response.write "<option value=0>没有论坛</option>"
	end if
	response.write "<option value="&iboardid(k)&">"
	if idepth(k)>0 then
	for n=1 to idepth(k)
	response.write "－"
	next
	end if
	response.write iboardname(k)&"</option>"
next
%>
</select>
			</td></tr>
            <tr>
            <td valign=middle width=40%  class=forumrow>目标论坛</td><td class=forumrow>
<select name="inboardid" size=1>
<%
for k=0 to i-1
	if iboardid(k)=0 then
		response.write "<option value=0>没有论坛</option>"
	end if
	response.write "<option value="&iboardid(k)&">"
	if idepth(k)>0 then
	for n=1 to idepth(k)
	response.write "－"
	next
	end if
	response.write iboardname(k)&"</option>"
next
%>
</select>
			</td></tr>
</form>
</table>
<%
	end sub
	sub del()
		dim titlenum,delboardid
		if request("delboardid")="0" then
			founderr=true
			errmsg=errmsg+"<br>"+"<li>非法的版面参数。"
			exit sub
		elseif request("delboardid")="all" then
			delboardid=""
		else
			delboardid=" boardid="&request("delboardid")&" and "
		end if
		if request("username")="" then
			founderr=true
			errmsg=errmsg+"<br>"+"<li>请输入被帖子删除用户名。"
			exit sub
		end if
		titlenum=0
		for i=0 to ubound(allposttable)
		set rs=conn.execute("Select Count(announceID) from "&allposttable(i)&" where "&delboardid&"   username='"&replace(request("username"),"'","")&"'") 
   		titlenum=titlenum+rs(0)

		sql="update "&allposttable(i)&" set locktopic=2 where "&delboardid&"  username='"&replace(request("username"),"'","")&"'"
		conn.Execute(sql)
		next
		set rs=conn.execute("select topicid,posttable from topic where "&delboardid&"  postusername='"&replace(request("username"),"'","")&"'")
		do while not rs.eof
		conn.execute("update "&rs(1)&" set locktopic=2 where rootid="&rs(0))
		rs.movenext
		loop
		set rs=nothing
		conn.execute("update topic set locktopic=2 where "&delboardid&"  postusername='"&replace(request("username"),"'","")&"'")
		if isnull(titlenum) then titlenum=0
		sql="update [user] set article=article-"&titlenum&",userWealth=userWealth-"&titlenum*Forum_user(3)&",userEP=userEP-"&titlenum*Forum_user(8)&",userCP=userCP-"&titlenum*Forum_user(13)&" where username='"&replace(request("username"),"'","")&"'"
		conn.Execute(sql)
	response.write "删除成功，如果要完全删除帖子请到论坛回收站<BR>建议您到更新论坛数据中更新一下论坛数据，或者<a href=admin_alldel.asp>返回</a>"
	end sub

	sub alldel()
	Dim TimeLimited,delboardid
	if request("delboardid")="0" then
		founderr=true
		errmsg=errmsg+"<br>"+"<li>非法的版面参数。"
		exit sub
	elseif request("delboardid")="all" then
		delboardid=""
	else
		delboardid=" and boardid="&request("delboardid")&" "
	end if
	TimeLimited=request.form("TimeLimited")
	if not isnumeric(TimeLimited) then
		founderr=true
		errmsg=errmsg+"<br>"+"<li>非法的参数。"
		exit sub
	else
	for i=0 to ubound(allposttable)
	conn.execute("update "&allposttable(i)&" set LockTopic=2 where datediff('d',DateAndTime,Now())>"&TimeLimited&" "&delboardid&"")
	next
	conn.execute("update topic set LockTopic=2 where datediff('d',DateAndTime,Now())>"&TimeLimited&" "&delboardid&"")
	end if
	response.write "删除成功，如果要完全删除帖子请到论坛回收站<BR>建议您到更新论坛数据中更新一下论坛数据，或者<a href=admin_alldel.asp>返回</a>"
	end sub

	sub alldelTopic()
	Dim TimeLimited,delboardid
	if request("delboardid")="0" then
		founderr=true
		errmsg=errmsg+"<br>"+"<li>非法的版面参数。"
		exit sub
	elseif request("delboardid")="all" then
		delboardid=""
	else
		delboardid=" boardid="&request("delboardid")&" and "
	end if
	TimeLimited=request.form("TimeLimited")
	if not isnumeric(TimeLimited) then
		founderr=true
		errmsg=errmsg+"<br>"+"<li>非法的参数。"
		exit sub
	else
	conn.execute("update topic set LockTopic=2 where "&delboardid&"   datediff('d',DateAndTime,Now())>"&TimeLimited&" and Child=0")
	set rs=conn.execute("select Topicid,PostTable from topic where "&delboardid&"   datediff('d',DateAndTime,Now())>"&TimeLimited&" and Child=0")
	do while not rs.eof
		conn.execute("update "&rs(1)&" set locktopic=2 where rootid="&rs(0))
	rs.movenext
	loop
	set rs=nothing
	end if
	response.write "删除成功，如果要完全删除帖子请到论坛回收站<BR>建议您到更新论坛数据中更新一下论坛数据，或者<a href=admin_alldel.asp>返回</a>"
	end sub

	sub delUser()
	Dim TimeLimited
	TimeLimited=request.form("TimeLimited")
	if TimeLimited="all" then
	conn.execute("delete from [user]")
	else
	conn.execute("delete from [user] where datediff('d',LastLogin,Now())>"&TimeLimited&"")
	end if
	response.write "删除成功，如果要完全删除帖子请到论坛回收站<BR>建议您到更新论坛数据中更新一下论坛数据，或者<a href=admin_alldel.asp>返回</a>"
	end sub

	sub MoveUserTopic()
	if not isnumeric(request("inboardid")) then
	response.write "错误的版面参数。"
	exit sub
	end if
	if not isnumeric(request("outboardid")) then
	response.write "错误的版面参数。"
	exit sub
	end if
	if request("username")="" then
	response.write "请填写用户名。"
	exit sub
	end if
	if Cint(request("outboardid"))=Cint(request("inboardid")) then
	response.write "不能在相同版面进行移动操作！"
	exit sub
	end if
	for i=0 to ubound(allposttable)
	conn.execute("update "&allposttable(i)&" set boardid="&request("inboardid")&" where Boardid="&request("outboardid")&" and username='"&request("username")&"'")
	next
	set rs=conn.execute("select topicid,posttable from topic where Boardid="&request("outboardid")&" and Postusername='"&request("username")&"'")
	do while not rs.eof
		conn.execute("update "&rs(1)&" set boardid="&request("inboardid")&" where rootid="&rs(0))
	rs.movenext
	loop
	conn.execute("update topic set boardid="&request("inboardid")&" where Boardid="&request("outboardid")&" and Postusername='"&request("username")&"'")
	conn.execute("update besttopic set boardid="&request("inboardid")&" where Boardid="&request("outboardid")&" and Postusername='"&request("username")&"'")
	response.write "移动成功！"
	end sub

	sub MoveDateTopic()
	if not isnumeric(request("TimeLimited")) then
	response.write "错误的日期参数。"
	exit sub
	end if
	if not isnumeric(request("inboardid")) then
	response.write "错误的版面参数。"
	exit sub
	end if
	if not isnumeric(request("outboardid")) then
	response.write "错误的版面参数。"
	exit sub
	end if
	if Cint(request("outboardid"))=Cint(request("inboardid")) then
	response.write "不能在相同版面进行移动操作！"
	exit sub
	end if
	for i=0 to ubound(allposttable)
	conn.execute("update "&allposttable(i)&" set boardid="&request("inboardid")&" where Boardid="&request("outboardid")&" and datediff('d',DateAndTime,Now())>"&request.Form("TimeLimited")&"")
	next
	conn.execute("update topic set boardid="&request("inboardid")&" where Boardid="&request("outboardid")&" and datediff('d',DateAndTime,Now())>"&request.Form("TimeLimited")&"")
	conn.execute("update besttopic set boardid="&request("inboardid")&" where Boardid="&request("outboardid")&" and datediff('d',DateAndTime,Now())>"&request.Form("TimeLimited")&"")
	response.write "移动成功！"
	end sub
%>