📄 toppage.asp
字号:
End If
GetOtherEmploy = l_html
End Function
'/*************************************
'/ 敪拲揰愗傟偺昞帵
'/ 堷丂悢丗DbAccess僋儔僗
'/ 栠傝抣丗敪拲揰愗傟儕僗僩
'/*************************************
Public Function GetOrderPointList(l_db)
Dim l_html '敪拲揰愗傟儕僗僩HTML
Dim l_CRLF '夵峴僐乕僪
Dim l_SQL 'SQL暥
Dim l_result 'DB寢壥
Dim l_count '僇僂儞僞
l_CRLF = Chr(13) & Chr(10)
'塣梡娗棟尃尷偑偁傞恖偺傒
If Session("User").Item("EMPLOY") = FLG_ON Then
l_SQL = "SELECT S_T.LIST_CD," &_
" S_T.LIST_EDA," &_
" S_T.STOCK_NUM," &_
" S_T.ORDER_POINT," &_
" L_T.LIST_NAME " &_
" FROM STOCK_T S_T,LISTBASE_T L_T " &_
" WHERE S_T.SYSTEM_ID = '" & Session("User").Item("SYSTEM_ID") &"' " &_
" AND S_T.SYSTEM_ID = L_T.SYSTEM_ID " &_
" AND S_T.LIST_CD = L_T.LIST_CD " &_
" AND S_T.LIST_EDA = L_T.LIST_EDA " &_
" AND S_T.STOCK_STATUS IN( '" & STSTS_ODR_POINT & "','" & STSTS_URGODR_POINT & "')" &_
" AND L_T.LIST_STATUS = '" & LSTS_APPROVE & "' " &_
" ORDER BY S_T.UPDATE_YMD DESC "
'Response.Write l_SQL
debug_t(l_SQL)
Set l_result = l_db.ProcRecordset(l_SQL,10,0)
l_html = "<table width=""200"" border=""0"" cellspacing=""0"" cellpadding=""0"">" &_
l_CRLF &_
"<tr>" &_
"<td colspan=""3"">" &_
"<a href=""../manage/stock_list.asp?stock_status2=" & STSTS_ODR_POINT & "&stock_status3=" & STSTS_URGODR_POINT & "&sessave=1&sortkey=1&seqdesc=1"">" &_
"<img src=""img/title_orderpoint.gif"" width=""200"" height=""20"" alt=""敪拲揰愗傟"" border=""0""></a></td>" & l_CRLF &_
"</tr>" & l_CRLF
'僨乕僞偑懚嵼偟側偄応崌丂2006/02/23丂捛壛
If Not l_result.eof Then
l_html = l_html & "<tr> " & l_CRLF &_
"<td bgcolor=""#FF8512"" width=""1""> " &_
"<img src=""../img/common/spacer.gif"" width=""1"" height=""1""></td>" & l_CRLF &_
"<td>" &_
"<table width=""100%"" border=""0"" cellspacing=""2"" cellpadding=""0"" class=""txt_s"">" & l_CRLF
Do Until l_result.eof
'5峴昞帵偟偨傜廔椆
If l_count = 5 Then
Exit Do
End If
'儕僗僩
l_html = l_html & "<tr> " & l_CRLF &_
"<td><a class=""list"" href=""../manage/stock_info.asp?P1=" & l_result.Fields.Item("LIST_CD") &_
"&P2=" & l_result.Fields.Item("LIST_EDA") & """>" &_
l_result.Fields.Item("LIST_CD") & "-" &_
l_result.Fields.Item("LIST_EDA") & "<br>" & l_CRLF &_
l_result.Fields.Item("LIST_NAME") &_
"丂" &_
l_result.Fields.Item("STOCK_NUM") & "乛" &_
l_result.Fields.Item("ORDER_POINT") & "</a></td>" & l_CRLF &_
"</tr>" & l_CRLF &_
"<tr> " & l_CRLF &_
"<td bgcolor=""#BBBBBB"">" &_
"<img src=""../img/common/spacer.gif"" width=""1"" height=""1""></td>" & l_CRLF &_
"</tr>" & l_CRLF
l_count = l_count + 1
l_result.MoveNext
Loop
l_html = l_html & "</table>" & l_CRLF &_
"</td>" & l_CRLF &_
"<td bgcolor=""#FF8512"" width=""1"">" &_
"<img src=""../img/common/spacer.gif"" width=""1"" height=""1""></td>" & l_CRLF &_
"</tr>" & l_CRLF
End If
l_html = l_html & "<tr bgcolor=""#FF8512"">" & l_CRLF &_
"<td colspan=""3"">" &_
"<img src=""../img/common/spacer.gif"" width=""1"" height=""1""></td>" & l_CRLF &_
"</tr>" & l_CRLF &_
"</table>" & l_CRLF &_
"<table width=""100%"" border=""0"" cellspacing=""2"" cellpadding=""0"" class=""txt_m"">" & l_CRLF &_
"<tr> "& l_CRLF &_
"<td> </td>" & l_CRLF &_
"</tr>" & l_CRLF &_
"<tr> "& l_CRLF &_
"<td valign=""top""> "& l_CRLF &_
"</td>" & l_CRLF &_
"</tr>"& l_CRLF &_
"</table>" & l_CRLF
End If
GetOrderPointList = l_html
End Function
'/*************************************
'/丂挔昜専嶕儃僢僋僗
'/ 栠傝抣丗挔昜専嶕儃僢僋僗html
'/*************************************
Public Function GetSearchListBox
Dim l_html
Dim l_CRLF '夵峴僐乕僪
l_CRLF = Chr(13) & Chr(10)
'尃尷偑偁傞応崌偺傒
If Session("User").Item("LIST_MANAGE") = FLG_ON OR _
Session("User").Item("WAREHOUSE_LIST_MANAGE") = FLG_ON Then
l_html = "<table width=""200"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & l_CRLF &_
"<tr bgcolor=""#D9BB2F""> " & l_CRLF &_
"<td colspan=""3"">" &_
"<img src=""img/title_search.gif"" width=""200"" height=""20""></td>" & l_CRLF &_
"</tr>" & l_CRLF &_
"<tr> " & l_CRLF &_
"<td bgcolor=""#0033CC"" width=""1"">" &_
"<img src=""../img/common/spacer.gif"" width=""1"" height=""1""></td>" & l_CRLF &_
"<td bgcolor=""#F4F2E1""> " & l_CRLF &_
"<table width=""198"" border=""0"" cellspacing=""5"" cellpadding=""0"" class=""txt_m"">" & l_CRLF &_
"<tr> " & l_CRLF &_
"<td>挔昜斣崋<span class=""txt_s"">乮挔昜堦棗傊乯</span></td>" & l_CRLF &_
"</tr>" & l_CRLF &_
"<tr> " & l_CRLF &_
"<td> " & l_CRLF &_
"<input type=""text"" name=""listcd"" maxlength=""12"" style=""width:120px;"">" & l_CRLF &_
"<a href=""Javascript:listsubmit();"">" &_
"<img border=""0"" src=""../img/common/button_search.gif"" width=""34"" height=""18"" alt=""挔昜専嶕""></a>" & l_CRLF &_
"</td>" & l_CRLF &_
"</tr>" & l_CRLF &_
"<tr>" & l_CRLF &_
"<td>丂<span class=""tyu_s""></span></td>" & l_CRLF &_
"</tr>" & l_CRLF &_
"</table>" & l_CRLF &_
"</td>" & l_CRLF &_
"<td bgcolor=""#0033CC"" width=""1"">" &_
"<img src=""../img/common/spacer.gif"" width=""1"" height=""1""></td>" & l_CRLF &_
"</tr>" & l_CRLF &_
"<tr bgcolor=""#4D5EBB""> " & l_CRLF &_
"<td colspan=""3"" bgcolor=""#0033CC"">" &_
"<img src=""../img/common/spacer.gif"" width=""1"" height=""1""></td>" & l_CRLF &_
"</tr>" & l_CRLF &_
"</table>" & l_CRLF
End If
GetSearchListBox = l_html
End Function
'/*************************************
'/丂TOP夋柺梡僼僢僞
'/*************************************
Public Function GetTopFooter
Dim l_html '僼僢僞html
Dim l_CRLF '夵峴僐乕僪
l_CRLF = Chr(13) & Chr(10)
l_html = "<table width=""780"" border=""0"" cellspacing=""0"" cellpadding=""0"" class=""txt_m"">" & l_CRLF &_
"<tr> " & l_CRLF &_
"<td> </td>" & l_CRLF &_
"<td valign=""top""> </td>" & l_CRLF &_
"<td> </td>" & l_CRLF &_
"<td valign=""top""> </td>" & l_CRLF &_
"</tr>" & l_CRLF &_
"<tr> " & l_CRLF &_
"<td colspan=""4"" bgcolor=""#3672B7"" height=""2"">" &_
"<img src=""../img/common/spacer.gif"" width=""1"" height=""1""></td>" & l_CRLF &_
"</tr>" & l_CRLF &_
"<tr align=""center""> " & l_CRLF &_
"<td colspan=""4"" class=""txt_s""> " & l_CRLF &_
"<p> </p>" & l_CRLF &_
"<p>乥 <a href=""../menu/top.asp"">Home</a> 乥" &_
"<a href=""../contact.html"" target=""_blank"">偍栤崌偣</a> 乥</p>" & l_CRLF &_
"<p>™ Win High-quality Service<br>" & l_CRLF &_
"Copyright (C) 2004 IFIS Japan Corporation. All Rights Reserved. </p>" & l_CRLF &_
"</td>" & l_CRLF &_
"</tr>" & l_CRLF &_
"</table>" & l_CRLF
GetTopFooter = l_html
End Function
'/*************************************
'/丂傾僋僔儑儞僶乕庢摼(庢堷愭)
'/*************************************
Public Function GetActionBar
Dim l_CRLF '夵峴僐乕僪
l_CRLF = Chr(13) & Chr(10)
If Session("User").Item("LIST_MANAGE") = FLG_ON Or _
Session("User").Item("DATA_CLAIM") = FLG_ON Or _
Session("User").Item("EMPLOY") = FLG_ON Or _
Session("User").Item("SYSTEM_EMPLOY") = FLG_ON Then
GetActionBar = "<img src=""img/title_action.gif"" width=""530"" height=""24"" alt=""婡擻"">" &_
"<br>" & l_CRLF
Else
GetActionBar = ""
End If
End Function
'/*************************************
'/丂傾僋僔儑儞僶乕庢摼(憅屔)
'/*************************************
Public Function GetWareActionBar
Dim l_CRLF '夵峴僐乕僪
l_CRLF = Chr(13) & Chr(10)
If Session("User").Item("WAREHOUSE_EMPLOY") = FLG_ON Or _
Session("User").Item("WAREHOUSE_SYSTEM_EMPLOY") = FLG_ON Or _
Session("User").Item("WAREHOUSE_LIST_MANAGE") = FLG_ON Then
GetWareActionBar = "<br>" & l_CRLF &_
"<br>" & l_CRLF &_
"<p><img src=""img/title_warehouse.gif"" width=""530"" height=""24"" alt=""憅屔婡擻"">" & l_CRLF
Else
GetWareActionBar = ""
End If
End Function
'/*************************************
'/丂傾僋僔儑儞僶乕庢摼(儊儞僥僫儞僗)
'/*************************************
Public Function GetMainteActionBar
Dim l_CRLF '夵峴僐乕僪
l_CRLF = Chr(13) & Chr(10)
If Session("User").Item("USER_EMPLOY") = FLG_ON Or _
Session("User").Item("OTHERE_EMPLOY") = FLG_ON Then
GetMainteActionBar = "<br>" & l_CRLF &_
"<br>" & l_CRLF &_
"<p><img src=""img/title_mainte.gif"" width=""530"" height=""24"" alt=""儊儞僥僫儞僗"">" & l_CRLF
Else
GetMainteActionBar = ""
End If
End Function
'/*************************************
'/廔椆張棟(DB愗抐)
'/*************************************
Public Function EndProcess(l_objDbAccess)
l_objDbAccess.CloseRecodeset
l_objDbAccess.CloseConnection
End Function
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -