fun.asp

功能介绍： 1、产品入库

<%
Function adminOptionList()
sql="select dx_admin_name from [dx_admin] order by dx_admin_id desc"'
rs.open sql,conn,1,3
while not rs.eof
response.Write("<option value="&rs(0)&">")
response.Write(rs(0))
response.Write("</option>")
rs.movenext
wend
rs.close
End Function

Function customOptionList()
sql="select dx_consumer_id,dx_consumer_name from [dx_consumer] order by dx_consumer_id desc"'
rs.open sql,conn,1,3
response.Write("<option value=""-1"" selected=""selected"">")
response.Write("请选择")
response.Write("</option>")
while not rs.eof
response.Write("<option value="&rs(0)&">")
response.Write(rs(1))
response.Write("</option>")
rs.movenext
wend
rs.close
End Function

Function depotOptionList()
sql="select dx_depot_id,dx_depot_name from [dx_depot] order by dx_depot_id desc"'
rs.open sql,conn,1,3
response.Write("<option value=""-1"" selected=""selected"">")
response.Write("请选择")
response.Write("</option>")
response.Write("<option value=""0"">")
response.Write("所有仓库")
response.Write("</option>")
while not rs.eof
response.Write("<option value="&rs(0)&">")
response.Write(rs(1))
response.Write("</option>")
rs.movenext
wend
rs.close
End Function

Function switch(I1,I2,I3,I4)'用于各种分类、品牌、仓库等的数字转文字；文字字段名，表名，数字字段,数字字段值
sql="select "&I1&" from ["&I2&"] where "&I3&"="&I4
rst.open sql,conn,1,1
if rs.eof then
switch="未知"
else
switch=rs(0)
rst.close
end if
End Function
Function getProductName(I1)
if I1=0 then
response.write("配置装机总价")
else
sqlt="select * from [ProductList] where dx_product_id="&I1
rst.open sqlt,conn,1,1
if rst.eof then
response.write("未知")
else
response.Write(rst("dx_brand_name")&"--"&rst("dx_product_model")&"--"&rst("dx_class_name"))
end if
rst.close
end if
End Function
%>