www.gusucode.com > 翼动留言板 2.1源码程序 > Book_Manage.asp
<%
Option Explicit
'************************************************************************************
'开发组 翼动工作室
'姓名 郑景德
'网名 旭日
'QQ 3178920
'个人网站 http://www.wingroom.com
'本页：
'留言本系统管理
'
'************************************************************************************
%>
<!--#include file="inc/Check.asp"-->
<!--#include file="inc/config.asp"-->
<!--#include file="inc/Function.asp"-->
<!--#include file="inc/UBBcode.asp"-->
<!--#include file="inc/DBControl.asp"-->
<!--#include file="inc/FileInclude.asp"-->
<!--#include file="inc/UBBBln.asp"-->
<%
Dim Cfg,Db,Flib,FUbb
Set Cfg = New Config
Set Db = New DBControl
Set Flib = New FunctionLib
Set FUbb = New FunctionUBB
Dim PageTitle,Keyword
PageTitle = "留言本管理"
Keyword = Request.QueryString("Keyword")
%>
<HTML>
<HEAD>
<TITLE> <%=PageTitle & " [" & Cfg.SysName & " " & Cfg.SysVersion & "]"%> </TITLE>
<META NAME="Generator" CONTENT="EditPlus">
<META NAME="Author" CONTENT="">
<META NAME="Keywords" CONTENT="">
<META NAME="Description" CONTENT="">
<script src="inc/PageList.js"></script>
<script language="JavaScript" src="inc/ubbcode.js"></script>
<SCRIPT LANGUAGE="JavaScript">
<!--
function LinkAsk(){
if(confirm('确定要执行此操作吗？'))
return true;
else
return false;
}
//-->
</SCRIPT>
<link href="css/style.css" rel="stylesheet" type="text/css">
</HEAD>
<BODY>
<%
Call Book_Top_Banner()
Call Manage_Top_Title()
Select Case Keyword
Case "MsgList"
Call Manage_MsgList()
Case "MdfyPwd"
Call Manage_MdfyPwd()
Case "AddManager"
Call Manage_AddManager
Case "ManagerList"
Call Manage_ManagerList()
Case "Reply"
Call Manage_Reply_Msg()
Case "RollMdfy"
Call Manage_Roll()
Case Else
Call Manage_MsgList()
End Select
%>
<%
'关键字：Keyword = MsgList
'说明：留言列表
Sub Manage_MsgList()
Call Manage_Msg_List()
End Sub
'关键字：Keyword = MdfyPwd
'说明：修改密码
Sub Manage_MdfyPwd()
%>
<TABLE bgcolor="#FFFFFF" height="200" width="778" border="0" cellspacing="0" cellpadding="0" align="center">
<TR>
<TD>
<TABLE width="40%" border="0" cellspacing="0" cellpadding="0" align="center">
<Form Method="Post" Action="Manage_Process.asp?action=MdfyPwd">
<TR>
<TD colspan="2" width="30%" height="25">修改密码</TD>
</TR>
<TR>
<TD width="30%" height="25">旧密码：</TD>
<TD width="70%"><INPUT TYPE="password" NAME="oldPassword"></TD>
</TR>
<TR>
<TD width="30%" height="25">新密码：</TD>
<TD width="70%"><INPUT TYPE="password" NAME="newPassWord"></TD>
</TR>
<TR>
<TD colspan="2" align="center" height="30"><INPUT Name="提交" Value="提 交" TYPE="submit"> <INPUT Name="重置" Value="重 置" TYPE="reset"></TD>
</TR>
</Form>
</TABLE>
</TD>
</TR>
</TABLE>
<%
End Sub
'关键字：Keyword = ManagerList
'说明：管理员列表
Sub Manage_ManagerList()
%>
<TABLE bgcolor="#FFFFFF" height="200" width="778" border="0" cellspacing="0" cellpadding="0" align="center">
<TR>
<TD valign="top">
<TABLE width="40%" border="0" cellspacing="0" cellpadding="0" align="center">
<TR>
<TD colspan="2" width="30%" height="25"><a href="?Keyword=AddManager">添加管理员</a></TD>
</TR>
<%
Dim Rs,Sql
Db.Open()
Sql = "select ID,Power,Pwd from wr_Power where Power<>'arno'"
Set Rs = Db.ExeCute(Sql)
If Not Rs.Eof and Not Rs.Bof Then
While Not Rs.Eof
%>
<TR>
<TD width="80%" height="25"><%=Rs("Power")%></TD>
<TD width="20%" align="center"><a href="Manage_Process.asp?id=<%=Rs("ID")%>&action=DelPower" OnClick="javascript:return LinkAsk();">删除</a></TD>
</TR>
<%
Rs.Movenext
Wend
Else
%>
<TR>
<TD colspan="2" height="25">没有其他管理员！</TD>
</TR>
<%
End If
%>
</TABLE>
</TD>
</TR>
</TABLE>
<%
End Sub
'关键字：Keyword = AddManager
'说明：添加管理员
Sub Manage_AddManager()
%>
<TABLE bgcolor="#FFFFFF" height="200" width="778" border="0" cellspacing="0" cellpadding="0" align="center">
<TR>
<TD>
<TABLE width="40%" border="0" cellspacing="0" cellpadding="0" align="center">
<Form Method="Post" Action="Manage_Process.asp?action=AddManager">
<TR>
<TD colspan="2" width="30%" height="25">添加管理员</TD>
</TR>
<TR>
<TD width="30%" height="25">用户名：</TD>
<TD width="70%"><INPUT TYPE="text" NAME="UserName"></TD>
</TR>
<TR>
<TD width="30%" height="25">密 码：</TD>
<TD width="70%"><INPUT TYPE="password" NAME="PassWord"></TD>
</TR>
<TR>
<TD colspan="2" align="center" height="30"><INPUT Name="提交" Value="提 交" TYPE="submit"> <INPUT Name="重置" Value="重 置" TYPE="reset"></TD>
</TR>
</Form>
</TABLE>
</TD>
</TR>
</TABLE>
<%
End Sub
'回复留言
Sub Manage_Reply_Msg()
Dim RS,Sql,ID,Title,Content,Re_Content
ID = Request.QueryString("id")
If Not IsNumeric(ID) or ID = "" Then
Flib.Alert "系统出错！","BACK",1
Response.End
End If
Db.Open()
Sql = "select top 1 ID,Title,Content,Re_Content from wr_BookList where ID="& Cstr(ID)
Set Rs = Db.ExeCute(Sql)
If Rs.Eof and Rs.Bof Then
RS.Close
Set Rs = Nothing
Db.Close
Flib.Alert "系统出错！","BACK",1
Response.End
Else
ID = Rs("ID")
Title = Rs("Title")
Content = Rs("Content")
Re_Content = Rs("Re_Content")
End If
RS.Close
Set Rs = Nothing
Db.Close
%>
<TABLE bgcolor="#FFFFFF" height="200" width="778" border="0" cellspacing="0" cellpadding="0" align="center">
<TR>
<TD valign="top">
<TABLE width="60%" border="0" cellspacing="0" cellpadding="0" align="center">
<Form Method="Post" Action="Manage_Process.asp?action=ReplyMsg">
<TR>
<TD height="25" width="20%">回复主题：</TD>
<TD height="25" style='width:400px;overflow:hidden;word-wrap:break-word;word-break:break:all;'><%=Flib.outHTML(Title)%></TD>
</TR>
<TR>
<TD valign="top" height="25" width="20%">留言内容：</TD>
<TD valign="top" class="lineheight" style='width:400px;overflow:hidden;word-wrap:break-word;word-break:break:all;'><br><%=FUbb.UBBCode(Content)%><br></TD>
</TR>
<TR>
<TD height="25" width="20%">UBB标签：</TD>
<TD><%=UBBBln("Re_Content")%></TD>
</TR>
<TR>
<TD valign="top" height="25" width="20%">回复内容：</TD>
<TD valign="top"><TEXTAREA NAME="Re_Content" ROWS="10" COLS="50"><%=Re_Content%></TEXTAREA></TD>
</TR>
<TR>
<TD height="25">留言表情：</TD>
<TD><%=UbbEm("Re_Content")%></TD>
</TR>
<TR>
<TD colspan="2" align="center"><INPUT TYPE="submit" Name="提 交" Value="提交"> <INPUT TYPE="reset" Name="重 置" Value="重置"></TD>
</TR>
<INPUT TYPE="hidden" Name="ID" Value=<%=ID%>>
</Form>
</TABLE>
</TD>
</TR>
</TABLE>
<%
End Sub
%>
<%
'公告管理
Sub Manage_Roll()
Dim Rs,Sql,Content
Db.Open()
Sql = "Select Content,AddDate From wr_Roll"
Set Rs = Db.ExeCute(Sql)
If Not Rs.Eof and Not Rs.Bof Then
Content = Rs("Content")
End If
Db.Close()
%>
<TABLE bgcolor="#FFFFFF" height="200" width="778" border="0" cellspacing="0" cellpadding="0" align="center">
<TR>
<TD valign="top">
<TABLE width="60%" border="0" cellspacing="0" cellpadding="0" align="center">
<Form Method="Post" Action="Manage_Process.asp?Action=RollMdfy">
<TR>
<TD height="25" width="20%"><b>留言本公告</b></TD>
</TR>
<TR>
<TD valign="top"><TEXTAREA NAME="Content" ROWS="10" COLS="60"><%=Content%></TEXTAREA></TD>
</TR>
<TR>
<TD align="center" height="30"><INPUT TYPE="submit" Name="提交" Value=" 提 交 "> <INPUT TYPE="reset" Name="重置" Value=" 重 置 "></TD>
</TR>
<TR>
<TD height="40"><b>注：</b>公告支持html代码</TD>
</TR>
</TABLE>
</Form>
</TD>
</TR>
</TABLE>
<%
End Sub
%>
<%
Call Book_Bottom_CopyRight()
%>
<%
Set Cfg = Nothing
Set Db = Nothing
Set Flib = Nothing
%>
</BODY>
</HTML>