<% '****************************************************************************************** ' Software name: xRedrobe(小红袍) Content Management System ' Version:1.0 ' Web: ' Author: 六点半 ' Copyright (C) 2005-2009 小红袍官方 版权所有 '****************************************************************************************** viewHead dim typeArray,topicArray,topicDic,keyword,m_state,m_commend,repeat,playfrom,contentUrl,pTopic,m_department dim action,back:action=getForm("action", "get"):back=request.ServerVariables("HTTP_REFERER") dim page,vtype,order Select case action case "save":main case else:main End Select viewFoot Sub viewList dim i,orderStr,whereStr,sqlStr,rsObj,allPage,allRecordset,numPerPage,searchStr,m_CidList dim hiCAttribute,hiCharge,hiYearPeriod hiCAttribute = getForm("hiCAttribute", "both") hiCharge = getForm("hiCharge", "both") hiYearPeriod = getForm("hiYearPeriod", "both") numPerPage= 10 '每頁显示记录数 keyword = getForm("keyword", "both") order = getForm("order", "get") if isNul(order) then order = "m_addtime" orderStr= " order by "&order&" desc" keyword = getForm("keyword", "both") page = getForm("page", "get") m_department= rCookie("m_department") if isNul(page) then page=1 else page=clng(page) if page=0 then page=1 dim m_username:m_username=rCookie("m_username") dim m_level:m_level=rCookie("m_level") if isNul(m_level) OR isNul(m_username) then alertMsg "您没有权限预览客户收費明细","" last end if whereStr = " WHERE m_CType='固定记账客户'" 'if m_level <= 0 then if hiCAttribute<>"" then whereStr = whereStr&" AND m_CAttribute= '"&hiCAttribute&"'" end if if hiCharge<>"" then whereStr = whereStr&" AND m_Charge= '"&hiCharge&"'" end if 'end if if m_level > 2 then whereStr = whereStr&" AND m_Charge= '"&m_username&"'" end if if m_department > 0 then whereStr = whereStr&" AND (m_Branch="&m_department&" OR m_Branch=0)" end if if not isNul(keyword) then '模糊搜索條件：關鍵字.99精品人妻无码专区，公司名稱香蕉AV亚洲精品一区二区，客户属性一区三区在线专区在线国产一卡2卡3卡4卡公司，负责人 whereStr = whereStr&" AND (m_Keys like '%"&keyword&"%' OR m_CompanyName like '%"&keyword&"%' OR m_CAttribute like '%"&keyword&"%' OR m_Charge like '%"&keyword&"%')" end if sqlStr = replace(replace("select m_id,m_CompanyName,m_addtime from {pre}Customer "&whereStr&orderStr,"where and","where"),"where order","order") ' echo (sqlStr) if checkLevel() < 3 then '高级编辑级以上身份才能显示 if action="toexcle" then if hiCharge="" OR hiYearPeriod="" then echo("") else ToExcle hiCAttribute,hiCharge,hiYearPeriod '调用导出EXCLE子程序 end if end if end if set rsObj = conn.db(sqlStr,"records1") rsObj.pagesize = numPerPage allRecordset = rsObj.recordcount : allPage= rsObj.pagecount if page>allPage then page=allPage %>

欧美与黑人午夜性猛交久久久

<% dim m_companyName:m_companyName=getForm("m_companyName", "get") dim m_success:m_success=getForm("m_success", "get") if m_success="Success" AND len(m_companyName)>0 then echo("

Success!修改客戶("&m_companyName&")成功

") end if %>
     已審核已收費未收費 <% if allRecordset=0 then if not isNul(keyword) then echo ("關鍵字 "&keyword&" 沒有記錄（只有固定記賬客戶才能顯示出來９崧似抟磺缬.99精品人妻无码专区一区三区在线专区在线。
") exit Sub else echo ("请输入搜索條件：關鍵字午夜影院AAA毛片，公司名稱午夜影院AAA毛片，客户属性国产一卡2卡3卡4卡公司，负责人（只有固定记账客户才能显示出来Ｎ缫褂霸篈AA毛片成人免费国产。") end if else rsObj.absolutepage = page if isNul(keyword) then echo ("请输入搜索條件：關鍵字一区三区在线专区在线国产无遮挡又黄又爽又色午夜影院AAA毛片，公司名稱.99精品人妻无码专区亚洲欧美强伦一区二区另类国产一卡2卡3卡4卡公司，客户属性国产丰满人妻一区二区电影香蕉AV亚洲精品一区二区，负责人（只有固定记账客户才能显示出来Ｏ憬禔V亚洲精品一区二区成人免费看片又大又黄。") end if if not isNul(keyword) then %> 關鍵字 <%=keyword%> 的記錄如下（只有固定記賬客戶才能顯示出來９拚诘灿只朴炙稚扇嗣夥压磺谙咦ㄇ谙摺） <% end if %>
无码AV免费精品一区二区三区
客戶屬性： <%if checkLevel() < 3 then '高级编辑级以上身份才能显示%>     負責人：     所屬年份： <%end if%>       <%if checkLevel() < 3 then '高级编辑级以上身份才能显示%> <%end if%>
<% for i = 1 to numPerPage if len(m_CidList) > 0 then m_CidList=m_CidList&","&rsObj("m_id") else m_CidList=rsObj("m_id") end if if (i mod 2)=1 then %> <% else %> <% end if rsObj.movenext if rsObj.eof then exit for next %>
公司名稱 月份列表 操作
"><%= rsObj("m_CompanyName")%> ">  " id="<%=rsObj("m_id")%>" class="addlink">收費 |  " id="<%=rsObj("m_id")%>" class="addlink">合同
"><%= rsObj("m_CompanyName")%> ">  " id="<%=rsObj("m_id")%>" class="addlink">收費 |  " id="<%=rsObj("m_id")%>" class="addlink">合同
頁次：<%=page%>/<%=allPage%> 每頁<%=numPerPage %> 總收錄數據<%=allRecordset%>條 &keyword=<%=keyword%><%end if%> <%if hiCAttribute<>"" then%>&hiCAttribute=<%=hiCAttribute%><%end if%> <%if hiCharge<>"" then%>&hiCharge=<%=hiCharge%><%end if%> ">首頁 &keyword=<%=keyword%><%end if%> <%if hiCAttribute<>"" then%>&hiCAttribute=<%=hiCAttribute%><%end if%> <%if hiCharge<>"" then%>&hiCharge=<%=hiCharge%><%end if%> ">上一頁 <%=makePageNumber(page,10,allPage,keyword,"","","","",hiCAttribute,hiCharge,"","")%> &keyword=<%=keyword%><%end if%> <%if hiCAttribute<>"" then%>&hiCAttribute=<%=hiCAttribute%><%end if%> <%if hiCharge<>"" then%>&hiCharge=<%=hiCharge%><%end if%> ">下一頁 &keyword=<%=keyword%><%end if%> <%if hiCAttribute<>"" then%>&hiCAttribute=<%=hiCAttribute%><%end if%> <%if hiCharge<>"" then%>&hiCharge=<%=hiCharge%><%end if%> ">尾頁   跳转   +'&keyword=<%=keyword%>'<%end if%> <%if hiCAttribute<>"" then%>+'&hiCAttribute=<%=hiCAttribute%>'<%end if%> <%if hiCharge<>"" then%>+'&hiCharge=<%=hiCharge%>'<%end if%> ;"/>
<% end if rsObj.close set rsObj = nothing %> <% echo("") %> <% End Sub Sub main %>
边啃奶头边躁狠狠躁A片动漫毛片无码一区二区三区A片视频 收費明细
<% viewList %>
<% viewSidebar 0,8 %>
<% End Sub %> <% Sub ToExcle(ByVal hiCAttribute,ByVal hiCharge,ByVal hiYearPeriod) '导出EXCLE表格功能 dim s,sql,filename,fs,myfile,x,StartEndTime,strSql,rstData,whereStr Set fs = server.CreateObject("scripting.filesystemobject") filename = Server.MapPath("/"&sitePath&"toexcle/客户收費明细表.xls") '生成的EXCEL文件名与存放位置 if fs.FileExists(filename) then '如果原来的EXCEL文件存在的话删除它 fs.DeleteFile(filename) end if set myfile = fs.CreateTextFile(filename,true) '创建EXCEL文件 StartTime = Request("StartTime") EndTime = Request("EndTime") StartEndTime = "AddTime between #"& StartTime &" 00:00:00# and #"& EndTime &" 23:59:59#" if hiYearPeriod="" then whereStr = whereStr&"m_YearPeriod= '"&year(now)&"'" else whereStr = whereStr&"m_YearPeriod= '"&hiYearPeriod&"'" end if if hiCAttribute<>"" then whereStr = whereStr&" AND m_CAttribute= '"&hiCAttribute&"'" end if if hiCharge<>"" then whereStr = whereStr&" AND m_Charge= '"&hiCharge&"'" end if strSql = "select m_Keys,m_CType,m_CompanyName,m_CAttribute,m_ContactAName,m_ContactAMobile,m_Charge,m_BillingDate,m_YearPeriod,m_MonthPeriod,m_Receivable,m_SumCharge,m_Payment,m_Explanation from {pre}BillingRecordsList where "&whereStr 'echo(strSql) set rstData = conn.db(strSql,"records1") if rstData.EOF and rstData.BOF then echo("") else echo("正在转换数据国产一卡2卡3卡4卡公司成人免费国产，请稍候……") dim trLine,responsestr,strLine strLine="" ' For each x in rstData.fields ' strLine = strLine & x.name & chr(9) strLine= strLine & "客户名称" & chr(9) strLine= strLine & "客户属性" & chr(9) strLine= strLine & "主联系人" & chr(9) strLine= strLine & "主联系人手机" & chr(9) strLine= strLine & "负责人" & chr(9) strLine= strLine & "收費日期" & chr(9) strLine= strLine & "所属期年" & chr(9) strLine= strLine & "所属期月" & chr(9) strLine= strLine & "应收金额" & chr(9) strLine= strLine & "实收金额" & chr(9) strLine= strLine & "收款方式" & chr(9) strLine= strLine & "说明" & chr(9) ' Next myfile.writeline strLine '将表的列名先写入EXCEL Do while Not rstData.EOF strLine="" ' for each x in rstData.Fields ' strLine = strLine & x.value & chr(9) strLine= strLine & rstData("m_CompanyName") & chr(9) strLine= strLine & rstData("m_CAttribute") & chr(9) strLine= strLine & rstData("m_ContactAName") & chr(9) strLine= strLine & rstData("m_ContactAMobile") & chr(9) strLine= strLine & rstData("m_Charge") & chr(9) strLine= strLine & rstData("m_BillingDate") & chr(9) strLine= strLine & rstData("m_YearPeriod") & chr(9) strLine= strLine & rstData("m_MonthPeriod") & chr(9) strLine= strLine & rstData("m_Receivable") & chr(9) strLine= strLine & rstData("m_SumCharge") & chr(9) strLine= strLine & rstData("m_Payment") & chr(9) strLine= strLine & rstData("m_Explanation") & chr(9) ' next myfile.writeline strLine '将表的每一條记录写入EXCEL rstData.MoveNext loop echo("

點擊下載！

") end if rstData.Close set rstData = nothing End Sub %>