?? bbs_adminsave.asp
字號:
<!--#include file="../conn.asp"-->
<%
user=Request.QueryString ("user")
cz=Request.QueryString ("cz")
jl=Request.Form("jl")
fc=Request.Form("fc")
qu=Request.Form("qu")
if cz="" or user="" or jl="" or fc="" or qu="" or Request.Cookies("username")="" or Request.Cookies("login")<>"Y" or Request.Cookies("sf")<>1 then
Response.Write "<br><br><br>你尚未登陸,或者你沒有這個權限,或者其它參數有誤!<br><br><br><br>"
else
Set rs = Server.CreateObject("ADODB.Recordset")
sql="SELECT top 1 * FROM 用戶資料 WHERE 用戶名='"&user&"' "
rs.open sql,conn,1,3
if rs.BOF and rs.EOF then
Response.Write "沒有找到這個用戶"
else
if cz=1 then
select case jl '進行分值操作 獎勵
case 1
rs("積分")=rs("積分")+fc
lx="積分"
case 2
rs("經驗")=rs("經驗")+fc
lx="經驗"
case 3
rs("聲望")=rs("聲望")+fc
lx="聲望"
case 4
rs("金錢")=rs("金錢")+fc
lx="金錢"
end select
rs.update
rs.Close
Set rs = Server.CreateObject("ADODB.Recordset") '寫入獎懲信息數據庫
sql="SELECT top 1 * FROM 獎懲信息 "
rs.open sql,conn,1,3
rs.addnew
rs("用戶名")=user
rs("獎懲")="獎勵"
rs("類型")=lx
rs("分值")=fc
rs("操作理由")=qu
rs("操作時間")=date()+time()
rs("操作人")=Request.Cookies("username")
rs.update
rs.close
set rs=nothing
else
select case jl '進行分值操作 懲罰
case 1
rs("積分")=rs("積分")-fc
lx="積分"
case 2
rs("經驗")=rs("經驗")-fc
lx="經驗"
case 3
rs("聲望")=rs("聲望")-fc
lx="聲望"
case 4
rs("金錢")=rs("金錢")-fc
lx="金錢"
end select
rs.update
rs.Close
Set rs = Server.CreateObject("ADODB.Recordset") '寫入獎懲信息數據庫
sql="SELECT top 1 * FROM 獎懲信息 "
rs.open sql,conn,1,3
rs.addnew
rs("用戶名")=user
rs("獎懲")="懲罰"
rs("類型")=lx
rs("分值")=fc-fc*2
rs("操作理由")=qu
rs("操作時間")=date()+time()
rs("操作人")=Request.Cookies("username")
rs.update
rs.close
set rs=nothing
end if
Set rs = Server.CreateObject("ADODB.Recordset") '寫入短信數據庫，向用戶發送短信
sql="SELECT top 1 * FROM ShortInfo "
rs.open sql,conn,1,3
rs.addnew
rs("發件人")=Request.Cookies("username")
rs("是否發送標記")="Y"
rs("發件人刪除標記")="N"
rs("發件人回收站刪除標記")="N"
rs("是否已讀")="N"
rs("收件人刪除標記")="N"
rs("收件人回收站刪除標記")="N"
rs("收件人")=user
rs("消息標題")="系統消息"
rs("消息內容")=qu+" 具體可能的分值操作，請在獎懲信息欄或自己的資料中查詢"
rs("日期")=date()+time()
rs.Update
rs.Close
set rs=nothing
Response.Write "操作完成"
end if
end if
%>
<head>
<link rel="stylesheet" type="text/css" href="../css/style1.css">
</head>
<body>
</body>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -