?? myprg.asp
字號:
<!-- 顯示成功信息 -->
<%
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)
%>
<!--webbot bot="ImageMap" startspan
rectangle="(14,31) (225, 55) http://192.168.0.1/cangku/help.asp##_blank"
circle="(293,29) 29 http://rts.163.net##_blank"
rectangle="(148,2) (198, 29) mailto:hu_feng@163.net"
rectangle="(77,4) (128, 26) http://192.168.0.1/bbs##_blank"
rectangle="(16,3) (60, 25) http://192.168.0.1##_blank" src="images/softname.jpg" width="400"
height="60" alt="softname.jpg (12170 bytes)" border="0" -->
<MAP NAME="FrontPageMap0">
<AREA SHAPE="RECT" COORDS="14, 31, 225, 55" HREF="help.asp" TARGET="_blank" TITLE=倉庫管理系統說明>
<AREA SHAPE="CIRCLE" COORDS="293, 29, 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>
<img src="IMAGES/softname.jpg" width="400" height="60" border="0" usemap="#FrontPageMap0">
<!--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
%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -