📄 plan.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<!--#include file="Connections/conn.asp" -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title>员工计划与总结</title>
<style type="text/css">
<!--
.STYLE1 {font-size: 12px}
.STYLE2 {font-size: 14px}
.STYLE3 {font-size: 12}
-->
</style>
</head>
<%
Rem Session("CRM_account") 用户帐号
Rem Session("CRM_name") 用户名
Rem Session("CRM_level") 用户等级
if Session("CRM_account")="" or Session("CRM_name")="" or Session("CRM_level")="" then
response.Redirect("login.asp")
end if
%>
<script language="javascript">
function check()
{
if (document.form1.info.value=="")
{
alert("对不起，月末总结不能为空!");
return false;
}
if (document.form1.plan.value=="")
{
alert("对不起，计划不能为空!");
return false;
}
}
</script>
<%
del=request.QueryString("del")
if del="true" then
id=request.QueryString("id")
conn.execute("delete from plan_info where id="&id)
id=""
del=""
end if
%>
<body style="background-color: menu;" >
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0" >
<tr id="oHead" style="display: block;">
<td height="1" valign="top">
<table width="778" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="5"><img src="images/null.gif" width="1" height="1"></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0" bgcolor="menu">
<tr>
<td align="left" background='images/tab_top_background_runner.gif'> <table width="5" border="0" align="left" cellpadding="0" cellspacing="0">
<tr>
<td><img src="images/null.gif" width="1" height="1"></td>
</tr>
</table>
<table onClick="window.location.replace('listAll.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
<tr >
<td><img src="images/tab_on_left.gif" width="16" height="24"></td>
<td background="images/tab_on_middle.gif"><span class="STYLE1">查看所有数据</span></td>
<td><img src="images/tab_on_right.gif" width="16" height="24"></td>
</tr>
</table>
<table onClick="window.location.replace('addData.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif"><span class="STYLE1">添加数据</span></td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table>
<table onClick="window.location.replace('advanceSearch.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif"><span class="STYLE1">高级搜索</span></td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table>
<table onClick="window.location.replace('dataForm.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif"><span class="STYLE1">数据报表</span></td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table>
<table onClick="window.location.replace('exportData.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif"><span class="STYLE1">数据导出</span></td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table>
<table onClick="window.location.replace('question.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif"><span class="STYLE1">问题集</span></td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table>
<table onClick="window.location.replace('plan.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif"><span class="STYLE1">计划与总结</span></td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table>
<% If Session("CRM_level") = 9 Then %>
<table onClick="window.location.replace('transData.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif"><span class="STYLE1">数据转移</span></td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table>
<table onClick="window.location.replace('manageUser.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif"><span class="STYLE1">用户管理</span></td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table>
<table onClick="window.location.replace('system_level.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="left">
<tr>
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif"><span class="STYLE1">系统设置</span></td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table>
<% End If %>
<table onClick="window.location.replace('logout.asp')" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="right">
<tr>
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif"><span class="STYLE1">注销</span></td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table>
<table onClick="window.location.reload();" style="cursor: hand;" border="0" cellspacing="0" cellpadding="0" align="right">
<tr>
<td><img src="images/tab_off_left.gif" width="16" height="24"></td>
<td background="images/tab_off_middle.gif"><span class="STYLE1">刷新</span></td>
<td><img src="images/tab_off_right.gif" width="16" height="24"></td>
</tr>
</table></td>
</tr>
</table>
<table width="760" border="0" align="center">
<tr>
<td> </td>
</tr>
<tr>
<td> </td>
</tr>
<tr>
<td><%if Session("CRM_level")>1 then%><div align="right"><a href="plan.asp?check=<%="yes"%>" class="STYLE1">查看下属计划与总结</a></div><div align="left"><a href="#" class="STYLE1" onclick="history.go(-1)">返回</a><div>
<%end if%></td>
</tr>
</table>
<%
set rs=server.CreateObject("adodb.recordset")
check=request.QueryString("check")
if check="yes" then
sql=""
rs.open "select * from plan_info where level<'"&Session("CRM_level")&"'",conn,3,1
else
sql=""
sql=" where username='"&session("CRM_name")&"' "
rs.open "select * from plan_info "&sql,conn,3,1
sql=""
check=""
end if
%>
<%
if rs.recordcount>0 then
dim num,pagenum,page,lablenum
rs.pagesize=10
num=rs.recordcount
pagenum=rs.pagecount
page=request("page")
if page<>"" then
page=cint(page)
if err.number<>0 then
err.clear
page=1
end if
if page<1 then
page=1
end if
else
page=1
end if
if page*rs.pagesize > num and not((page-1)*rs.pagesize < num)then
page=1
end if
rs.absolutepage = page
i=0
%>
<% do while not rs.eof%>
<table width="760" border="1" align="center" cellspacing="0" bordercolor="#CCCCCC">
<tr>
<td width="245"><span class="STYLE2"></span></td>
<td width="511"><div align="center" class="STYLE2">
<div align="center">主要内容</div><%if Session("CRM_level")=9 then%><div align="right"><a href="plan.asp?del=true&id=<%=rs("id")%>">删除</a></div><%end if%>
</div></td>
</tr>
<tr>
<td><span class="STYLE2">编号：<%=rs("id")%></span></td>
<td rowspan="3"><span class="STYLE2"><%=rs("info")&"<br><br><br><br>"&rs("plan")%></span></td>
</tr>
<tr>
<td><span class="STYLE2">员工姓名：<%=rs("username")%></span></td>
</tr>
<tr>
<td><span class="STYLE2">填写的时间:<%=rs("addtime")%></span></td>
</tr>
</table>
<br>
<%
i=i+1
if i>=rs.pagesize then Exit do
rs.movenext
loop
rs.close
end if
%>
<!--当前页的记录显示结束，以下代码为记录集分页链接代码-->
<table width="760" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td height="35">
<div align="right" class="STYLE1">
<font color="#333333">
共有 <%=num%> 个问题 |
<a href=plan.asp?page=1>首页</a> |
<%if page>1 then%><a href=plan.asp?page=<%=page-1%>><%end if%>上一页</a> |
<%if page<pagenum then%><a href=plan.asp?page=<%=page+1%>><%end if%>下一页</a> |
<a href=plan.asp?page=<%=pagenum%>>尾页</a> |
页次:<%=page%>/<%=pagenum%>页 |
共<%=pagenum%>页</font></div></td>
</tr>
</table>
<!--记录集分页链接代码结束，记录集为空时执行以下代码-->
<p> </p>
<hr width="760" />
<%
action=request.QueryString("action")
if action="new" then
set rs=server.CreateObject("adodb.recordset")
rs.open "select * from plan_info ",conn,1,3
rs.addnew
rs("username")=session("CRM_name")
rs("level")=Session("CRM_level")
rs("plan")=request.Form("plantop")&"<br>"&request.Form("plan")
rs("info")=request.Form("infotop")&"<br>"&request.Form("info")
rs("addtime")=now()
rs.update
rs.close
response.Redirect("plan.asp")
end if
%>
<form id="form1" name="form1" method="post" action="plan.asp?action=new " onsubmit="return check();">
<table width="760" border="0" align="center">
<tr>
<td width="248" rowspan="5" class="STYLE1"><table width="99%" border="0" align="left">
<tr>
<td width="33%" class="STYLE1">员工姓名：</td>
<td width="67%" class="STYLE1"><span class="STYLE3">
<label class="STYLE1">
<input name="username" type="text" id="username" value="<%=session("CRM_name")%>" readonly="true">
</label>
</span></td>
</tr>
<tr>
<td class="STYLE1">用户等级：</td>
<td class="STYLE1"><span class="STYLE3">
<label class="STYLE1">
<input name="level" type="text" id="level" value="<%=Session("CRM_level")%>" readonly="true">
</label>
</span></td>
</tr>
</table>
<div align="center" class="STYLE3"></div></td>
<td width="502"><div align="center" class="STYLE1">主要内容</div></td>
</tr>
<tr>
<td class="STYLE1">总结：</td>
</tr>
<tr>
<td><span class="STYLE1">
<input name="infotop" type="hidden" id="infotop" value="<%=date()&" 以前的总结"%>" />
<textarea name="info" cols="50" rows="6" id="info"></textarea>
</span></td>
</tr>
<tr>
<td class="STYLE1">计划：</td>
</tr>
<tr>
<td><span class="STYLE1">
<input name="plantop" type="hidden" id="plantop" value="<%=date()&" 以后的计划"%>" />
<textarea name="plan" cols="50" rows="6" id="plan"></textarea>
</span></td>
</tr>
<tr>
<td colspan="2" align="center"><label>
<input type="submit" name="Submit" value="提 交" />
<input type="submit" name="Submit2" value="重 置" />
</label></td>
</tr>
</table>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -