x_yewu.asp

人事管理系统。。。 包括了所有的基本功能

<!--#include file="x_top.asp" -->
<% 		if sqlkai=1 then
acsql_qb="d"
		else
		acsql_qb="'d'"
		end if
'检测权限组和上级是否设置了业务类，没有业务类就T，yewu1就是自己的业务类
		set qrs= Server.CreateObject("adodb.recordset")
		qrs.open ("select * from nnt_quan where q_id="&sesszhiwei&" or q_id="&sessji&""),conn,1,1
		if qrs.eof then call cnerror("没有查询到您的权限，请重新登陆！",0)
		for yl=1 to int(qrs.recordcount)
		if qrs("q_id")=int(sesszhiwei) then yewu1=qrs("q_ylei")
		if qrs("q_id")=int(sessji) then yewu2=qrs("q_ylei")
		qrs.movenext
		next
		qrs.close
		if yewu1="" then
		if yewu2<>"" then
		yewu1=yewu2
		else
		'Response.Write(yewu2)
		call cnerror("没有查询到您的权限，您的职位没有开通此功能，请联系上级！",0)
		end if
		end if 
		
select case sessquan
case 0
selectquan="and y_user='"&sessname&"'"
case 1
'获得自己部门的所有职位
set rs= Server.CreateObject("adodb.recordset")
rs.open ("select * from nnt_quan where q_lei='"&sessji&"'"),conn,1,1
for qd=1 to int(rs.recordcount)
jingliquan=jingliquan&rs("q_id")&","
rs.movenext
next
rs.close
set rs=nothing
selectquan="and y_zuid in ("&jingliquan&")"
case else
selectquan=""
end select  %>
<table width="100%" height="282" border="0" cellpadding="0" cellspacing="0">
  <tr>
    <td width="200" valign="top">
	<%call zuo_kuaijie("业务中心管理面板","业务中心首页,?||提交新业务,?chuli=addnew||当月业务列表,?chuli=listyewu&ytime=0||最近三月业务列表,?chuli=listyewu&ytime=3||最近六月业务列表,?chuli=listyewu&ytime=6||所有业务列表,?chuli=listyewu")  %>
	</td>
    <td valign="top"><table width="95%" border="0" align="center" cellpadding="0" cellspacing="0">
      <tr>
        <td colspan="3"><div id="comlist"></div></td>
      </tr>
      <tr>
        <td width="1%"><img src="skins/list/l1.gif" width="7" height="9" /></td>
        <td width="98%" background="skins/list/l2.gif"></td>
        <td width="1%"><img src="skins/list/l8.gif" width="8" height="9" /></td>
      </tr>
      <tr>
        <td background="skins/list/l3.gif">&nbsp;</td>
        <td height="400" valign="top">
		<% select case Trim(Request.QueryString("chuli"))
		case "addnew"
		lid=Trim(Request.QueryString("lid"))
		'读要修改的信息
		editid=Trim(Request.QueryString("editid"))
		see=Trim(Request.QueryString("see"))
		if editid<>"" then
		qrs.open ("select * from nnt_yewu where y_id="&editid&" "&selectquan&""),conn,1,1
		if qrs.eof then call cnerror("没有查询到您要修改的业务，请返回重新选择。",1)
		duyzhuti=qrs("y_zhuti")
		dumoney=qrs("y_money")
		dutime=qrs("y_time")
		dustime=qrs("y_stime")
		dukehuid=qrs("y_kehuid")
		duuserkehu=split(qrs("y_user_kehu"),"||")
		dukehu=duuserkehu(1)
		duzhuangtai=qrs("y_zhuangtai")
		dubjie=split(qrs("y_bjie"),"[||@@||]")
		duxiangxi=dubjie(1)
		yewuxuan=dubjie(0)
		lid=qrs("y_lei")
		qrs.close
		end if
		'读业务类
		
		qrs.open ("select * from nnt_ylei where y_id in ("&replace(yewu1,"|","")&")"),conn,1,1
		if qrs.eof then call cnerror("您的业务类读取错误，请联系上级修复设置。",0)
		for qy=1 to int(qrs.recordcount)
		comlist=comlist&"||"&qrs("y_name")&",?chuli=addnew&l="&qy&"&lid="&qrs("y_id")&""
		if lid="" then lid=qrs("y_id")
		qrs.movenext
		next
		qrs.close
		qrs.open ("select * from nnt_ylei where y_id="&lid&""),conn,1,1
		if yewuxuan="" then yewuxuan=qrs("y_xuan")
		qrs.close
		set qrs=nothing
		l=Trim(Request.QueryString("l"))
		if l="" then l=1
		if editid<>"" then
		if duzhuangtai<2 then
		call listsub("comlist","返回列表,x_yewu.asp?chuli=listyewu||修改业务,?chuli=addnew&editid="&editid&"&l=1||查看业务,?chuli=addnew&editid="&editid&"&see=yes&l=2",int(l))
		else
		call listsub("comlist","返回列表,x_yewu.asp?chuli=listyewu",int(l))
		end if
		else
		call listsub("comlist",comlist,int(l))
		end if
		if see="yes" then %>
		<table width="100%" border="0" cellspacing="0" cellpadding="4">
  <tr>
    <td colspan="5"  class='td_heng'><b>业务基本信息</b> 
	<% select case duzhuangtai
			case 0
			Response.Write("<font color=#FFC20B>待审</font>")
			if sessquan>0 then
			keyongcaozuo=" <a href='?chuli=addnew&editid="&editid&"&l=2'><img src='skins/sb/feedicon_024.png' />修改</a>  <a href='c_yewu.asp?chuli=okyewu&editid="&editid&"&cl=2'><img src='skins/sb/feedicon_027.png' />通过</a> <a href='c_yewu.asp?chuli=okyewu&editid="&editid&"&cl=1'><img src='skins/sb/feedicon_034.png' />未通过</a> "
			else
			keyongcaozuo=" <a href='?chuli=addnew&editid="&editid&"&l=2'><img src='skins/sb/feedicon_024.png' />修改</a> "
			end if
			case 1
			Response.Write("<font color=#FF3300>未通过</font>")
			keyongcaozuo=" <a href='?chuli=addnew&editid="&editid&"&l=2'><img src='skins/sb/feedicon_024.png' />修改</a>  <a href='c_yewu.asp?chuli=nextyewu&editid="&editid&"'><img src='skins/sb/feedicon_028.png' />再次提交</a>  "
			case 2
			Response.Write("<font color=#009933>完成</font> ")
			'keyongcaozuo=" <a href='?chuli=addnew&editid="&editid&"&see=yes&l=2'><img src='skins/sb/feedicon_024.png' />修改</a>"
			if sessquan>2 then keyongcaozuo=keyongcaozuo&"<a href='c_yewu.asp?chuli=zuofei&editid="&editid&"'><img src='skins/sb/feedicon_023.png'/>作废</a>  <a href='?chuli=addnew&editid="&editid&"&l=2'><img src='skins/sb/feedicon_024.png' />修改</a>"
			end select
			 %></td>
  </tr>
  <tr>
    <td width="14%">业务名称：</td>
    <td colspan="3"><b><%=duyzhuti%>&nbsp;</b></td>
    <td width="28%" rowspan="3" valign="top"><%= keyongcaozuo %>
	</td>
  </tr>
  <tr>
    <td>涉及金额：</td>
    <td width="19%">
	<% if dumoney>0 then %>
			  <font color="#FF3300"><%= FormatCurrency(dumoney) %> </font>
			  <% ElseIF dumoney<0 then%>
			  <font color="#006600"><%= FormatCurrency(dumoney) %> </font>
			<% end if %></td>
    <td width="12%">更新时间：</td>
    <td width="27%"><%= dustime %></td>
  </tr>
  <tr>
    <td>提交人：</td>
    <td><%= request.cookies("q_"&sesszhiwei)("qname") %>,<%= sesszname %>&nbsp;</td>
    <td>提交时间：</td>
    <td><%= dutime %></td>
  </tr>
    <tr>
    <td valign="top">所属客户：</td>
    <td colspan="4"><% if dukehuid=0 then
	Response.Write(" 无客户信息")
	else
	Response.Write("<a href='x_kehu.asp?chuli=addkehu&look=yes&editid="&dukehuid&"' target='_blank'>"&dukehu&"</a>")
	end if %></td>
  </tr>
  <tr>
    <td valign="top">其他记录：</td>
    <td colspan="4"><% y_xuans=split(yewuxuan,"[|@|]")
		  for yf=1 to ubound(y_xuans)
		  if y_xuans(yf)<>"" then
		  xuansx=split(y_xuans(yf),"||")
		  Response.Write(xuansx(0)&"："&xuansx(2)&" ，")
		  end if
		  next %></td>
  </tr>
  <tr>
    <td colspan="5" class='td_heng'>业务详细介绍</td>
    </tr>
  <tr>
    <td colspan="5"><%= duxiangxi %></td>
    </tr>
</table>

		<% Else %>
		<table width="100%" border="0" cellspacing="0" cellpadding="4">
          <form id="form" name="form" method="post" action="c_yewu.asp?chuli=addyewu&editid=<%= editid %>" onSubmit="return CheckForm(this);"><tr>
            <td colspan="2"  class='td_heng'><b>新业务提交</b></td>
            </tr>
          <tr>
            <td width="22%" align="right">新业务名称：</td>
            <td width="78%"><input name="y_zhuti" type="text" class="nnt_input" id="y_zhuti" value="<%=duyzhuti%>" size="60" /></td>
          </tr><tr>
            <td align="right">提交人：</td>
            <td><b><%= request.cookies("q_"&sesszhiwei)("qname") %>,<%= sesszname %>&nbsp;</b></td>
          </tr>
          
          <tr>
            <td align="right">新业务金额：</td>
            <td><input name="y_money" type="text" class="nnt_input" id="y_money" value="<%= 0+dumoney %>" size="8" />
            元</td>
          </tr>
          <tr>
            <td align="right">所属客户：</td>
            <td><input name="y_kehu" type="text" class="nnt_input" id="y_kehu" value="<%= dukehu %>" onpropertychange="dukehu()" />
              <input name="y_kehuid" type="hidden" id="y_kehuid"  value="<%= dukehuid %>" />
			<div id="kehulist" style="border:solid 1px #FFB468; position:absolute; padding:5px; width:250px; background-color: #FFEFD7;">输入关键字，自动查找客户</div></td>
			<script id="yanzhengto" src=""></script>
			<script language="JavaScript" type="text/javascript">
		function dukehu(){
document.all('yanzhengto').src="c_kehu.asp?chuli=yanzhengto&kname="+form.y_kehu.value
}
</script>

          </tr>
		  <% yf=0
		  if yewuxuan<>"" then
		  y_xuans=split(yewuxuan,"[|@|]")
		  for yf=1 to ubound(y_xuans)
		  if y_xuans(yf)<>"" then
		  xuansx=split(y_xuans(yf),"||")
		  if len(xuansx(2))>15 then xuansx(1)=1 %>
		  <tr>
            <td align="right"><input type="hidden" name="yxuan_n_<%= yf %>" value="<%= xuansx(0) %>" />
              <%= xuansx(0) %>：</td>
            <td>
			<% select case xuansx(1) 
			case "0" %>
			<input name="yxuan_<%= yf %>" type="text" class="nnt_input" id="yxuan_<%= yf %>" value="<%= xuansx(2) %>" />
			<% case "1" %>
			<textarea name="yxuan_<%= yf %>" id="yxuan_<%= yf %>" cols="60" rows="5"></textarea>
			<% case "2" 
			duoxuan=split(xuansx(2),"/")
			for dx=0 to ubound(duoxuan)%>
			<input type="radio" name="yxuan_<%= yf %>" value="<%= duoxuan(dx) %>" /><%= duoxuan(dx) %>
			<% next
			case "3" 
			duoxuan=split(xuansx(2),"/")
			for dx=0 to ubound(duoxuan)%>
			<input type="checkbox" name="yxuan_<%= yf %>" value="<%= duoxuan(dx) %>" /><%= duoxuan(dx) %>
			<% next
			 end select %></td>
          </tr>
		  <% end if
		  next
		   End If %>
          <tr>
            <td align="right" valign="top"><input name="lid" type="hidden" id="lid" value="<%= lid %>" />
              <input type="hidden" name="zongshu" value="<%= yf %>" />
              业务详细介绍：</td>
            <td><textarea name="content" style="display:none"><%= duxiangxi %></textarea>
	  <div style="width:400px; height:300px;"><SCRIPT src="fun/Post.js"></SCRIPT></div></td>
          </tr>
          <tr>
            <td align="right">&nbsp;</td>
            <td><input name="Submit" type="submit" class="nnt_submit" value="提交" /></td>
          </tr>
          <tr>
            <td align="right">&nbsp;</td>
            <td>&nbsp;</td>
          </tr>
          <tr>
            <td>&nbsp;</td>
            <td>&nbsp;</td>
          </tr></form>
        </table>
		<% end if
		case "listyewu"
		ytime=Trim(Request.QueryString("ytime"))