?? type.asp
字號:
<%@ LANGUAGE="VBSCRIPT" %>
<%
response.buffer=true
Response.Expires = 0
Response.CacheControl = "Private"
%>
<%const title="倉庫物品分類"%>
<!-- #include file=../data/username.inc-->
<!-- #include file=../data/connect.asp-->
<!--#include file=../data/myPrg.asp-->
<html>
<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必須為整數！"");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
FlagUser = session("flag")
'該錄入人員的客服的DC和PROD
dim dcservice,prodservice
dcservice = ""
prodservice = ""
dim dcFlag,prodFlag
dcFlag = false
prodFlag = false
for ver=0 to userno
if clng(newcompanyid) = clng(FlagUser(ver,9)) then
if instr(dcservice,FlagUser(ver,0)) < 1 then
if dcFlag = true then
dcservice = dcservice &","& FlagUser(ver,0)
else
dcservice = dcservice & FlagUser(ver,0)
dcFlag = true
end if
end if
if instr(prodservice,FlagUser(ver,1)) < 1 then
if prodFlag = true then
prodservice = prodservice &","& FlagUser(ver,1)
else
prodservice = prodservice & FlagUser(ver,1)
prodFlag = true
end if
end if
end if
next
elseif flag = 5 then
FlagUser = session("flag")
'該錄入人員的客服的DC和PROD
dcservice = ""
prodservice = ""
dcFlag = false
prodFlag = false
for ver=0 to userno
if clng(newcompanyid) = clng(FlagUser(ver,2)) then
if instr(dcservice,FlagUser(ver,0)) < 1 then
if dcFlag = true then
dcservice = dcservice &","& FlagUser(ver,0)
else
dcservice = dcservice & FlagUser(ver,0)
dcFlag = true
end if
end if
if instr(prodservice,FlagUser(ver,1)) < 1 then
if prodFlag = true then
prodservice = prodservice &","& FlagUser(ver,1)
else
prodservice = prodservice & FlagUser(ver,1)
prodFlag = true
end if
end if
end if
next
end if
Showtitle(title)
randomize()
u = int(10000001*rnd+1)
' 選則dc
if flag = 4 then
sql="select dc_id,dc_code,dc_name,dc_disabled from dc where dc_id in ("&dcservice&")"
elseif flag = 5 then
sql="select dc_id,dc_code,dc_name,dc_disabled from dc where dc_id in ("&dcservice&")"
elseif flag < 4 or flag=6 then
sql="select * from dc where dc_companyid = "&newcompanyid&""
end if
set rs = server.CreateObject("adodb.recordset")
rs.open sql,conn,3,2
if not rs.eof then
rs.movefirst
do while not rs.eof
response.write "<font color=green><li><a href=typeview.asp?dc_id="&rs("dc_id")&"&companyid="&newcompanyid &"&tt="&u&">"&rs("dc_name")&"</font>(<font color=red>"&rs("dc_code")&")</a> </font></li>"
rs.movenext
loop
end if
rs.close
set rs = nothing
call closedatabase
%>
<!--#include file=../data/copyright.asp-->
</body>
</html>
?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -