?? outward_add.asp
字號:
<%@ LANGUAGE="VBSCRIPT" %>
<%const title="確認(rèn)數(shù)據(jù)"%>
<%
response.buffer=true
Response.Expires = 0
Response.CacheControl = "Private"
%>
<!-- #include file=../data/username.inc-->
<!-- #include file=../data/connect.asp-->
<!--#include file=../data/myPrg.asp-->
<head>
<meta http-equiv="Content-Type"content="text/html; charset=gb_2312-80">
<title><%=title%></title>
<link rel="stylesheet" type="text/css" href="../data/forum.css">
</head>
<body topmargin=0>
<%
newcompanyid = request("companyid")
if newcompanyid = "" then
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""請先選擇公司再做此步操作！"");"
Response.write "history.go(-1);"
Response.Write "</script>"
Response.End
elseif not isnumeric(newcompanyid) then
call closedatabase
Response.Write "<script language=javascript>"
Response.Write "alert(""companyid必須為整數(shù)！"");history.go(-1);"
Response.Write "</script>"
Response.End
else
newcompanyid = cint(newcompanyid)
end if
arra = split(session("username"),";")
UserCompanyid = arra(0)
flag = arra(1)
User = arra(2)
userno = arra(4)
if flag > 4 then
call closedatabase
Response.End
end if
dim outw_sra
outw_sra = trim(Request("outw_sra"))
outw_sra = replace(outw_sra,"'","’")
sql = "select outw_id,cull_flag from outward where outw_sra = '"&outw_sra&"' and outw_companyid = "&newcompanyid&""
set rs_outward = conn.execute(sql)
if rs_outward.eof then
rs_outward.close
set rs_outward = nothing
call closedatabase
response.write "<script language=javascript>"
response.write "alert(""該SIA號碼不存在"");"
response.write "history.go(-1);"
response.write "</script>"
response.end
else
outwardid = rs_outward("outw_id")
cull_flag = rs_outward("cull_flag")
rs_outward.close
set rs_outward = nothing
call closedatabase
if cull_flag = True then
Response.Write "<script language=javascript>"
Response.Write "alert(""由于該SRA的分揀操作已完成，所以你不能進(jìn)行補單操作！\n\n請在派送通知里填入其它的SRA號碼進(jìn)行操作！"");"
Response.Write "history.back();"
Response.Write "</script>"
Response.End
end if
Response.Write "<script language=javascript>"
Response.Write "var myTime = new Date(); "
Response.Write "var timeNow = myTime.getTime();"
Response.Write "window.location ='outward_2.asp?id="&outwardid&"&companyid="&newcompanyid&"&database=yes&inward_second=yes&tt='+timeNow;"
Response.Write "</script>"
end if
%>?? 快捷鍵說明
復(fù)制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -