diarygl.asp

asp构建网站bbs.采用B/S架构

<!--#include file="up.asp"-->
<!--#include file="conndiary.asp"--><br>
<%
t11="<div align=center><center><table border='0' cellpadding='0' cellspacing='0' style='border-collapse: collapse' width='98%'height='25'><tr><td width='180' background='pic/"&sp&"3.gif'>&nbsp;<img border='0' src='pic/fl.gif'> <font color='#FFFFFF'><b>"
t12="</b></font></td><td background='pic/"&sp&"3.gif'></td><td background='pic/"&sp&"3.gif' align=right><a href='diary.asp'><strong><font color='#FFFFFF'>日记首页</font></strong></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href='diarygl.asp?action=addlock'><strong><font color='#FFFFFF'>添加黑名单</font></strong></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href='diarygl.asp?action=del'><strong><font color='#FFFFFF'>删除日记本</font></strong></a>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href='diarygl.asp?action=gl'><strong><font color='#FFFFFF'>后台管理</font></strong></a>&nbsp;</td></tr></table></center></div><div align=center><center><table border=1 cellpadding=0 cellspacing=0 style='border-collapse: collapse' bordercolor="&c1&" width=98% >"
d11="<tr><td width=100% ><P style='MARGIN: 8px;line-height: 150%'>"
d12="</td></tr></table></center></div>"
name=Request.Form("name")
addel=Request.Form("addel")
lenmin=Request.Form("lenmin")
lenmax=Request.Form("lenmax")
%>
<%if adminrj="yes" then
%>
<%=t11%>日记本后台管理<%=t12&d11%>
<%if action="" then%>请你选择要管理的项目！！！
<%else
select case action
case "addlock"%>
<form action="diarygl.asp?action=addlockok" method="post">
  <P style='MARGIN: 5px'>请输入要添加（删除）的人员名字： 
    <input type="text" name="name" size="20">
    　
    <select name="addel" size="1" id="addel">
      <option value="1" selected>添加黑名单</option>
      <option value="0">删除黑名单</option>
    </select>
  </p>
  <P style='MARGIN: 5px'>&nbsp;</p>
  <P style='MARGIN: 5px'>&nbsp;&nbsp;&nbsp;&nbsp;<input type="submit" value=确　定 name="B1">&nbsp;
<input type="reset" value=" 重 置 " name="B2">
</form>
<%case "addlockok"
set add=myconn.execute("SELECT*FROM user where name='"&name&"'")
if add.eof and add.bof then%>
·没有这个用户· 
<%
else
if addel=1 then
d_conn.execute("insert into lockuser(d_name)VALUES('"&name&"')")
%>
·添加成功·
<%
response.end
end if
if addel=0 then
d_conn.execute("delete from lockuser where d_name='"&name&"'")%>
·删除成功·
<%
response.end
end if
end if
set add=nothing
%>
<%case "del"%>
<form action="diarygl.asp?action=delok" method="post">
<P style='MARGIN: 5px'>请输入要删除其日记本的人员名字： <input type="text" name="name" size="20">
<P style='MARGIN: 5px'>&nbsp;&nbsp;&nbsp;&nbsp;<input type="submit" value=确　定 name="B1">&nbsp;
<input type="reset" value=" 重 置 " name="B2"></form>
<%case "delok"
set add=myconn.execute("SELECT*FROM user where name='"&name&"'")
if add.eof and add.bof then%>
·没有这个用户· 
<%
else
d_conn.execute("delete from duserset where d_name='"&name&"'")
d_conn.execute("delete from diary where d_name='"&name&"'")
%>
·删除成功·
<%end if%>
<%case "gl"
set dbit=d_conn.execute("select * from dadmin ")
if not dbit.eof and  not dbit.bof  then
dmin=dbit("d_min")
dmax=dbit("d_max")
%>
<form action="diarygl.asp?action=glok" method="post">
<p align="center">&nbsp;</p>
  <p align="center">请输入日记字数的限制范围: 
    <input name="lenmin" type="text" value="<%=dmin%>" size="8">
    －－ 
    <input name="lenmax" type="text" value="<%=dmax%>" size="8">
    &nbsp;&nbsp;&nbsp; 
    <input type="submit" value=确　定 name="B12">
  </p>
  
</form>
<%else
end if%>
<%case "glok"%>
<%if isnumeric(lenmin) and isnumeric(lenmax) then
if lenmin>lenmax then%>
对不起！！你所输入的范围不正确&nbsp;&nbsp;<a href=javascript:history.go(-1)>返回重写</a>！！！！！
<%else
d_conn.execute("update dadmin set d_min='"&lenmin&"',d_max='"&lenmax&"'")
%>日记字数的限制范围已改为：<%=lenmin%>--<%=lenmax%>
<%
end if
else%>
请输入数字！！！！！！
<%
end if%>
<%''''''''''''''''
end select
end if 
else%>
<%=t1%>错误信息<%=t2&d1%>对不起！！你不是本论坛的管理员所以不能进入管理页面！！！！<%=d2%>
<%end if%>
<%=d12%>
<!--#include file="down.asp"-->