📄 addcontract.asp
字号:
<% option explicit%>
<!-- #include virtual="include/MyFunc.asp" -->
<!-- #include virtual="include/DataEnvi.asp" -->
<!-- #include virtual="Include/Page.asp" -->
<body leftmargin="0" topmargin="0"><table id=MoreInfo class=Ltable cellspacing=1 cellpadding=3>
<tr>
<%
dim ObjDB,ConCode,Operation
Operation=Request.QueryString("Operation")
ConCode= Request.QueryString("IDs")
Set ObjDB = Server.CreateObject("ADODB.Connection")
OpenDBH ObjDB
dim StrSQLA,ObjRSA
StrSQLA = "Select ID,AddBegDate,AddEndDate From T_Hrms_employees_AddContract Where ConCode='"&ConCode&"' Order by ID desc"
Set ObjRSA = ObjDB.Execute(StrSQLA)
If ObjRSA.EOF Then
Response.Write "<body background='../../../images/bg_1.gif'><table border=0 height='100%' width='100%'><tr><td valign=middle align=center>你还没有续签过合同呢！！！！<td></tr></table></body>"
'Response.End
ELSE
%>
<table width="270" cellpadding=3 cellspacing=1 class=Ltable >
<tr class=LHtr>
<td width=2%> </td>
<td width=6%></td>
<td width=30%>续签合同开始日期</td>
<td width=30%>续签合同结束日期</td>
<td width=10%>删除</td>
</tr>
<%
do WHILE NOT ObjRSA.EOF
%>
<tr class=Ltr name=ITEMTR id=<%=ObjRSA("ID")%>>
<td> </td>
<td><img src="../../../Images/OA/Private/Data/2.gif" width="16" height="16">
</td>
<td><%=ObjRSA("AddBegDate")%></td>
<td><%=ObjRSA("AddEndDate")%></td>
<%if Operation="" then%>
<td><a href=Adddelete.asp?IDs=<%=ObjRSA("ID")%>&AddID=<%=ConCode%> >删除</a></td>
<%
else%>
<td>删除</td>
<%end if%>
</tr>
<%
ObjRSA.movenext
loop
END IF
ObjRSA.close
set ObjRSA=nothing
objDB.close
set ObjDB=nothing
%>
</table>
<p>
<input name="button" type="submit" class=Button id="button" value="关 闭" onClick="window.close();">
</p>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -