admin_bbs.asp

来自「网页酷吧全站系统在此之前提供了一个新闻系统V1.0,反应十分热烈,并有不少网友提」· ASP 代码 · 共 244 行

<%if session("username")="" or session("userkey")="" then
response.redirect "../../"
end if%>
<!--#include file="mozeenconn.asp"-->
<link href=../css/main.css rel=stylesheet>
<!--#include file="./inc/const.asp"-->
<!--#include file="./inc/char.asp"-->
<%call main()%>

<%sub main()%>
<table width="95%" border="0" align="center" cellpadding="5" cellspacing="1" bgcolor="#999999">
  <tr> 
    <td height="20" bgcolor="#eeeeee">当前位置：<a href=main.asp>管理首页</a> >> <a href=admin_bbs.asp>站务交流</a></td>
  </tr>
</table>
<%
if Request("action") = "addmsg" then
	call addmsg()
elseif request("action") = "savemsg" then
	call savemsg()
elseif request("action") = "delmsg" then
	call delmsg()
elseif request("action") = "editmsg" then
	call editmsg()
elseif request("action") = "saveeditmsg" then
	call saveeditmsg()
else
	call msglist()
end if
%>
<%end sub%>


<%sub msglist()%>
<table width="95%" cellspacing="1" cellpadding="3" bgcolor="#999999" align="center">
<tr bgcolor="#CCCCCC" align=center><td colspan="5"><b>站务交流----留言版</b></td></tr>
<%
dim pagecount,page,Spage,Epage,recordcount,i
page = request.querystring("page")
if page = "" or IsNull(page) then page = 1
if not IsNumeric(page) then page = 1
page = Cint(page)
set rs = server.CreateObject ("Adodb.recordset")
sql = "select * from adminmsg order by msgid desc"
rs.open sql,conn,1,1
recordcount = RS.RecordCount
RS.PageSize = PAGESIZE
pagecount = RS.PageCount
if page < 1 then
    page = 1
elseif page > pagecount then
    page = pagecount
end if
if RS.EOF  then%>
<tr bgcolor="#ffffff" height=20><td colspan="4" ><center><font color=#cc0000>目前还没有任何留言！</font> 请[<a href=admin_bbs.asp?action=addmsg>点击这里</a>]发表留言</td></tr></table>
<%else%>
<tr bgcolor="#ffffff" height=25><td colspan="4" >【<a href=admin_bbs.asp?action=addmsg><font color=#cc0000>发表留言</font></a>】</td></tr>
<%if recordcount > 0 then RS.AbsolutePage = page
  for i = 1 to PAGESIZE
  if RS.EOF then exit for%>
<tr bgcolor="#dddddd"><td width=3%><center><img src=./img/folder.gif></td><td><b><%=rs("msgtitle")%></b> (<%=rs("addDate")%>)</td><td width=10%><center><a href=userinfo.asp?username=<%=rs("msgUsername")%>><font color=blue><%=rs("msgUsername")%></font></a></td><td width=10%><center><%if session("userkey")=4 or session("username")=rs("msgUsername") then%><a href=admin_bbs.asp?action=editmsg&msgid=<%=rs("msgid")%>><font color=#cc0000>修改</font></a> | <a href=admin_bbs.asp?action=delmsg&msgid=<%=rs("msgid")%>><font color=#cc0000>删除</font></a><%end if%></td></tr>
<tr bgcolor=#f8f8f8>
  <td></td>
  <td colspan="3" class=b><br>
    <%=ubbcode(rs("msgContent"))%><br></td>
  <%
RS.MoveNext()
next
end if
%></table>
  <%
if pagecount > 0 then
    response.write("<table width=""95%"" align=center cellspacing=3 cellpadding=3><tr><td align=right>")
    response.write("页次：<font color=red><b>" & page & "</font>/" & pagecount & "</b>&nbsp;&nbsp;每页<b>" & pagesize & "</b>&nbsp;&nbsp;共<b>" & recordcount & "</b>条留言&nbsp;&nbsp;分页：")
    Spage = page mod PARTSIZE
    if page > PARTSIZE then
        if Spage = 0 then Spage = PARTSIZE
        Spage = page - Spage + 1
    else
        Spage = 1
    end if
    Epage = Spage + PARTSIZE - 1
    if Epage > pagecount then Epage = pagecount
    if page > PARTSIZE then
        response.write("<a href=""admin_bbs.asp?page=" & Spage - 1 & """>[<<]</a>")
    end if
    for i = Spage to Epage
        if i = page then
            response.write("[<font color=red><b>" & i & "</b></font>]")
        else
            response.write("[<a href=""admin_bbs.asp?page=" & i & """>" & i & "</a>]")
        end if
    next
    if Epage < pagecount then
        response.write("<a href=""admin_bbs.asp?page=" & Epage + 1 & """>[>>]</a>")
    end if
    if Spage <> 1 then response.write("[<a href=""admin_bbs.asp?page=1"">首页</a>]")
    if Epage <> pagecount then response.write("[<a href=""admin_bbs.asp?&page=" & pagecount & """>尾页</a>]")
    response.write("</td></tr></table><br>")    
end if
rs.close
set rs=nothing%>
  <%end sub%>
  <%sub addmsg()%>
  <table width="95%" cellspacing="1" cellpadding="3" bgcolor="#999999" align="center">
    <form action="admin_bbs.asp?action=savemsg" method=POST  name="frmArticle">
      <tr bgcolor="#CCCCCC" align=center>
        <td colspan="2"><b>添加留言</b></td>
      </tr>
      <tr bgcolor=#ffffff height=20>
        <td colspan="2"></td>
      </tr>
      <tr bgcolor=#eeeeee>
        <td width=20% align=right>标题：</td>
        <td><input type=text name=msgTitle size=60></td>
      </tr>
      <tr bgcolor=#eeeeee>
        <td align=right>内容：</td>
        <td><textarea  cols="80" name="Content" rows="12" wrap="VIRTUAL"></textarea></td>
      </tr>
      <tr bgcolor=#eeeeee>
        <td ></td>
        <td><input type=Submit value="发 表" name=Submit> &nbsp;&nbsp;
          <input type="reset" name="Submit2" value="清 除"></td>
      </tr>
    </form>
  </table>
  <%end sub%>
  <%sub savemsg()%>
  <%if request("msgTitle")="" then%>
  <script language=javascript>  
alert( "错误：请输入标题！"  );
location.href = "javascript:history.back()"  
</script>
  <%elseif request("content")="" then%>
  <script language=javascript>  
alert( "错误：请输入内容！"  );
location.href = "javascript:history.back()"  
</script>
  <%else%>
  <%
set rs = server.CreateObject ("adodb.recordset")
sql = "select * from adminmsg"
	rs.Open sql,conn,1,3
	rs.AddNew
	rs("msgTitle") = HTMLEncode(Request("msgTitle"))
	rs("msgcontent") = Request("content")
	rs("msgusername") = session("username")
	rs("Adddate") = now()
	rs.Update 
	rs.Close 
set rs=nothing
%>
  <script language=javascript>  
alert( "恭喜：留言添加成功"  );
location.href = "admin_bbs.asp"  
</script>
  <%end if%>
  <%end sub%>
  <%sub delmsg()%>
  <%
set rs=server.createobject("adodb.recordset")
sql="select * from [adminmsg] where msgid="&request("msgid")
rs.open sql,conn,1,1
%>
  <%if session("userkey")=4 or session("username")=rs("msgUsername") then%>
  <%sql1 = "delete from adminmsg where msgid="+Cstr(Request("msgid"))
conn.execute(sql1)
%>
  <script language=javascript>  
alert( "留言删除成功"  );
location.href = "admin_bbs.asp"  
</script>
  <%else%>
  <script language=javascript>  
alert( "您无权删除此条留言"  );
location.href = "admin_bbs.asp"  
</script>
  <%end if%>
  <%end sub%>
  <%sub editmsg()%>
  <%
set rs=server.createobject("adodb.recordset")
sql="select * from [adminmsg] where msgid="&request("msgid")
rs.open sql,conn,1,1
%>
  <%if session("userkey")=4 or session("username")=rs("msgUsername") then%>
  <table width="95%" cellspacing="1" cellpadding="3" bgcolor="#999999" align="center">
    <form action="admin_bbs.asp?action=saveeditmsg&msgid=<%=rs("msgid")%>" method=POST onSubmit="submitonce(this)" name="frmArticle">
      <script src="./inc/ubbcode.js"></script>
      <tr bgcolor="#CCCCCC" align=center>
        <td colspan="2"><b>修改留言</b></td>
      </tr>
      <tr bgcolor=#ffffff height=20>
        <td colspan="2"></td>
      </tr>
      <tr bgcolor=#eeeeee>
        <td width=20% align=right>标题：</td>
        <td><input type=text name=msgTitle size=60 value=<%=rs("msgTitle")%>></td>
      </tr>
      <tr bgcolor=#eeeeee>
        <td align=right>内容：</td>
        <td><textarea  cols="80" name="Content" rows="12" wrap="VIRTUAL" onkeydown=ctlent()><%=rs("msgContent")%></textarea></td>
      </tr>
      <tr bgcolor=#eeeeee>
        <td ></td>
        <td><input type=Submit value="修改" name=Submit> &nbsp;&nbsp;
          <input type="reset" name="Submit2" value="清 除"></td>
      </tr>
    </form>
  </table>
  <%else%>
  <script language=javascript>  
alert( "您无权修改此条留言"  );
location.href = "admin_bbs.asp"  
</script>
  <%end if%>
  <%end sub%>
  <%sub saveeditmsg()%>
  <%if request("msgTitle")="" then%>
  <script language=javascript>  
alert( "错误：请输入标题！"  );
location.href = "javascript:history.back()"  
</script>
  <%elseif request("content")="" then%>
  <script language=javascript>  
alert( "错误：请输入内容！"  );
location.href = "javascript:history.back()"  
</script>
  <%else%>
  <%sql="update adminmsg set msgTitle='"&HTMLEncode(request("msgTitle"))&"',msgContent='"&request("content")&"' where msgid="&cstr(request("msgid"))
conn.execute(sql)%>
  <script language=javascript>  
alert( "留言修改成功"  );
location.href = "admin_bbs.asp"  
</script>
  <%end if%>
  <%end sub%>
<table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td>&nbsp;</td>
  </tr>
</table>