📄 expenseapprove_list.asp
字号:
}
}
function GetStrValue()
{
if (form1.strfield.value!="Status"&&form1.strfield.value!="Username"){
form1.strvalue.value=form1.strvalue1.value;
}
if (form1.strfield.value=="Status"){
form1.strvalue.value=form1.strvalue2.value;
}
if (form1.strfield.value=="Username"){
form1.strvalue.value=form1.strvalue3.value;
}
if (form1.strfield.value=='expenseDate'){
if(form1.strvalue.value==""){
alert("请输入搜索日期!");
return false;
}
if(CheckDate(document.form1.strvalue.value)){
alert("请输入正确格式的日期!");
return false;
}
}
form1.submit();
}
</SCRIPT>
<body leftmargin="10" rightmargin="0" topmargin="10">
<form name="form1" method="post" action="expenseapprove_list.asp" onsubmit="return GetStrValue();">
<table width="100%" height="20" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="10%"><select name="strfield" onchange="relativeinput_onchange();">
<option value=expenseNo <%if request("strfield")="expenseNo" then Response.Write "selected"%>>费用编号</option>
<option value=subject <%if request("strfield")="subject" then Response.Write "selected"%>>费用名称</option>
<option value=Status <%if request("strfield")="Status" then Response.Write "selected"%>>费用状态</option>
<option value=Username <%if request("strfield")="Username" then Response.Write "selected"%>>用户</option>
</select></td>
<td width="18%">
<div id=strvalue1 <%if request("strfield")<>"Status" and request("strfield")<>"Username" or request("strfield")="" then response.write "style=display:block" else response.write "style=display:none" end if%>>
<input type="text" name="strvalue1" value="<%=request("strvalue1")%>">
</div>
<div id=strvalue2 <%if request("strfield")="Status" then response.write "style=display:block" else response.write "style=display:none" end if%>>
<select name="strvalue2" class="stedit">
<option value="">--请选择费用状态--</option>
<%getgrouptype selecttablename,"Status",request("strvalue2")%>
</select></div>
<div id=strvalue3 <%if request("strfield")="Username" then response.write "style=display:block" else response.write "style=display:none" end if%>>
<select name="strvalue3" class="stedit">
<option value="">--请选择用户--</option>
<%getgrouptype selecttablename,"Username",request("strvalue3")%>
</select></div>
</td>
<td>
<input type=hidden name="strvalue" value="<%=request("strvalue")%>" >
<input type=image src="../images/button_submit.gif" style="cursor:hand" border=0>
<%
if CurPage<=1 then
Response.Write "<a href='expenseapprove_list.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage=1'><img src='../images/button_start.gif' border=0></a> "
else
Response.Write "<a href='expenseapprove_list.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage=1'><img src='../images/button_start.gif' border=0></a> "
Response.Write "<a href='expenseapprove_list.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&CurPage-1&"'><img src='../images/button_backward.gif' border=0></a> "
end if
if CurPage>=RS.PageCount then
Response.Write "<a href='expenseapprove_list.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&RS.PageCount&"'><img src='../images/button_end.gif' border=0></a>"
else
Response.Write "<a href='expenseapprove_list.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&CurPage+1&"'><img src='../images/button_forward.gif' border=0></a> "
Response.Write "<a href='expenseapprove_list.asp?turnpage=yes&orderby="&session("orderby")&"&orderbyfield="&request("orderbyfield")&"&strvalue="&request("strvalue")&"&strfield="&request("strfield")&"&CurPage="&RS.PageCount&"'><img src='../images/button_end.gif' border=0></a>"
end if
%>
</td><td width=30%><div id=dateformat <%if request("strfield")="expenseDate" then response.write "style=display:block" else response.write "style=display:none" end if%>>日期输入格式提示：YYYY-MM-DD</div></td>
</tr>
<tr>
<td height="25" colspan="4"><strong><font class=title><b>费用批准列表</b></font></strong></td>
</tr>
<tr >
<td height="16" colspan="4" background="../images/title.gif"> </td>
</tr>
<tr>
<td height=4></td>
</tr>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="#DECFAD">
<tr bgcolor="efefef">
<td width="7%" height="22" align=center>操作</td>
<td align=center><a href="expenseapprove_list.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=expenseno&orderby=<%=session("orderby")%>">编号</a></td>
<td width="10%" align=center><a href="expenseapprove_list.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=subject&orderby=<%=session("orderby")%>">名称</a></td>
<td width="10%" align=center><a href="expenseapprove_list.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=currency&orderby=<%=session("orderby")%>">货币代码</a></td>
<td width="10%" align=center><a href="expenseapprove_list.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=totalamount&orderby=<%=session("orderby")%>">费用金额</a></td>
<td width="10%" align=center><a href="expenseapprove_list.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=payment&orderby=<%=session("orderby")%>">付款金额</a></td>
<td width="10%" align=center><a href="expenseapprove_list.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=status&orderby=<%=session("orderby")%>">状态</a></td>
<td width="10%" align=center><a href="expenseapprove_list.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=username&orderby=<%=session("orderby")%>">用户</a></td>
<td width="10%" align=center><a href="expenseapprove_list.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=CreateDate&orderby=<%=session("orderby")%>">创建日期</a></td>
<td width="10%" align=center><a href="expenseapprove_list.asp?CurPage=<%=CurPage%>&strfield=<%=request("strfield")%>&strvalue=<%=request("strvalue")%>&orderbyfield=CreatorName&orderby=<%=session("orderby")%>">创建人</a></td>
</tr>
<%i=1:do while not rs.EOF and i<=session("pagesize")%>
<tr bgcolor="#FFFFFF">
<td height="22" align=center width="7%" nowrap><table><tr><td>
<%
' Add Payment Menu
'//////////////// Add Menu List Start /////////////////////////
if rs("status")="已审核" or rs("status")="已批准" then
AddPopupMenu4 false,false,false,false,true,false,false,false,true,false, _
"",_
"",_
"",_
"",_
"expenseexam.asp?type=expenseapprove&expenseid=",_
"",_
"",_
"",_
"expenseprintresult.asp?expenseid=",_
"menuExpense"&rs("expenseid")
elseif rs("status")="拒绝批准" then
AddPopupMenu4 false,false,true,false,false,false,false,false,true,false, _
"", _
"",_
"expensesubmit.asp?Mod=费用提交&expenseid=",_
"",_
"",_
"",_
"",_
"",_
"expenseprintresult.asp?expenseid=",_
"menuExpense"&rs("expenseid")
else
AddPopupMenu4 false,false,false,false,false,false,false,false,true,false, _
"", _
"",_
"",_
"",_
"",_
"",_
"",_
"",_
"expenseprintresult.asp?expenseid=",_
"menuExpense"&rs("expenseid")
end if
'/////////////// Menu List End
%>
<img src="../images/edit.gif" border="0" id="Expense<%=rs("expenseid")%>" align=absMiddle height=16 width=16 onMouseOver="ShowMenu('Expense<%=rs("expenseid")%>','menuExpense<%=rs("expenseid")%>','<%=rs("expenseid")%>')" onMouseOut="HideMenu('menuExpense<%=rs("expenseid")%>')"></td>
<td align=left id="IMGtr1<%=i%>" style="display:block"><a href="javascript:showit('tr1<%=i%>',1)" title="查看明细"><img src="../images/button1.gif" border=0></a><td>
<td align=left id="IMG1tr1<%=i%>" style="display:none"><a href="javascript:showit('tr1<%=i%>',1)" title="隐藏明细"><img src="../images/button2.gif" border=0></a></td>
</tr></table></td>
<td align=center><a href="javascript:opensubwin('resizable=yes, scrollbars=yes, left= 40, top=40, menubar=no, location=no, toolbar=no ,width=750, height=500','expensedetail.asp?expenseid=<%=rs("expenseid")%>');"><%=rs("expenseno")%></a></td>
<td align=center><%=rs("subject")%></td>
<td align=center><%=rs("currencyname")%></td>
<td align=center><%=rs("totalamount")%></td>
<td align=center><%=rs("payment")%></td>
<td align=center><%if rs("status")="拒绝批准" then%><font color=red><%end if%><%=rs("status")%></font></td>
<td align=center><%=rs("username")%></td>
<td align=center><%=Year(rs("CreateDate"))%>-<%=Month(rs("CreateDate"))%>-<%=Day(rs("CreateDate"))%></td>
<td align=center><%=rs("CreatorName")%></td>
</tr>
<tr bgcolor="#FFFFFF" border=0 id='tr1<%=i%>' style=display:none><td colspan=10>
<%
dim connline
dim rsline
set connline=server.CreateObject("adodb.connection")
set rsline=server.CreateObject("adodb.recordset")
connline.Open connstring
rsline.Open "select * from v_expense where expenseid="&rs("expenseid"),connline,1,1
%>
<table width="100%" border="0" cellpadding="0" cellspacing="1" bgcolor="FFFFFF">
<tr bgcolor="#FFFFFF">
<td width="10%" height=20 align=center bgcolor="DEDFDE">审核人</td>
<td width="15%" align=center bgcolor="efefef"><%=rs("Checkedbyname")%></td>
<td width="10%" align=center bgcolor="DEDFDE">审核时间</td>
<td width="15%" align=center bgcolor="efefef"><%=rs("CheckDate")%></td>
<td width="10%" rowspan="2" align=center bgcolor="DEDFDE">审核意见</td>
<td colspan="3" rowspan="2" align=left bgcolor="efefef"><%=rs("CheckComment")%></td>
</tr>
<tr>
<td width="10%" height=20 align=center bgcolor="DEDFDE">批准人</td>
<td width="15%" align=center bgcolor="efefef"><%=rs("Approvebyname")%></td>
<td width="10%" align=center bgcolor="DEDFDE">批准时间</td>
<td width="15%" align=center bgcolor="efefef"><%=rs("ApproveDate")%></td>
</tr>
<tr>
<td width="10%" height=20 align=center bgcolor="DEDFDE">支付人</td>
<td width="15%" align=center bgcolor="efefef"><%=rs("Paidbyname")%></td>
<td width="10%" align=center bgcolor="DEDFDE">支付时间</td>
<td width="15%" align=center bgcolor="efefef"><%=rs("PayDate")%></td>
<td width="10%" rowspan="2" align=center bgcolor="DEDFDE">批准意见</td>
<td colspan="3" rowspan="2" align=left bgcolor="efefef"><%=rs("ApproveComment")%></td>
</tr>
<tr>
<td width="10%" height=20 align=center bgcolor="DEDFDE">清帐人</td>
<td width="15%" align=center bgcolor="efefef"><%=rs("Clearbyname")%></td>
<td align=center bgcolor="DEDFDE">清帐时间</td>
<td width="15%" align=center bgcolor="efefef"><%=rs("ClearDate")%></td>
</tr>
</table>
<%
rsline.Close
set rsline=nothing
connline.Close
set connline=nothing
%>
</td></tr>
<%
i=i+1
rs.MoveNext
loop
%>
</table>
<table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr height="50"><td>第<%=CurPage%>页 / 共<%=RS.PageCount%>页 / 记录数:<%=Rs.RecordCount%>条
</td></tr></table>
<%
rs.Close
set rs=nothing
conn.Close
set conn=nothing
set objcheck=nothing
%>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -