<!--#include file="conn.asp"-->
<!--#include file="config.asp"-->
<!--#include file="chkadmin.asp"-->
<!--#include file="inc/char.asp"-->
<%dim id,poster
id=CInt(Trim(Request.QueryString("id")))
poster=Trim(Request.QueryString("poster"))

dim errmsg,founderr
founderr=false

if chkadmin=false or power(3)="0" then
	founderr=true
	errmsg=errmsg&"<li>您没有审核软件的权限</li>"
end if

if founderr=false then
	conn.execute("update Software set PostType=2 where ID="&id)
	conn.execute("update UserInfo set Point=Point+"&PostPoint&" where USR='"&poster&"'")
	dim gourl,msg
	gourl=request.ServerVariables("HTTP_REFERER")
	msg="此软件已通过审核！"
	call ok()
else
	call error()
end if

conn.close
set conn=nothing
%>