setvalid_func.asp

这是ASP的OA

<%
sub setvalid0(id)
	sql="select FID,RootID,name,valid from m3_bbs where id="&id&""
	set rs=server.CreateObject("adodb.recordset")
	rs.open sql,conn,1,3
	if rs.eof and rs.bof then
		rs.close
		set rs=nothing
		call closedb()
		response.Redirect("error.asp?id=2")
		response.End()
	else
		rootid=rs("RootID")
		FID=rs("FID")
		username=trim(rs("name"))
		rs("valid")=0
		rs.update
	end if
	rs.close
	set rs=nothing
	if id=rootid then
		sql="update m3_forum set lasttopic='',lastname='' where topicid="&id&""
		conn.execute(sql)
		sql="update m3_users set post=post-1,meili=meili-5,jingyan=jingyan-5,money=money-70,weiwang=weiwang-5,credit=credit-2 where name='"&username&"'"
		conn.execute(sql)
		sql="select count(*) from m3_bbs where rootid="&id&" and valid=1 and FID="&FID&""
		set rs=conn.execute(sql)
		n=1
		sql="select name,valid from m3_bbs where rootid="&id&" and valid=1 and FID="&FID&""
		set rs=server.CreateObject("adodb.recordset")
		rs.open sql,conn,1,3
		do while not rs.eof
			username=trim(rs("name"))
			rs("valid")=0
			rs.update
			rs.movenext
			sql="update m3_users set post=post-1,meili=meili-3,jingyan=jingyan-3,money=money-50,weiwang=weiwang-2,credit=credit-1 where name='"&username&"'"
			conn.execute(sql)
			n=n+1
		loop
		rs.close
		set rs=nothing
		sql="update m3_forum set topic=topic-1,post=post-"&n&" where FID="&FID&""
		conn.execute(sql)
	else
		sql="update m3_bbs set re=re-1,lastname=name where id="&rootid&""
		conn.execute(sql)
		sql="update m3_forum set lasttopic='',lastname='' where topicid="&rootid&""
		conn.execute(sql)
		sql="update m3_users set post=post-1,meili=meili-3,jingyan=jingyan-3,money=money-50,weiwang=weiwang-2,credit=credit-1 where name='"&username&"'"
		conn.execute(sql)
	end if
end sub

sub setvalid1(id)
	sql="select FID,RootID,name,topic,valid from m3_bbs where id="&id&""
	set rs=server.CreateObject("adodb.recordset")
	rs.open sql,conn,1,3
	if rs.eof and rs.bof then
		rs.close
		set rs=nothing
		call closedb()
		response.Redirect("error.asp?id=2")
		response.End()
	else
		rootid=rs("RootID")
		FID=rs("FID")
		topic=rs("topic")
		username=trim(rs("name"))
		rs("valid")=1
		rs.update
	end if
	rs.close
	set rs=nothing
	if id=rootid then
		sql="update m3_forum set lasttopic='"&topic&"',lastname='"&username&"' where topicid="&id&""
		conn.execute(sql)
		sql="update m3_users set post=post+1,meili=meili+5,jingyan=jingyan+5,money=money+70,weiwang=weiwang+5,credit=credit+2 where name='"&username&"'"
		conn.execute(sql)
	else
		sql="update m3_bbs set re=re+1 where id="&rootid&""
		conn.execute(sql)
		sql="update m3_users set post=post+1,meili=meili+3,jingyan=jingyan+3,money=money+50,weiwang=weiwang+2,credit=credit+1 where name='"&username&"'"
		conn.execute(sql)
	end if
end sub
%>