日期:2014-05-16 浏览次数:21350 次
<!--#include file="./../../Common/OraAdmInc.asp"-->
<%
Dim SID,StartDate,EndDate,OrganID,strSQL,strSQL1
SID = Request("ReportID")
set rs=createobject("adodb.recordset")
Set rs = OpenDBr("select * from finreport where ReportID="&SID&"")
If Not rs.eof Then
StartDate = Rs("StartDate")
EndDate = Rs("EndDate")
OrganID =Rs("OrganID")
End If
rs.close
Dim DoRs
strSQL1 = "update finreport set state = 2 where ReportID="&SID&""
If SID <> "" Then
Set DoRs = OpenDBr("select * from finreport Where ReportID="&SID&"")
If Not DoRs.Eof Then
DoRs("state")=2
DoRs.Update
End If
DoRs.Close
strSQL = "update sale_group_order_insr set [money_status]='已缴款',[money_date]=to_date(to_char(sysdate,'yyyy-mm-ddhh24miss'),'yyyy-mm-ddhh24miss') where [money_status] is null and TO_CHAR (Buy_date, 'YYYY-MM-DD')>='"&StartDate&"' and TO_CHAR (Buy_date, 'YYYY-MM-DD')<='"&EndDate&"' and ins_owner_id=" & OrganID&""
OraConn.Excute(strSQL)
CloseConn
End If
%>