📄 myprg.asp
字号:
<%
'#################################################################
'# 兄弟资源网仓库管理 ver.2001
'#
'# 版权所有: 兄弟资源网
'#
'# 制作人 : 江湖兄弟
'#
'# 主页地址: http://soft.51dns.net/ 兄弟资源网
'#
'#################################################################
'#【版权声明】
'#
'# 本软体为共享软体(shareware)提供个人网站免费使用，请勿非法修改,
'# 转载，散播，或用于其他图利行为，并请勿删除版权声明。
'# 如果您的网站正式起用了这个脚本，请您通知我们，以便我们能够知晓！
'# 如果可能，请在您的网站做上我们的链接，希望能给予合作。谢谢！
'#################################################################
'# 请您尊重我们的劳动和版权，不要删除以上的版权声明部分，谢谢合作
'# 如有任何问题请到我们的论坛告诉我们
'#################################################################
%>
<!-- 显示成功信息 -->
<%
sub ShowSuccess(okmsg)
session("success")=okmsg
response.redirect "success.asp"
' response.write "<p align=center><font color=blue>"+okmsg+"</font>"
' response.write "<p align=center>[ <a href=manage.asp>返回管理主界面</a> | <a href='' onclick=history.go(-1)>返回</a> ]<br><br>"
end sub
%>
<!-- 显示错误信息 -->
<%
sub ShowError(errmsg)
session("error")=errmsg
response.redirect "error.asp"
' response.write "<p align=center><font color=red>"+errmsg+"</font>"
' response.write "<p align=center>[ <a href='' onclick=history.go(-1)>返回</a> ]<br><br>"
end sub
%>
<!-- COOKIES保存信息 -->
<%
sub SavePassword()
'response.write "request.form(isrempw)="&request.form("isrempw")
if request.form("isrempw")="" then
Response.Cookies("rts_ext_info")("password")=""
Response.Cookies("rts_ext_info")("isRemPw")="False"
'response.write "no save"
else
Response.Cookies("rts_ext_info")("password")=Request.Form("password")
Response.Cookies("rts_ext_info")("isRemPw")="True"
'response.write "saved"
end if
Response.Cookies("rts_ext_info").Expires = now() + 365
end sub
%>
<!-- COOKIES显示信息 -->
<%
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"
'response.write "checked"
else
session("password")=""
isCheck="unchecked"
'response.write "unchecked"
end if
end sub
%>
<!-- 检验登录 -->
<%
sub CheckLogin()
if request.cookies("adminok")="False" or (session("storage"))="" or session("storage")=0 then
response.redirect "relogin.asp"
end if
end sub
%>
<!-- 获取当前仓库 -->
<%
sub GetStorage(cur_storage)
sql="select * from storage where storage_id="&cur_storage
rs.open sql,conn,3,2
if not rs.eof then
response.write "<font color=blue>"&session("username")&"</font> 所在仓库: [ <font color=red>"&rs("storage_name")&"</font> ]"
else
response.write "<font color=blue>"&session("username")&"</font> 所在仓库: [ <font color=red>没有发现仓库（错误）</font> ]"
end if
rs.close
end sub
%>
<!-- 获取类别 -->
<%
sub GetType(type_id)
sql="select * from type where type_id="&type_id
rs.open sql,conn,3,2
if not rs.eof then
response.write "[ <font color=red>"&rs("type_name")&"</font> ]"
else
response.write "[ <font color=red>无物品类别</font> ]"
end if
rs.close
end sub
%>
<!-- 显示标题 -->
<%
sub ShowTitle(cTitle)
%>
<div align="center"><br>
<MAP NAME="FrontPageMap0">
<AREA SHAPE="RECT" COORDS="14, 31, 225, 55" HREF="help.asp" TARGET="_blank" TITLE=仓库管理系统说明>
<AREA SHAPE="CIRCLE" COORDS="296,28,29" HREF="http://rts.163.net" TARGET="_blank" title=访问红虎工作室主页>
<AREA SHAPE="RECT" COORDS="148, 2, 198, 29" HREF="mailto:hu_feng@163.net" title=写信给作者>
<AREA SHAPE="RECT" COORDS="77, 4, 128, 26" HREF="http://www.coolbel.com/rts" TARGET="_blank" title=访问红虎论坛>
<AREA SHAPE="RECT" COORDS="16, 3, 60, 25" HREF="http://rts.163.net" TARGET="_blank" title=回到主页>
</MAP>
<!--webbot bot="ImageMap" i-checksum="56689" endspan -->
<%
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 type where in_storage="&session("storage")&" order by type_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("type_id"))+"'>"+rs("type_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 ShowStorage()
response.write " <select class='smallinput' name='selStorage' size='1'>"
response.write "<option value='0'>--请选择--</option>"+chr(13)+chr(10)
sql="select * from storage order by storage_name"
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("storage_id")=0 then
sel="selected"
else
sel=""
end if
response.write "<option " & sel & " value='"+CStr(rs("storage_id"))+"'>"+rs("storage_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 ShowTypeList()
sql="select * from type where in_storage="&session("storage")&" order by type_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?type_id="&rs("type_id")&">"&rs("type_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 provider order by provider_name"
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("provider_id")=0 then
sel="selected"
else
sel=""
end if
response.write "<option " & sel & " value='"+CStr(rs("provider_id"))+"'>"+rs("provider_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 ShowUses()
response.write " <select class='smallinput' name='selUses' size='1'>"
response.write "<option value='0'>--请选择--</option>"+chr(13)+chr(10)
sql="select * from uses "
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("uses_id")=0 then
sel="selected"
else
sel=""
end if
response.write "<option " & sel & " value='"+CStr(rs("uses_id"))+"'>"+rs("uses_name")+"</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 type where type_id="&iprnt&" and in_storage="&session("storage")
rs.open sql,conn,3,2
if not rs.eof then
iprnt=rs("parent_id")
xxx=" -> <a href=type.asp?prnt="&rs("type_id")&">"&rs("type_name")&"</a>"+xxx
else
iprnt=0
end if
rs.close
loop
end if
xxx=" 您的位置：<a href=./>首页</a> -> <a href=manage.asp>仓库管理</a> -> <a href=type.asp>总分类</a> "+xxx
response.write xxx
end sub
%>
<%
sub update_stock()
sql="select sum(now_num) as now_num1,sum(now_sum) as now_sum1 from detail where name_id="&session("name_id")&" and storage_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("now_num1")) then
rs("now_stock")=rs2("now_num1")
else
rs("now_stock")=0
end if
if not isnull(rs2("now_sum1")) then
rs("now_sum")=rs2("now_sum1")
else
rs("now_sum")=0
end if
rs.update
else
showerror("错误!")
end if
rs.close
rs2.close
end sub
%>
</div>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -