function.asp

仓库管理系统

<%
sub ShowError(errmsg)
  session("error")=errmsg
  response.redirect "error.asp"
end sub
%>
<%
sub SavePassword()
if request.form("isrempw")="" then
  Response.Cookies("rts_ext_info")("password")=""
  Response.Cookies("rts_ext_info")("isRemPw")="False"
else
  Response.Cookies("rts_ext_info")("password")=Request.Form("password")
  Response.Cookies("rts_ext_info")("isRemPw")="True"
end if
  Response.Cookies("rts_ext_info").Expires = now() + 365
end sub
%>
<%
dim ischeck
sub ShowPassword()
session("isRemPw")=request.cookies("rts_ext_info")("isRemPw")
if Session("isRemPw")="True" then
   session("password")=request.cookies("rts_ext_info")("password")
   isCheck="checked"
else
   session("password")=""
   isCheck="unchecked"
end if
end sub
%>
<%
sub CheckLogin()
if request.cookies("adminok")="False" or (session("storage"))="" or session("storage")=0 then
   response.redirect "<p align=center>请<a href='login.asp'>重新登录</a><br><br>"
  end if
end sub
%>
<%
sub getcangku(cur_storage)
  sql="select * from cangku where c_id="&cur_storage
  rs.open sql,conn,3,2
 if not rs.eof then
  response.write "<font size=2 color=blue>"&session("username")&" 所在仓库: </font>[ <font size=2 color=red>"&rs("cname")&"</font> ]"
 else
  response.write "<font size=2 color=blue>"&session("username")& "所在仓库: </font>[ <font size=2 color=red>没有发现仓库（错误）</font> ]"
 end if
  rs.close
end sub
%>

<!--  获取类别  -->
<%
sub gettype(type_id)
  sql="select * from leibie where lei_id="&type_id
  rs.open sql,conn,3,2
if not rs.eof then
  response.write "[ <font size=2 color=red>"&rs("lei_name")&"</font> ]"
else
  response.write "[ <font size=2 color=red>无物品类别</font> ]"
end if
  rs.close
end sub
%>
<%
sub ShowTitle(cTitle)
%>
<div align="center"><br>

  <%
  response.write "<font color=blue size=6><b>"&cTitle&"</b></font></div>"
  response.write "<hr size=1>"
end sub
%>
  <!--  显示类型选择  -->
  <%
sub ShowType()
 response.write"  <select class='smallinput' name='seltype' size='1'>"
           response.write "<option  value='0'>--请选择--</option>"+chr(13)+chr(10)

                        sql="select * from leibie where in_cangku="&session("storage")&" order by lei_name"
                          rs.open sql,conn,1,1
                         ntotal=rs.recordcount
                    if not rs.eof then
			  rs.movefirst
			  do while not rs.eof
		             response.write "<option " & sel & " value='"+CStr(rs("lei_id"))+"'>"+rs("lei_name")+"</option>"+chr(13)+chr(10)
		             rs.movenext
    		          loop
                    else
		             response.write "<option  value='0'>无类别可选择</option>"+chr(13)+chr(10)
                    end if
  
                           rs.close
 response.write "  </select>"
response.write " ( 共 <font color=red>"&ntotal&"</font> 个 ) "
end sub
%>
  <!--  显示仓库选择  -->
  <%
sub Showcangku()
response.write " <select class='smallinput' name='selStorage' size='1'>"
           response.write "<option  value='0'>--请选择--</option>"+chr(13)+chr(10)
                       sql="select * from cangku order by cname"
                         rs.open sql,conn,1,1
                         ntotal=rs.recordcount
                 if not rs.eof then
                   	  rs.movefirst
			  do while not rs.eof
      if session("storage")-rs("c_id")=0 then
           sel="selected"
      else
           sel=""
      end if	
		             response.write "<option " & sel & " value='"+CStr(rs("c_id"))+"'>"+rs("cname")+"</option>"+chr(13)+chr(10)
		             rs.movenext
    		          loop
                 else
                         response.write "<option  value='0'>没有可共选择的仓库</option>"+chr(13)+chr(10)
                 end if
                           rs.close
response.write "  </select>"
response.write " ( 共 <font color=red>"&ntotal&"</font> 个 ) "
end sub
%>
  <!--  显示类型列表  -->
  <%
sub ShowTypeList()
sql="select * from cangku where in_cangku="&session("storage")&" order by lei_name"
rs.open sql,conn,1,1
dim cangku_list
cangku_list="[ <a href=brow.asp>所有类别</a> "
if not rs.eof then
   do while not rs.eof
        cangku_list=cangku_list+" | <a href=brow.asp?kei_id="&rs("lei_id")&">"&rs("lei_name")&"</a>"
   rs.movenext
   loop
else
   cangku_list=cangku_list+" | <font color=red>无物品分类</font>"
end if
cangku_list=cangku_list+" ]"
rs.close
response.write "<b>物品分类：</b>"+cangku_list
end sub
%>
  <!--  显示供应商列表  -->
  <%
sub ShowProvider()
response.write " <select class='smallinput' name='selProvider' size='1'>"
           response.write "<option  value='0'>--请选择--</option>"+chr(13)+chr(10)
                       sql="select * from gongying order by gname"
                         rs.open sql,conn,1,1
                         ntotal=rs.recordcount
                 if not rs.eof then
                   	  rs.movefirst
			  do while not rs.eof

             if session("selprovider")-rs("g_id")=0 then  
                sel="selected"
             else
                sel=""
             end if
			 
			        response.write "<option " & sel & " value='"+CStr(rs("g_id"))+"'>"+rs("gname")+"</option>"+chr(13)+chr(10)
		            rs.movenext
    		          loop
                 else
                         response.write "<option  value='0'>没有可共选择的供应商</option>"+chr(13)+chr(10)
                 end if
                           rs.close
response.write "  </select>"
response.write " ( 共 <font color=red>"&ntotal&"</font> 个 ) "
end sub
%>
  <!--  显示用户列表  -->
  <%
sub ShowUses()
response.write " <select class='smallinput' name='selUses' size='1'>"
           response.write "<option  value='0'>--请选择--</option>"+chr(13)+chr(10)
                          sql="select * from tihuo "
                          rs.open sql,conn,3,1
                          ntotal=rs.recordcount
                      if not rs.eof then
			  rs.movefirst
			  do while not rs.eof

             if session("seluses")-rs("t_id")=0 then  
                sel="selected"
             else
                sel=""
             end if
		             response.write "<option " & sel & " value='"+CStr(rs("t_id"))+"'>"+rs("tname")+"</option>"+chr(13)+chr(10)
		             rs.movenext
    		          loop
                           rs.close
                      else
                         response.write "<option  value='0'>没有可共选择的用户</option>"+chr(13)+chr(10)
                 end if

response.write "  </select>"
response.write " ( 共 <font color=red>"&ntotal&"</font> 个 ) "
end sub
%>
<%
 sub gettypepath
 if session("prnt")>0 then
 xxx=""
 iprnt=session("prnt")
 do while iprnt>0
 sql="select * from leibie where lei_id="&iprnt&" and in_cangku="&session("storage")
 rs.open sql,conn,3,2
 if not rs.eof then
   iprnt=rs("parent_id")
   xxx=" -> <a href=type.asp?prnt="&rs("lei_id")&">"&rs("lei_name")&"</a>"+xxx
 else
   iprnt=0
 end if
 rs.close
 loop
 end if
 end sub
%>
<%
sub update_stock()
sql="select sum(in_num)-sum(out_num) as in_num1,sum(in_sum)-sum(out_sum) as in_sum1 from detail where name_id="&session("name_id")&" and c_id="&session("storage") &" and left_num>0"
rs2.open sql,conn
sql="select * from stock where name_id="&session("name_id")
rs.open sql,conn,3,2
if not rs.eof then
  if not isnull(rs2("in_num1")) then
     rs("now_stock")=rs2("in_num1")
  else 
     rs("now_stock")=0
  end if
  if not isnull(rs2("in_sum1")) then 
     rs("now_sum")=rs2("in_sum1")
  else
     rs("now_sum")=0
  end if

  rs.update
else
   showerror("错误!")
end if
rs.close
rs2.close
end sub
%>
 
</div>