?? bargainmanage.asp
字號:
<!--#INCLUDE FILE="../HXINCLUDE/HXINCLUDEHEAD.ASP"--><%WS_M.HX_BargainManage%>
<head>
<title></title>
<link rel=stylesheet type=text/css href="../HXinclude/HX_Style.css">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script src="../HXinclude/HX_function.js"></script>
</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 "edit"
%>
<tr>
<td bgcolor=ffffff><table width="100%" border="0" cellpadding="3" cellspacing="1" bgcolor=A1BBE0>
<form action="bargainmanage.asp" name="form1" method="post">
<tr bgcolor="#FFFFFF">
<td width="80" bgcolor="#f1f1f1">合同開始日期</td>
<td width="195">
<select name="byys">
<%
if rs("WS_statetime")<>"" then
statetimearr=rs("WS_statetime")
else
statetimearr=date
end if
statetimearr=split(statetimearr,"-")
for i=year(date)-30 to year(date)+10%>
<option value="<%=i%>"<%if i=statetimearr(0) then%> selected<%end if%>><%=i%></option>
<%next%>
</select>
年
<select name="bmms">
<%for i=1 to 12%>
<option value="<%=i%>"<%if i=statetimearr(1) then%> selected<%end if%>><%=i%></option>
<%next%>
</select>
月
<select name="bdds">
<%for i=1 to 31%>
<option value="<%=i%>"<%if i=statetimearr(2) then%> selected<%end if%>><%=i%></option>
<%next%>
</select>
日</td>
<td width="80" bgcolor="#f1f1f1">合同結束日期</td>
<td>
<select name="byyo">
<%
if rs("WS_overtime")<>"" then
overtimearr=rs("WS_overtime")
else
overtimearr=date
end if
overtimearr=split(overtimearr,"-")
for i=year(date)-20 to year(date)+20%>
<option value="<%=i%>"<%if i=overtimearr(0) then%> selected<%end if%>><%=i%></option>
<%next%>
</select>
年
<select name="bmmo">
<%for i=1 to 12%>
<option value="<%=i%>"<%if i=overtimearr(1) then%> selected<%end if%>><%=i%></option>
<%next%>
</select>
月
<select name="bddo">
<%for i=1 to 31%>
<option value="<%=i%>"<%if i=overtimearr(2) then%> selected<%end if%>><%=i%></option>
<%next%>
</select>
日</td>
</tr>
<tr>
<td width="80" bgcolor="#f1f1f1">簽訂時間</td>
<td colspan="3" bgcolor="#FFFFFF">
<select name="byy">
<%
if rs("WS_register")<>"" then
registerarr=rs("WS_register")
else
registerarr=date
end if
registerarr=split(registerarr,"-")
for i=year(date)-20 to year(date)+20%>
<option value="<%=i%>"<%if i=registerarr(0) then%> selected<%end if%>><%=i%></option>
<%next%>
</select>
年
<select name="bmm">
<%for i=1 to 12%>
<option value="<%=i%>"<%if i=registerarr(1) then%> selected<%end if%>><%=i%></option>
<%next%>
</select>
月
<select name="bdd">
<%for i=1 to 31%>
<option value="<%=i%>"<%if i=registerarr(2) then%> selected<%end if%>><%=i%></option>
<%next%>
</select>
日</td>
</tr>
<tr>
<td width="80" bgcolor="#f1f1f1">合同類別</td>
<td colspan="3" bgcolor="#FFFFFF">
<select name="WS_state"><%
set strs=WS_S.HX_SetRSD("","HX_bargaintype"," order by WS_OrderBy asc")
if strs.recordcount>0 then
do until strs.eof
%>
<option value="<%=strs("WS_Tid")%>" <%if strs("WS_Tid")=rs("WS_state") then response.write "selected" %>><%=strs("WS_bargaintypename")%></option>
<%
strs.movenext
loop
end if
Call WS_S.HX_RSClose(strs)
%>
</select></td>
</tr>
<tr>
<td bgcolor="#f1f1f1">主要負責人</td>
<td colspan="3" bgcolor="#FFFFFF"><input type="text" name="WS_Name" value="<%set urs=WS_S.HX_SetRSD("","HX_CompanyUser"," where WS_Uid="&rs("WS_Uid")):if urs.recordcount>0 then response.Write urs("WS_name") else response.Write "無"%>" size="20" readonly>
<input type="button" name="Submit" value=" 選 擇 " onclick="openwin(510,500,'../HXInclude/HX_Checkuser.asp')"></td>
</tr>
<tr>
<td width="80" bgcolor="#f1f1f1">合同附件</td>
<td colspan="3" bgcolor="#FFFFFF"><input type="text" name="WS_Annex" maxlength="200" size="40" value="<%=rs("WS_Annex")%>"> <input type="button" name="Submit2" value="上傳附件" onClick="window.open('../HXManpowerResource/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" value="<%=rs("WS_notice")%>">
</td>
</tr>
<tr>
<td width="80" bgcolor="#f1f1f1">備注</td>
<td colspan="3" bgcolor="#FFFFFF">
<textarea name="WS_brief" cols="40" rows="5"><%=rs("WS_brief")%></textarea>
</td>
</tr>
<tr align="right" bgcolor="#FFFFFF">
<td colspan="4">
<input type="submit" name="提交" value="修改合同">
<input type="button" name="WS_Submit2" value=" 返 回 " onclick="javascript:history.go(-1);">
<input type="hidden" name="action" value="editcompactsave">
<input type="hidden" name="WS_Uid" value="<%=rs("WS_Uid")%>">
<input type="hidden" name="WS_id" value="<%=WS_id%>"> </td>
</tr></form>
</table></td>
</tr>
<%
case "view"
%> <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:Call WS_S.HX_RSClose(strs)%></td>
</tr>
<tr>
<td bgcolor="#f1f1f1">主要負責人</td>
<td colspan="3" bgcolor="#FFFFFF"><%set urs=WS_S.HX_SetRSD("","HX_CompanyUser"," where WS_Uid="&rs("WS_Uid")):if urs.recordcount>0 then response.Write "<a style='cursor:hand;' onclick=""openwin(680,600,'../HXManpowerResource/userinfolook.asp?WS_Uid="&urs("WS_Uid")&"')"">"&urs("WS_name")&"</a>" else response.Write "無"%></td>
</tr>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -