📄 admin_bank.asp

📁 asp构建网站bbs.采用B/S架构
💻 ASP
字号:
<!--#include file="conn.asp"-->
<!--#include file="md5.asp"-->
<!--#include file="fun.asp"-->
<%set bbs=myconn.execute("select*from bbsinfo")
sty="all"
sp=request.cookies(cn&"1")(sty)
c1=request.cookies(cn&"1")(sty&"c1")
c2=request.cookies(cn&"1")(sty&"c2")
tlinfo=bbs("tlinfo")
tli=split(tlinfo,"|?|")
tl=tli(0)
c11=tli(1)
c12=tli(2)
topinfo=tli(3)
upnum=tli(4)
upsize=tli(5)
b1s=tli(6)
autotable=tli(7)
alltb=tli(8)
cbi=tli(9)
lmbbs=tli(10)
if sp="" then sp=b1s
if c1="" then c1=c11
if c2="" then c2=c12
set bbs=nothing
lgname=Request.Cookies(cn&"0")("lgname")
lgpwd=request.cookies(cn&"0")("lgpwd")
lgpwd=md5(lgpwd)
set cjbz=myconn.execute("select name from admin where name='"&lgname&"' and password='"&lgpwd&"' and bd='70767766'")
if cjbz.eof then
set cjbz=nothing
response.redirect"admin-login.asp"
end if
%>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link rel="stylesheet" type="text/css" href="css.css">
</head>

<body topmargin="0" leftmargin="0">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="100%">
<tr>
 <td width="100%" height="28" background="pic/<%=sp%>3.gif" align="center">
 <b><font color="#FFFFFF">论坛后台管理系统</font></b></td>
</tr>
</table><hr size=1 color=#F15A5A width=98% ><br>
<%select case request("menu")
case""%>
<form action="?menu=save" method="POST" name=kbbs>
<div align=center><center><table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='94%'><tr><td width='240' background='pic/<%=sp%>3.gif'>&nbsp;<img border='0' src='pic/fl.gif'> <font color='#FFFFFF'><b></b></font></td><td background='pic/<%=sp%>5.gif'></td></tr></table></center></div><div align=center><center><table border=1 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor=#F15A5A width=94% ><tr><td width=100% >
<P style='MARGIN: 5px'>对象：   
<select name=sendqian style='font-size: 9pt'>   
<option value=0 selected>所有在线用户</option>
<option value=1>所有版主</option>
<option value=2>所有管理员</option>
<option value=3>管理团队(版主+管理员)</option>
<option value=4>所有注册用户</option>
</select>
</p>&nbsp;内容：<input type="radio" name="sendornot" value=0 checked>送钱<input type="radio" name="sendornot" value="1">扣钱&nbsp;金额：<input type=text name="sendmoney" value=1000><P style='MARGIN: 5px'><textarea name="body" cols=60 rows="5"></textarea></p><P style="MARGIN: 5px">
<input type=submit class=submit value=" 发 送 " name="B2">&nbsp;&nbsp;<font color=red>字数请勿过多</font></p>
</td></tr></table></center></div>
</form>
<br>
<%
dim i
i=1
set rsb=server.createobject("adodb.recordset")
sqlb="select id,neirong,riqi from hand where name='社区银行'"
rsb.open sqlb,myconn
do while not rsb.eof
response.write"<font color=red>公告:<font color=#999966>["&i&"]</font></font>&nbsp;"&rsb("neirong")&"["&rsb("riqi")&"]&nbsp;<a href=?menu=del&id="&rsb("id")&">删除</a><br>"
i=i+1
rsb.movenext
loop
rsb.close
set rsb=nothing
%>
<%   
case"del"   
myconn.execute("delete * from hand where id="&replace(request.querystring("id"),"'","")&" and name='社区银行'")   
response.redirect"admin_bank.asp"   
case"save"   
sendname=replace(request.form("sendqian"),"'","''")   
sendtype=replace(request.form("sendornot"),"'","''")   
sendmsg=replace(request.form("body"),"'","''")   
sendmoney=replace(request.form("sendmoney"),"'","''")   
if sendname="" or sendtype="" or sendmsg="" or sendmoney="" then    
noyes="操作失败!"   
mes="·所有参数均不能为空<br>·<a href=admin_bank.asp>返回</a>"   
else   
set rs=server.createobject("adodb.recordset")   
select case sendname   
case"0"   
sql="select name from [online] where int(pic)<>1"   
case"1"   
sql="select name from [admin] where bd<>'70767766'"   
case"2"   
sql="select name from [admin] where bd='70767766'"   
case"3"   
sql="select name from [admin]"   
case"4"   
sql="select name from [user]"   
case else   
response.end   
end select   
if sendtype="1" then sendmoney=int(sendmoney)*(-1)   
rs.open sql,myconn   
do while not rs.eof    
 myconn.execute("update [user] set qian=qian+int("&sendmoney&") where name='"&rs("name")&"'")   
 rs.movenext   
loop   
rs.close   
set rs=nothing   
myconn.execute("insert into hand(name,tname,neirong)values('社区银行','社区银行','"&sendmsg&"')")   
noyes="发送成功!"   
mes="·已经按您的要求执行了操作，并且发布了公告！"   
end if   
response.write"<table style='BORDER-COLLAPSE: collapse;MARGIN: 3px' width=98% border=1 align=center cellspacing=0 bordercolor="&c1&" height=28><tr bgcolor="&c2&"> <td background=pic/"&sp&"3.gif align=center width=40 height=28><img src=pic/nav.gif align=absmiddle></td><td background=pic/"&sp&"3.gif height=28><P style='MARGIN: 5px;'><b><font color=#FFFFFF>"&noyes&"</font></b></p></td></tr><tr><td align=center width=40 height=40><img src=pic/mesinfo.gif></td><td valign=center> <P style='MARGIN: 5px;line-height:150%'>"&mes&"</p></td></tr></table>"   
end select   
%>
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -