officegoods_function.asp

来自「北京华信东方网络办公系统」· ASP 代码 · 共 49 行

<%
'得到某人、某天所购买的物品
function WhosePurchase(userName,PurchaseDate)
dim rs
set rs=server.CreateObject("adodb.recordset")
sql=" SELECT n_ID, v_GoodsName, i_PurchaseAmount, v_Unit, d_PurchaseDate, v_Department, "&_
    " v_UserName, t_remark, m_price "&_
	" FROM hxdf_OfficeGoods_Purchase "&_
	" WHERE (v_userName like '"& userName &"') "
	if PurchaseDate<>"" then
	sql=sql & " AND (d_PurchaseDate =  CONVERT(DATETIME, '"& PurchaseDate &"', 102) ) "
	end if
	'response.Write sql
	on error resume next
	rs.Open sql,conn,1,1
	if err.number<>0 then
	response.Write err.Description
	response.End
	end if
	if rs.EOF then
	temp=null
	else
	temp=rs.GetRows
	end if
	rs.Close: set rs=nothing
	WhosePurchase=temp
end function
' 得到不重复的人、不同的日期列表
function ManDateList()
dim rs
set rs=server.CreateObject("adodb.recordset")
sql=" SELECT DISTINCT v_Department, v_UserName, d_PurchaseDate "&_
	" FROM hxdf_OfficeGoods_Purchase "&_
	" ORDER BY v_Department, v_UserName, d_PurchaseDate DESC "
	on error resume next
rs.open sql,conn,1,1
	if err.number<>0 then
	response.Redirect("../error/Error.asp?steps=-1&errInfo=<li>"&err.Description&"</li>")
	response.End()
	end if
	if rs.Eof then
	temp=null
	else
	temp=rs.GetRows
	end if
	rs.Close: set rs=nothing
	ManDateList=temp
end function
%>