sta_char.asp

这是去年开发的中移鼎讯手机进销存系统 大家

<%
'[省公司]
'统计函数库
'申购数，进货数，发货数，回款数，未回款数

'UserPower,UserID,CityID,CountyID,Pro_ID,IsNew,fromTime,toTime
Function Req_Pro(UserPower,UserID,CityID,CountyID,Pro_ID,IsNew,FromTime,toTime)
	Dim b
	b=0
	csql = "Select SUM(SubOrderTotal) From T_SubOrder where CityID="&Cstr(CityID)&" "
	If IsNew = 1 then
		if FromTime="" or ToTime="" then
			csql = csql + " and DATEPART(dd, Intime)=DATEPART(dd, GETDATE()) "
		else
			csql = csql + " and convert(varchar(10),InTime,120) between  '"&fromTime&"' and '"&toTime&"' "
		end if
	end if


End Function

%>