新闻自动化管理网站的计算机毕业设计

 5．3管理系统首页页面

5．3．1管理系统首页页面示例：

 当用户通过身份验证后，就进入管理系统首页。每个级别的管理员拥有不同的管理权限。“员工”只能对本系统进行新闻添加功能，他的权限是最底的；“普通用户”除了能进行文章添加工作外，还可以对文章进行删除和修改操作；“超级用户”拥有所有功能，权限最大，可以进行新闻添加、新闻的修改删除、目录管理、管理员管理四大功能。

 

图5-3 管理系统页面

5．3．2 管理系统首页页面实现方法

  其主要ASP程序如下：

  添加文章的链接页面是：freeadd.asp

  修改删除页面的链接页面是:adminedit.asp

  栏目管理页面的链接页面是:classmana.asp

  用户管理页面的链接页面是：adminuser.asp

◇<a href="freeadd.asp" target="right" title="直接添加下载地址等信息">添加文章</a><br>

<%if session("flag")<3 then%>

◇<a href="adminedit.asp" target="right">修改删除</a><br>

<%if session("flag")=1 then%>

◇<a href="classmana.asp" target="right">栏目管理</a><br>

◇<a href="adminuser.asp" target="right">用户管理</a><br>

◇<a href="default.asp" target=_top>返回首页</a><br>

◇<a href="logout.asp" target=_top>退出系统

5．4 添加文章页面

5．4．2 添加文章页面实现方法：

   管理员添加文章时，必须首先选择新闻的从属大小类别，输入文章的标题，必要的话，还可以加入UBB标签，然后输入新闻内容，最后填写相关文章、作者以及来源。最后点击“添加”,既完成新闻的录入工作。

   主要ASP程序如下：

<title>添 加 文 章</title>

定义变量，连接数据库，并从数据库的ANclass表中检索所有属性。

<%

dim rs

dim sql

dim count

set rs=server.createobject("adodb.recordset")

sql = "select * from ANclass order by Nclassid asc"

rs.open sql,conn,1,1

%>

<script language = "JavaScript">

var onecount;

onecount=0;

subcat = new Array();     

function changelocation(locationid)

    {document.myform.Nclassid.length = 0;

    var locationid=locationid;

    var i;

    for (i=0;i < onecount; i++)

        {　if (subcat[i][1] == locationid)    document.myform.Nclassid.options[document.myform.Nclassid.length] = new Option(subcat[i][0], subcat[i][2]);} } }

<center><p><b>添 加 文 章</b></td>   

<td width="15%" align="right" valign="top" height="20"><b>文章类型：</b></td>         

<% sql = "select * from Aclass"

   rs.open sql,conn,1,1

   if rs.eof and rs.bof then

   response.write "请先添加栏目。"

   response.end

   else

%>

<select　name="classid" onChange="changelocation(document.myform.classid.options[document.myform.classid.selectedIndex].value)" size="1">

        <option selected value="<%=trim(rs("classid"))%>"><%=trim(rs("class"))%></option>

<%      dim selclass

         selclass=rs("classid")

        rs.movenext

        do while not rs.eof

%>

        <option　value="<%=trim(rs("classid"))%>"><%=trim(rs("class"))%></option>

<%rs.movenext

        loop

   end if

        rs.close%>

       </select>   

    <select name="Nclassid">                 

<%sql="select * from ANclass where classid="&selclass

rs.open sql,conn,1,1

if not(rs.eof and rs.bof) then

%>

        <option selected value="<%=rs("NclassID")%>"><%=rs("Nclass")%></option>

<% rs.movenext

do while not rs.eof%>

        <option value="<%=rs("NclassID")%>"><%=rs("Nclass")%></option>

<% rs.movenext

loop

end if

        rs.close

        set rs = nothing

        conn.Close

        set conn = nothing

%>

    </select>**

      </td></tr>

        <tr>

          <td width="15%" align="right" height="30"><b>文章标题：</b></td>

          <td width="85%" height="30"><input type="text" name="txttitle" size="70"

          class="smallinput" maxlength="100"></td>

        </tr>      

        <tr>

          <td width="15%" align="right" valign="top"><b>文章内容：</b></td>

          <td width="85%"><textarea rows="15" name="txtcontent" cols="60" class="smallarea"></textarea></td>

        </tr>

        <tr>

          <td width="15%" align="right" height="30"><b>相关文章：</b></td>

          <td width="85%" height="30"><input type="text" name="key" size="70"

          class="smallinput" maxlength="100"></td>

        </tr>

        <tr>

          <td width="15%" align="right" height="30"><b>作者：</b></td>

          <td width="85%" height="30"><input type="text" name="writer" size="70"

          class="smallinput" maxlength="100"></td>

        </tr>

        <tr>

          <td width="15%" align="right" height="30"><b>来源：</b></td>

          <td width="85%" height="30"><input type="text" name="writefrom" size="70"

          class="smallinput" maxlength="100"></td>

        </tr>

        <tr>

          <td width="15%" align="right" height="30"><b>支持HTML：</b></td>

          <td width="85%" height="30"><input type=checkbox name="htmlable" value="yes"> 选择后文章全部支持HTML语法，UBB语法将没有任何作用</td>

        </tr>

      </table>

      </td>

    </tr>

  </table>

  </center></div><div align="center"><center><p><input type="submit" value=" 添 加 "

  name="cmdok" class="buttonface">&nbsp; <input type="reset" value=" 清 除 "

  name="cmdcancel" class="buttonface"></p>

  </center></div>

</form>

</body>

</html>

本文选自计算机毕业设计http://myeducs.cn
论文文章部分只是部分简介，如需了解更多详情请咨询本站客服！QQ3710167