论文首页哲学论文经济论文法学论文教育论文文学论文历史论文理学论文工学论文医学论文管理论文艺术论文 |
end if
conn.execute(SQL)
%>
4.2.2 信息模块公共信息模块提供公司最新动态、工作计划的发布与、客户电话和常用网址及邮编区号的查询,以便提高工作效率。
1.公司动态子模块设计
所有用户可以在页面newsinfo.asp查看公司动态,但只有公司领导和系统管理员具有动态发布、修改、删除的管理权限。
(1) 动态查看界面如图4.8所示。选中可以查看动态具体内容。
图4.8 动态查看界面
用户查看公司动态的部分实现代码如下:
<%set rs=server.createobject("adodb.recordset")
rs.open"select * from news order by adddate desc",conn,1,1
if rs.recordcount=0 then %>
<table width="100%" cellpadding="2" cellspacing="1" class="border" align="center">
<tr><td align=center>暂无动态信息</td> </tr>
</table>
〈%else
rs.PageSize =20 '每页记录条数
iCount=rs.RecordCount '记录总数
iPageSize=rs.PageSize
maxpage=rs.PageCount
page=request("page")
if Not IsNumeric(page) or page="" then
page=1
else
page=cint(page)
end if
if page<1 then
page=1
elseif page>maxpage then
page=maxpage
end if
rs.AbsolutePage=Page
if page=maxpage then
x=iCount-(maxpage-1)*iPageSize
else
x=iPageSize
end if%>
(2) 动态发布界面如图4.9所示。其中添加动态主题、发布人,另外也可以对动态内容进行格式编辑。
图4.9 动态发布界面
公司领导和系统管理员可以在页面addnews.asp中发布公司最新动态,其实现代码如下:
<%if request.QueryString("action")="save" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from news",conn,1,3
rs.addnew
rs("newsname")=trim(request("newsname"))
rs("addname")=trim(request("addname"))
Content=Request.Form("Content")
'将里面的链接换地链接
aa="http://"&Request.ServerVariables("server_name")&Request.ServerVariables("path_info")
aa= mid(aa,1,len(aa)-17) '16=ggxx/addnews.asp
content=replace(content,aa,"")
session("content")=content
rs("newscontent")=content
rs("adddate")=now()
rs("viewcount")=0
rs.update
rs.close
set rs=nothing
session("content")=""
response.write "<script language=javascript>
alert('添加成功!');window.location.href='editnews.asp';</script>"
response.End
end if
%>
(3) 动态管理界面如图4.10所示。
图4.10 动态管理界面
公司领导和系统管理员在页面editnews.asp中删除公司动态信息。修改动态信息的内容,直接选中动态标题进入动态修改页面newsedit.asp。
2.工作计划子模块的设计
所有用户可以在gzjhinfo.asp页面中查看工作计划,在页面gzjhedit.asp中添加个人工作计划限,但只有公司领导和系统管理员具有动态发布、修改、删除的管理权限。
(1) 工作计划查看界面如图4.11所示。选择标题可以查看工作计划详细内容。
图4.11 工作计划查看界面
(2) 工作计划发布界面如图4.12所示。工作计划发布界面与动态发布界面相类似,同样可以进行格式编辑。
图4.12 工作计划发布界面
公司领导和系统管理员可以在页面addgzjhs.asp中发布工作计划,其实现过程及实现代码与公司动态发布的实现过程及代码相类似。
(3) 工作计划管理界面如图4.13所示。公司领导和系统管理员在页面editgzjh.asp中可以删除工作计划,选中工作计划标题进入计划修改页面gzjhedit.asp。
图4.13 工作计划管理界面
3.客户电话子模块的设计
(1) 客户电话查看、管理界面如图4.14所示。
图4.14 客户电话管理界面
所有用户可以在页面cydh.asp中查看客户电话,但只有公司领导和系统管理员具有添加、修改、删除的管理权限。
(2) 领导和管理员可以在页面admin_cydh.asp中添加和修改客户电话。其中,实现添加、修改和删除实现代码如下:
<%dim action,id
id=request.QueryString("id")
action=request.QueryString("action")
select case action
case "add"‘添加新的客户电话
set rs=server.CreateObject("adodb.recordset")
rs.Open "select * from tel",conn,1,3
rs.AddNew
rs("gstel")=trim(request("gstel1"))
rs("gsname")=trim(request("gsname1"))
rs("khtel")=trim(request("khtel1"))
rs("khname")=trim(request("khname1"))
rs("idorder")=int(request("idorder1"))
rs.Update
rs.Close
set rs=nothing
response.Redirect "admin_cydh.asp"
case "edit"‘修改客户电话
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from tel where id="&id,conn,1,3
rs("gstel")=trim(request("gstel"))
rs("gsname")=trim(request("gsname"))
rs("khtel")=trim(request("khtel"))
rs("khname")=trim(requ
[10]