shenhe.asp

是运行在asp环境下寻梦书库管理系统

<%@ Language=VBScript %>
<!--#INCLUDE FILE="inc/conn.asp" -->
<!--#include file="chk.asp"-->

<%
sh=request("sh")

if sh=10 then
user=request("user")
ref=request("ref")
conn.execute("update user set shenhe=0 where user="&user&" ")
conn.execute("update user set jifen=jifen-100 where user='"&ref&"' ")
%>
<script>alert( '取消审核会员成功！' );</script>
<meta http-equiv="refresh" content="0;URL=admin_user.asp">
<%end if
if sh=1 then
user=request("user")
ref=request("ref")
conn.execute("update user set shenhe=1 where user="&user&" ")
conn.execute("update user set jifen=jifen+100 where user='"&ref&"' ")
%>
<script>alert( '审核会员成功！' );</script>
<meta http-equiv="refresh" content="0;URL=admin_user.asp">
<%end if
if sh=2 then
bookid=request("bookid")
jiafen=request("jiafen")
conn.execute("update book set shenhe=1 where bookid="&bookid&" ")
Set rs_s= Server.CreateObject("ADODB.Recordset")
sql_s="select adder from book where bookid="&bookid&" "
rs_s.open sql_s,conn,1,3
penname=rs_s("adder")
rs_s.update
rs_s.close

conn.execute("update user set jifen=jifen+"&jiafen&" where penname='"&penname&"' ")
%>
<script>alert( '审核书籍成功！' );</script>
<meta http-equiv="refresh" content="0;URL=admin_book.asp">

<%
end if
if sh=30 then
id=request("id")
conn.execute("update pinglun set shenhe=0 where id="&id&" ")
%>
<script>alert( '取消审核评论成功！' );</script>
<meta http-equiv="refresh" content="0;URL=admin_pl.asp?sh=1">
<%end if
if sh=3 then
id=request("id")
conn.execute("update pinglun set shenhe=1 where id="&id&" ")
%>
<script>alert( '审核评论成功！' );</script>
<meta http-equiv="refresh" content="0;URL=admin_pl.asp?sh=0">
<%end if
if sh=4 then
bookid=request("bookid")
kindid=request("kindid")
conn.execute("update book set lzai=1 where bookid="&bookid&" ")
%>
<script>alert( '[连载完成]已设置！' );</script>
<meta http-equiv="refresh" content="0;URL=admin_index.asp?kindid=<%=kindid%>">
<%end if
if sh=40 then
bookid=request("bookid")
kindid=request("kindid")
conn.execute("update book set lzai=0 where bookid="&bookid&" ")
%>
<script>alert( '已取消连载完成，可以继续添加文章！' );</script>
<meta http-equiv="refresh" content="0;URL=admin_index.asp?kindid=<%=kindid%>">
<%end if%>