📄 compactinfo.asp

📁 又一套oa 系统,供大家使用学习,更多的源代码正在上传中,好的程序应该大家共同使用
💻 ASP
字号:
<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"-->
<%action=request("action"):WS_Uid=request("WS_Uid")
if (WS_Uid<>"" and not isnumeric(WS_Uid)) or WS_Uid="" or isnull(WS_Uid) then  HX_GoBack "参数错误",""
ColumnName="":Tablename="HX_compactinfo":Orderby=" where WS_Uid="&WS_Uid
if action="" then Orderby=Orderby&" and WS_state in (select WS_Tid from HX_bargaintype where WS_bargaintypename='劳务合同')"
set rs=WS_S.HX_SetRSD(ColumnName,Tablename,Orderby)
if action="addcompact" then
rs.addnew:rs("WS_statetime")=request("byys")&"-"&request("bmms")&"-"&request("bdds"):rs("WS_overtime")=request("byyo")&"-"&request("bmmo")&"-"&request("bddo"):rs("WS_register")=request("byy")&"-"&request("bmm")&"-"&request("bdd")
rs("WS_state")=request("WS_state"):rs("WS_brief")=request("WS_brief"):rs("WS_notice")=request("WS_notice"):rs("WS_Annex")=request("WS_Annex"):rs("WS_Uid")=WS_Uid:rs.update 
end if
response.Write "<head><title>合同信息</title><link rel=stylesheet type=text/css href='../HXinclude/HX_Style.css'><meta http-equiv='Content-Type' content='text/html; charset=gb2312'></head><body topmargin='20' leftmargin='0' bottommargin='20'><table width='609'  border='0' cellspacing='1' cellpadding='0' align=center bgcolor='#115F8F'><tr><td width='609' colspan='2' bgcolor=ffffff><table width='609'  border='0' cellspacing='0' cellpadding='0'><tr><td width='609' height='25' background='../hximages/titleline.gif'><font class='fontmenu'>合同信息</font></td></tr></table><table width='100%' cellspacing cellpadding><tr><td width='100%'><table width='100%' border='0' cellspacing='1' cellpadding='0' bgcolor='#CCCCCC' height='100%'>"
select case action
case "add"
 response.Write "<tr><td bgcolor=ffffff><table width='100%' border='0' cellpadding='3' cellspacing='1' bgcolor=A1BBE0><form action='compactinfo.asp' name='form1' method='post'><tr bgcolor='#FFFFFF'><td width='80' bgcolor='#f1f1f1'>合同开始日期</td><td width='195'><select name='byys'>"
  for i=year(date)-30 to year(date)+10
   response.Write "<option value='"&i&"'"
   if i=year(date) then response.Write " selected"
   response.Write ">"&i&"</option>"
   next
   response.Write "</select>年 <select name='bmms'>"
   for i=1 to 12
    response.Write "<option value='"&i&"'"
	if i=1 then response.Write " selected"
	response.Write ">"&i&"</option>"
   next
	  response.Write "</select>月 <select name='bdds'>"
      for i=1 to 31
       response.Write "<option value='"&i&"'"
       if i=1 then response.Write " selected"
	   response.Write ">"&i&"</option>"
     next
	 response.Write "</select>日</td><td width='80' bgcolor='#f1f1f1'>合同结束日期</td><td><select name='byyo'>"
	 for i=year(date)-20 to year(date)+20
	 response.Write "<option value='"&i&"'"
	  if i=year(date)+1 then response.Write " selected"
	  response.Write ">"&i&"</option>"
	 next
	 response.Write "</select>年<select name='bmmo'>"
	 for i=1 to 12
	  response.Write "<option value='"&i&"'"
	  if i=1 then response.Write " selected"
	  response.Write ">"&i&"</option>"
	 next
	 response.Write "</select>月<select name='bddo'>"
	 for i=1 to 31
	   response.Write "<option value='"&i&"'"
	  if i=1 then response.Write " selected"
	   response.Write ">"&i&"</option>"
	 next
	 response.Write "</select>日</td></tr><tr><td width='80' bgcolor='#f1f1f1'>签订时间</td><td colspan='3' bgcolor='#FFFFFF'><select name='byy'>"
	 for i=year(date)-20 to year(date)+20
	  response.Write "<option value='"&i&"'"
	    if i=year(date) then response.Write " selected"
		response.Write ">"&i&"</option>"
	 next
	 response.Write "</select>年 <select name='bmm'>"
	 for i=1 to 12
	  response.Write "<option value='"&i&"'"
	   if i=month(date) then response.Write " selected"
	   response.Write ">"&i&"</option>"
	 next
	 response.Write "</select>月 <select name='bdd'>"
     for i=1 to 31
		response.Write "<option value='"&i&"'"
		if i=1 then response.Write " selected"
		response.Write ">"&i&"</option>"
	next
	response.Write "</select> 日</td></tr><tr><td width='80' bgcolor='#f1f1f1'>合同类别</td><td colspan='3' bgcolor='#FFFFFF'><select name='WS_state1' disabled>"
	set strs=WS_S.HX_SetRSD("","HX_bargaintype"," where WS_bargaintypename='劳务合同' order by WS_OrderBy asc")
	if strs.recordcount<=0 then	
	strs.addnew:strs("WS_bargaintypename")="劳务合同":strs("WS_OrderBy")=1:strs.update
	end if
	response.Write "<option value='"&strs("WS_Tid")&"'>"&strs("WS_bargaintypename")&"</option></select><input type='hidden' name='WS_state' value='"&strs("WS_Tid")&"'>"
	WS_S.HX_RSClose strs 
	response.Write "</td></tr><tr><td width='80' bgcolor='#f1f1f1'>合同附件</td><td colspan='3' bgcolor='#FFFFFF'><input type='text' name='WS_Annex' maxlength='200' size='40'>&nbsp;&nbsp;<input type='button' name='Submit2' value='上传附件' onClick=""window.open('UpUserAnnex.asp?editname=WS_Annex','','status=no,scrollbars=no,top=20,left=110,width=420,height=165')""></td></tr><tr><td width='80' bgcolor='#f1f1f1'>特别条款</td><td colspan='3' bgcolor='#FFFFFF'><input type='text' name='WS_notice' maxlength='200' size='40'>&nbsp;</td></tr><tr><td width='80' bgcolor='#f1f1f1'>备注</td><td colspan='3' bgcolor='#FFFFFF'><textarea name='WS_brief' cols='40' rows='5'></textarea>&nbsp;</td></tr><tr align='right' bgcolor='#FFFFFF'><td colspan='4'><input type='submit' name='提交' value='添加合同信息'><input type='hidden' name='action' value='addcompact'><input type='hidden' name='WS_Uid' value='"&WS_Uid&"'></td></tr></form></table></td></tr>"
case else
	if rs.recordcount<=0 then
	  response.Write "<tr><td height='27' bgcolor=ffffff>&nbsp;暂无该员工合同信息，您要<a href='compactinfo.asp?action=add&WS_Uid="&WS_Uid&"'><font color=red>添加</font></a>吗？</td></tr>"
	else
	  response.Write "<tr><td bgcolor=ffffff><table width='100%' border='0' cellpadding='3' cellspacing='1' bgcolor=A1BBE0><tr bgcolor='#FFFFFF'><td width='80' bgcolor='#f1f1f1'>合同开始日期</td><td width='195'>"&WS_S.Format_Time(rs("WS_statetime"),5)&"</td><td width='80' bgcolor='#f1f1f1'>合同结束日期</td><td>"&WS_S.Format_Time(rs("WS_overtime"),5)&"</td></tr><tr><td width='80' bgcolor='#f1f1f1'>签订时间</td><td colspan='3' bgcolor='#FFFFFF'>"&WS_S.Format_Time(rs("WS_register"),5)&"</td></tr><tr><td width='80' bgcolor='#f1f1f1'>合同类别</td><td colspan='3' bgcolor='#FFFFFF'>"
	  set strs=WS_S.HX_SetRSD("","HX_bargaintype"," where WS_Tid="&rs("WS_state")):if strs.recordcount>0 then:response.Write strs("WS_bargaintypename"):end if:WS_S.HX_RSClose strs 
	  response.Write "</td></tr><tr><td width='80' bgcolor='#f1f1f1'>合同附件</td><td colspan='3' bgcolor='#FFFFFF'>"
	  if rs("WS_Annex")<>"" then  response.write "<a href='"&rs("WS_Annex")&"' target='_blank'>"&rs("WS_Annex")&"</a>" else response.write "无"
      response.Write "</td></tr><tr><td width='80' bgcolor='#f1f1f1'>特别条款</td><td colspan='3' bgcolor='#FFFFFF'>"&rs("WS_notice")&"</td></tr><tr><td width='80' bgcolor='#f1f1f1'>备注</td><td colspan='3' bgcolor='#FFFFFF'>"&rs("WS_brief")&"</td></tr></table></td></tr><tr bgcolor='#f1f1f1'><td height='2' align=right><input type='button' name='WS_Submit23' value='合同信息' onClick=""javascript:location.href='compactinfo.asp?WS_Uid="&WS_Uid&"';"">&nbsp;<input type='button' name='WS_Submit2' value='工资信息' onclick=""javascript:location.href='wagelist.asp?WS_Uid="&WS_Uid&"';"">&nbsp;<input type='button' name='WS_Submit22' value=' 修 改 ' onClick=""javascript:location.href='domodify.asp?WS_Uid="&WS_Uid&"';"">&nbsp;<input type='button' name='WS_Submit2' value=' 返 回 ' onclick=""javascript:history.go(-1);"">&nbsp;<input type='button' name='WS_Submit2' value=' 打 印 ' onclick=""javascript:print();""></td></tr>"
	end if
end select
response.Write "</table></td></tr></table></td></tr></table>"%>
💿 文件大小 2964 K
👤 上传用户 hufei108
📂 所属分类 OA系统
🏷️ 相关标签

#家 #源代码 #正
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -