?? officegoods_function.asp
字號:
<%
'得到某人、某天所購買的物品
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
%>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -