checktj.asp

本程序采用花香内核

<!--#include file="mdb.asp"-->
<!--#include file="inc/error.asp"-->
<!--#include file="inc/config.asp"-->
<%
if session("adminlogin")<>sessionvar then
  Response.Write("<script language=javascript>alert('你尚未登录，或者超时了！请重新登录');this.top.location.href='admin.asp';</script>")
  response.end
else
if request.querystring("id")="" then
  errmsg=errmsg+"<br>"+"<li>请指定要操作的对象！"
  call diserror()
  response.end
else
if request.QueryString("hx66")="checkart" then'============审核文章
sql="select * from art where art_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if request.querystring("action")="pass" then'===审核通过
rs("passed")=0
rs.update
tjuser=rs("tjuser")
sql="UPDATE [user] SET points = points + 20 where username='"&tjuser&"'"
conn.execute (sql)
elseif request.querystring("action")="del" then'===删除审核
rs.delete
end if
rs.close
set rs=nothing
response.redirect "admin_art.asp?action=cat"
end if
if request.QueryString("hx66")="checkdj" then'=============审核歌曲
sql="select * from dj where dj_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if request.querystring("action")="pass" then'===审核通过
rs("passed")=0
rs.update
tjuser=rs("tjuser")
sql="UPDATE [user] SET points = points + 20 where username='"&tjuser&"'"
conn.execute (sql)
elseif request.querystring("action")="del" then'===删除审核
rs.delete
end if
rs.close
set rs=nothing
response.redirect "admin_dj.asp?action=dj"
end if
if request.QueryString("hx66")="checkcs" then'=============审核酷站
sql="select * from coolsites where cs_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if request.querystring("action")="pass" then'===审核通过
rs("passed")=0
rs.update
tjuser=rs("tjuser")
sql="UPDATE [user] SET points = points + 20 where username='"&tjuser&"'"
conn.execute (sql)
elseif request.querystring("action")="del" then'===删除审核
rs.delete
end if
rs.close
set rs=nothing
response.redirect "admin_web.asp?action=sites"
end if
if request.QueryString("hx66")="checkdown" then'=============审核资源
sql="select * from soft where soft_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if request.querystring("action")="pass" then'===审核通过
rs("passed")=0
rs.update
tjuser=rs("tjuser")
sql="UPDATE [user] SET points = points + 20 where username='"&tjuser&"'"
conn.execute (sql)
elseif request.querystring("action")="del" then'===删除审核
rs.delete
end if
rs.close
set rs=nothing
response.redirect "admin_down.asp?action=list"
end if
if request.QueryString("hx66")="checkpic" then'=============审核图片
sql="select * from pic where pic_id="&cint(request.querystring("id"))
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,1,3
if request.querystring("action")="pass" then'===审核通过
rs("passed")=0
rs.update
tjuser=rs("tjuser")
sql="UPDATE [user] SET points = points + 20 where username='"&tjuser&"'"
conn.execute (sql)
elseif request.querystring("action")="del" then'===删除审核
rs.delete
end if
rs.close
set rs=nothing
response.redirect "admin_pic.asp?action=pic"
end if
end if
end if
%>