📄 financelist_right.asp
字号:
<%@language="vbscript" codepage="936"%>
<%response.buffer = true%>
<%
Public HOME_PATH:HOME_PATH = "../"
Public title:title = "财务列表"
%>
<!--#include file="../db.asp"-->
<!--#include file="../inc/function.asp"-->
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<html>
<head>
<title><%=title%></title>
<%
if isLogin = false then
Response.Write viewinfo("Logingo","","")
Response.end
end if
Set c01 = new CL01
%>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name="Generator" content="EditPlus">
<meta name="Author" content="">
<meta name="Keywords" content="">
<meta name="Description" content="">
<link href="<%=HOME_PATH%>css/style01.css" rel="stylesheet" type="text/css">
<script type = 'text/javascript' src = '<%=HOME_PATH%>js/layer00.js'></script>
<link href="<%=HOME_PATH%>css/style.css" rel="stylesheet" type="text/css">
<script type = 'text/javascript' src = '<%=HOME_PATH%>js/dateselect.js'></script>
<style type = 'text/css'>
.tempA td {border-top:solid 0px #fff;border-left:solid 0px #fff;border-right:solid 1px #d6d3ce;border-bottom:solid 1px #d6d3ce;}
.clicked { background-color:#08246B;color:#ffffff;}
</style>
<script language="JavaScript">
<!--
function clicked_(s) {
var td_len = td_.length;
if (td_len == undefined) {
td_.className = 'clicked';
form.box_.checked = true;
}else{
for(i_ = 0 ; i_<td_len;i_++) {
if(s!=i_) {
td_[i_].className = '';
form.box_[i_].checked = false;
}else{
td_[i_].className = 'clicked';
form.box_[i_].checked = true;
}
}
}
}
function checked_(s) {
var selLen = form.selAnnounce.length ;
if (selLen==undefined) {
if(form.selAnnounce.checked == true) {
selid_.className = 'clicked' ;
}else{
selid_.className = '' ;
}
}else{
if(form.selAnnounce[s].checked == true) {
selid_[s].className = 'clicked';
}else{
selid_[s].className = '';
}
}
}
//-->
</script>
</head>
<body style = 'margin:0px;'>
<div style = 'text-align:left;'>
<%
Rftypeid = GetText("ftypeid","G","number",1,10,0)
Call DateSearch(DateStar,DateEnd,DateSQL,"ALL",Dateinfo)
key_ = trim(Request("key"))
keySQL = ""
BadStr = " ~`!@#$%^&*()-_+=|\{}[]［］:;" & chr(34) & chr(39) & "<,>.?/"
viewBadStr = ""
key__ = Check(BadStr,key_,viewBadStr,"0")
if not key__ = "" then keySQL = " and fName like '%" & key__ & "%' "
inorout_ = GetText("inorout","G","number",1,2,"none")
if not trim(inorout_) = "" then inoroutSQL = " and inorout = " & inorout_ & "" else inoroutSQL = ""
Rselsupplierid = GetText("selsupplierid","G","number",1,10,0)
if not Rselsupplierid = 0 then
supplieridSQL = " and supplierid = " & Rselsupplierid & ""
else
supplieridSQL = ""
end if
%>
<div style = 'width:100%;text-align:left; border-left: 1px solid buttonhighlight; border-right: 1px solid buttonshadow;border-top: 1px solid buttonhighlight; border-bottom: 1px solid buttonshadow;padding:1px;padding-left:3px;'>
<form method='post' action="<%=SELVAR("FN","?")%>" name = 'formSearch'>
<input type = 'hidden' name = 'Searched' value = 'Y'/>
<input type = 'hidden' name = 'ftypeid' value = '<%=Rftypeid%>'/>
日期选择：
从
<input type = 'text' name="DateStar" onfocus="setday(this)" size="10" maxlength="10" readonly value = '<%=DateStar%>' style = 'border:1px solid #000;line-height:17px;height:20px;text-align:center;'/>
到
<input type = 'text' name="DateEnd" onfocus="setday(this)" size="10" maxlength="10" readonly value = '<%=DateEnd%>' style = 'border:1px solid #000;line-height:17px;height:20px;text-align:center;'/>
<select name = 'inorout'>
<option value = '' <%=v1v2(inorout_,""," selected = 'selected' style = 'color:red;' ","")%>>全部(收付)</option>
<option value = '0' <%=v1v2(inorout_,0," selected = 'selected' style = 'color:red;' ","")%>>支出(支付)</option>
<option value = '1' <%=v1v2(inorout_,1," selected = 'selected' style = 'color:red;' ","")%>>收入(收款)</option>
</select><%
SQL = "select * from supplier Order by uid desc"
%>
<%=SearchSupplier(Rs,SQL,Rselsupplierid,"selsupplierid","width:auto;")%> 名称关键字 <input type="text" name="key" style = 'width:80px;' value = '<%=key_%>' style = 'border-left:1px solid #000;border-top:1px solid #000;border-bottom:1px solid #000;border-right:0px solid #000;line-height:17px;height:20px;'/><input type="button" value = '搜索' style = 'border:1px solid #000;line-height:17px;height:20px;' onclick="javascript:formSearch.submit();"/>
<span style = 'color:bule;'><%=Dateinfo%> 记录</span>
</form>
</div>
<table border = '1' cellspacing = '0' cellpadding = '1' borderColorLight='#000000' borderColorDark='#eeeeee' style = 'width:100%;border-bottom:0px solid;border-right:0px solid;border-top:0px solid;border-left:0px solid;' class = 'LinkA'/>
<form method='post' action="<%=SELVAR("FN","?")%>" name = 'form' id = 'form'>
<input type = 'hidden' name = 'Options'/>
<input type = 'hidden' name = 'Execute'/>
<tr style = 'text-align:center;'>
<td style ='height:20px;text-align:center;'>序号</td>
<td>名称</td>
<td>所属类</td>
<td>金额</td>
<td>录入者</td>
<td>时间</td>
<td>所属</td>
<td>相关客商</td>
<td>备注</td>
<td style = 'width:35px;text-align:center;'><input name = '' type = 'button' style = 'border-style:none;' onClick="this.value=sel(this.form.selAnnounce,'反选','全选',selid_,'clicked');" value = '全选' onfocus="this.blur();"/></td>
</tr>
<tr>
<td style ='height:1px;line-height:1px;background-color:#adaaad;border-style:none;' colspan = '10'></td>
</tr>
<%
ftypeSQL = v1v2(Rftypeid,0,""," and ftypeid = " & Rftypeid & "")
SQL = "select * from incfinance where 1 = 1 " & ftypeSQL & DateSQL & keySQL & inoroutSQL & supplieridSQL & " Order by financeid Desc"
'Response.Write SQL
Rs.Open(SQL),Conn,1,1
LinkFile = SELVAR("FN","financelist_right.asp")
LUrl = "ftypeid=" & Rftypeid & "&DateStar=" & DateStar & "&DateEnd=" & DateEnd & "&key=" & key_ & "&inorout=" & inorout_ & "&selsupplierid=" & Rselsupplierid
if not Rs.eof then
dim uCount , financeinALL , financeoutALL
financeinALL = 0
financeoutALL = 0
thisPageSize = 20
PageWrite = PaginatinoGoogle(Rs,noteTotal,thisPageSize,LinkFile,LUrl,LArr)
for i_u = 1 to thisPageSize
if Rs.eof then exit for
financeid = Rs("financeid")
ftypeid = isNumber(Rs("ftypeid"),"int",0)
fName = Rs("fName")
fMoney = isNumber(Rs("fMoney"),"dec",0)
fRemark = Rs("fRemark")
intotime = Rs("intotime")
thisDate = Rs("thisDate")
aid = isNumber(Rs("aid"),"int",0)
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -