📄 whcommon.asp
字号:
<tr bgcolor="#AAAAAA">
<td colspan="2" class="txt_m"><img src="../img/common/spacer.gif" width="1" height="1"></td>
</tr>
<tr>
<td class="txt_m">曐娗曐懚婜尷</td>
<td class="txt_m">
<%=l_cmn.GetPullDown(l_dbaccess, l_clfs2, "storageperiod"&l_no, l_storagePeriod, FLG_ON) %>
丂
<input type="text" name="<%="storageperiodother"&l_no%>" maxlength="10" style="width:100px;" value="<%=l_storagePeriodOther%>">
<span class="tyu_m">仸慡妏暥帤</span> </td>
</tr>
<tr bgcolor="#AAAAAA">
<td colspan="2" class="txt_m"><img src="../img/common/spacer.gif" width="1" height="1"></td>
</tr>
<tr>
<td class="txt_m">曐娗曐懚応強</td>
<td class="txt_m">
<%=l_cmn.GetPullDown(l_dbaccess, l_clfs3, "headofficekeep"&l_no, l_headOfficeKeep, FLG_ON) %>
</td>
</tr>
<tr>
<td bgcolor="#AAAAAA" colspan="2"><img src="../img/common/spacer.gif" width="1" height="1"></td>
</tr>
</table>
<% End If
End Sub
'/*******************************************************
'/* 戝検弌屔巟帩悢昞帵(俽俿俤俹俁乯
'/* param丗l_dspFlg "1"丗擖椡壜丄"0"丗昞帵偺傒(擖椡晄壜)
'/* l_leavDirection 戝検弌屔巟帩
'/* l_leavDirectionCount 戝検弌屔巟帩悢
'/* l_listUnitName 挔昜娗棟扨埵柤
'/*******************************************************
Public Sub DispLeavDirection(l_dspFlg,l_leavDirection, l_leavDirectionCount,l_listUnitName)
If l_dspFlg <> FLG_ON Then
Dim l_wkStr
%>
<% If l_leavDirection <> "" and l_leavDirectionCount <> "" Then
Select Case l_leavDirection
Case "0"
l_wkStr = l_cutil.NumericFormat(l_leavDirectionCount,False,0) &_
l_listUnitName & "埲忋丂寈崘儊僢僙乕僕"
Case "1"
l_wkStr = l_cutil.NumericFormat(l_leavDirectionCount,False,0) &_
l_listUnitName & "埲忋丂敪拲晄壜"
End Select
Else
l_wkStr = ""
End If
%> <%=l_wkStr%>
<% If l_leavDirection = FLG_ON Then
%> <input type="hidden" name="leavdirection" value="1">
<% Else
%> <input type="hidden" name="leavdirection" value="0">
<% End If
%> <input type="hidden" name="leavdirectioncount" value="<%=l_leavDirectionCount%>">
<% Else
%>
<tr>
<td width="180" class="txt_m">
<% If l_leavDirection = FLG_OFF Then
%>
<input type="radio" name="leavdirection" value="0" checked>
<% Else
%>
<input type="radio" name="leavdirection" value="0">
<% End If
%>
寈崘儊僢僙乕僕傪昞帵偡傞</td>
<td rowspan="2" class="txt_m" align="center" bgcolor="#EBEBEB" width="20">
戝<br>
検<br>
悢</td>
<td rowspan="2" class="txt_m"><span class="tyu_m">仸戝検弌屔悢偺儃乕僟乕儔僀儞傪擖椡偟偰偔偩偝偄丅</span><br>
<input type="text" name="leavdirectioncount" maxlength="12" style="width:80px;" value="<%=l_leavDirectionCount%>">
<span class="tyu_m">仸敿妏悢帤</span></td>
</tr>
<tr>
<td width="160" class="txt_m">
<% If l_leavDirection = FLG_ON Then
%>
<input type="radio" name="leavdirection" value="1" checked>
<% Else
%>
<input type="radio" name="leavdirection" value="1">
<% End If
%>
敪拲晄壜偵偡傞</td>
</tr>
<% End If
End Sub
'/*******************************************************
'/* 岞奐尃尷昞帵(俽俿俤俹俁乯
'/* param丗l_dspFlg "1"丗擖椡壜丄"0"丗昞帵偺傒(擖椡晄壜)
'/* l_data 岞奐尃尷(挔昜徠夛(岞奐))傑偨偼岞奐尃尷(弌屔埶棅(惪媮))
'/* l_name 僾儖僟僂儞柤徧
'/*******************************************************
Public Sub DispOpenAuth(l_dspFlg,l_data, l_name)
If l_dspFlg <> FLG_ON Then
%>
<%=l_cutil.GetOpenAuthName(l_data)%>
<input type="hidden" name="<%=l_name%>" value="<%=l_data%>">
<% Else
Call l_cmn.MakePulldownOpenAuth(l_data, l_name)
End If
End Sub
'/*******************************************************
'/* 僇僥僑儕昞帵(俽俿俤俹俁乯
'/* param丗l_dspFlg "1"丗擖椡壜丄"0"丗昞帵偺傒(擖椡晄壜)
'/* l_dbaccess (DBAccess) DB傾僋僙僗
'/* l_cmn Common僆僽僕僃僋僩
'/* l_category1丂 僇僥僑儕侾
'/* l_category2丂 僇僥僑儕俀
'/* l_category3丂 僇僥僑儕俁
'/* l_category4丂 僇僥僑儕係
'/* l_category5丂 僇僥僑儕俆
'/*******************************************************
Public Sub DispCategoryCheckBox(l_dspFlg,l_dbaccess, l_cmn, l_category1, l_category2,l_category3,l_category4,l_category5)
If l_dspFlg <> FLG_ON Then
%>
<%=l_cmn.GetCategoryDispOnly(l_db, CD_FM_CATEGORY1, l_category1, 3, FLG_OFF)%>
<%=l_cmn.GetCategoryDispOnly(l_db, CD_FM_CATEGORY2, l_category2, 3, FLG_OFF)%>
<%=l_cmn.GetCategoryDispOnly(l_db, CD_FM_CATEGORY3, l_category3, 3, FLG_OFF)%>
<%=l_cmn.GetCategoryDispOnly(l_db, CD_FM_CATEGORY4, l_category4, 3, FLG_OFF)%>
<%=l_cmn.GetCategoryDispOnly(l_db, CD_FM_CATEGORY5, l_category5, 3, FLG_OFF)%>
<input type="hidden" name="category1" value="<%=l_category1%>">
<input type="hidden" name="category2" value="<%=l_category2%>">
<input type="hidden" name="category3" value="<%=l_category3%>">
<input type="hidden" name="category4" value="<%=l_category4%>">
<input type="hidden" name="category5" value="<%=l_category5%>">
<% Else
'僇僥僑儕僾儖僟僂儞昞帵(僇僥僑儕傪俁偮昞帵偟偨傜夵峴乯
%>
<%=l_cmn.GetCategoryCheckBox(l_db, CD_FM_CATEGORY1, "category1", l_category1, 3, FLG_ON)%>
<%=l_cmn.GetCategoryCheckBox(l_db, CD_FM_CATEGORY2, "category2", l_category2, 3, FLG_ON)%>
<%=l_cmn.GetCategoryCheckBox(l_db, CD_FM_CATEGORY3, "category3", l_category3, 3, FLG_ON)%>
<%=l_cmn.GetCategoryCheckBox(l_db, CD_FM_CATEGORY4, "category4", l_category4, 3, FLG_ON)%>
<%=l_cmn.GetCategoryCheckBox(l_db, CD_FM_CATEGORY5, "category5", l_category5, 3, FLG_ON)%>
<%
End If
End Sub
'/*******************************************************
'/* 帒椏惪媮旛峫昞帵(俽俿俤俹俁乯
'/* param丗l_dspFlg "1"丗擖椡壜丄"0"丗昞帵偺傒(擖椡晄壜)
'/* l_dataclaimNote 帒椏惪媮旛峫
'/*******************************************************
Public Sub DispDataClaimNote(l_dspFlg,l_dataclaimNote)
If l_dspFlg <> FLG_ON Then
%>
<%=l_dataclaimNote%>
<input type="hidden" name="dataclaimnote" value="<%=l_dataclaimNote%>">
<% Else
%>
<textarea name="dataclaimnote" cols="50" rows="6" style="width:400px;" value="<%=l_dataclaimNote%>"><%=l_dataclaimNote%></textarea>
<br>
<span class="tyu_m">仸挔昜偺摿挜傪擖椡偟偰偔偩偝偄丅</span>
<% End If
End Sub
'/********************************************
'/* 挔昜娗棟僿僢僟傪昞帵
'/* param丗l_cmnObj丂Common僆僽僕僃僋僩
'/********************************************
Public Sub DspFormMkHead(l_cmnObj)
%>
<script type="text/javascript">
<!--
function listsubmit(){
strid = document.form1.menulistcd.value;
if (strid.match(/[^0-9]/i)){
window.alert("<%=IG11001E%>");
}else if(strid == "" ){
window.alert("<%=IG11004E%>");
}else{
document.form1.submit();
}
}
//-->
</script>
<table width="780" border="0" cellspacing="0" cellpadding="0">
<tr>
<td rowspan="2" width="300" bgcolor="#EEEEEE"><a href="../menu/top.asp"><img src="img/logo.gif" width="300" height="55" alt="Win High-quality Service" border="0"></a></td>
<td bgcolor="#76C5C5" background="img/heder.gif">
<table width="100%" border="0" cellspacing="2" cellpadding="0">
<tr>
<td width="347" class="txt_m"></td>
<td align="right" class="txt_m">
<font color="#FFFFFF"><b><%=l_cmnObj.GetDispTime%></b></font>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td bgcolor="#28A4A0">
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#28A4A0">
<tr>
<td width="8"> </td>
<td width="41"><a href="../menu/top.asp" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image3','','img/menu_home_f2.gif',1)"><img name="Image3" border="0" src="img/menu_home.gif" width="41" height="21" alt="Home傊"></a></td>
<td> </td>
<td width="78"><a href="../contact.html" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('Image6','','img/menu_contactus_f2.gif',1)" target="_blank"><img name="Image6" border="0" src="img/menu_contactus.gif" width="78" height="21" alt="偍栤崌偣傊"></a></td>
<td width="10"><img src="img/menu_bar.gif" width="2" height="21"></td>
</tr>
</table>
</td>
</tr>
<tr>
<td colspan="2" background="img/header_line.gif"><img src="../img/common/spacer.gif" width="1" height="3"></td>
</tr>
</table>
<%
End Sub
'/********************************************
'/* 挔昜娗棟儊僯儏乕(嵍懁)傪昞帵
'/********************************************
Public Sub DspMenu(l_inListCd)
%>
<tr>
<td bgcolor="#F4F2E1" valign="top" align="center" background="img/left_back.gif" rowspan="2" width="140">
<form name="form1" method="get" action="Form_List.asp">
<table border="0" cellspacing="0" cellpadding="0" width="140">
<tr>
<td width="16" class="txt_m"> </td>
<td colspan="2" class="txt_m">挔昜斣崋<span class="txt_s">乮挔昜堦棗傊乯</span></td>
<td valign="bottom" class="txt_m" width="6"> </td>
</tr>
<tr>
<td width="16" class="txt_m"> </td>
<td width="84" class="txt_m">
<input type="text" name="menulistcd" maxlength="12" style="width:80px;" value="<%=l_inListCd%>">
<input type="text" name="dummy" maxlength="12" style="width:80px;" style="display:none;">
</td>
<td valign="bottom" class="txt_m" width="34">
<a href="JavaScript:listsubmit();"><img src="../img/common/button_search.gif" width="34" height="18" alt="挔昜専嶕" border="0"></a>
</td>
<td valign="bottom" class="txt_m" width="6"> </td>
</tr>
<tr>
<td width="16" class="txt_m" height="30"> </td>
<td width="84" class="txt_m" height="30"> </td>
<td valign="bottom" class="txt_m" width="34" height="30"> </td>
<td valign="bottom" class="txt_m" width="6" height="30"> </td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" bgcolor="#F4F2E1">
<tr>
<td width="5"><img src="../img/common/spacer.gif" width="1" height="1"></td>
<td width="6" bgcolor="#28A4A0"><img src="../img/common/spacer.gif" width="6" height="1"></td>
<td width="128"><img src="img/menu.gif" width="129" height="20" alt="挔昜娗棟"></td>
</tr>
<tr>
<td width="5"> </td>
<td width="6" background="img/menu_s.gif"><img src="../img/common/spacer.gif" width="1" height="1"></td>
<td bgcolor="#FFFFFF">
<table width="100%" border="0" cellspacing="4" cellpadding="0">
<tr>
<td class="txt_m"><a class="menu" href="Make_Step1.asp?P1=NEW"><img src="../img/common/midashi.gif" width="10" height="10" alt=" " border="0">怴婯挔昜嶌惉</a></td>
</tr>
<tr>
<td class="txt_m" bgcolor="#BBBBBB"><img src="../img/common/spacer.gif" width="1" height="1"></td>
</tr>
<tr>
<td class="txt_m"><a class="menu" href="Form_List.asp?sessave=1&pdliststatus=000001&sortkey=1&sortdesc=1"><img src="../img/common/midashi.gif" width="10" height="10" alt=" " border="0">挔昜堦棗</a></td>
</tr>
<tr>
<td class="txt_m">丂<a class="menu" href="Form_List.asp?sessave=1&pdliststatus=000001&sortkey=1&sortdesc=1"><img src="../img/common/midashi.gif" width="10" height="10" alt=" " border="0">壓彂偒</a></td>
</tr>
<tr>
<td class="txt_m">丂<a class="menu" href="Form_List.asp?sessave=1&pdliststatus=000002&sortkey=1&sortdesc=1"><img src="../img/common/midashi.gif" width="10" height="10" alt=" " border="0">妋掕(彸擣媝壓)</a></td>
</tr>
<tr>
<td class="txt_m">丂<a class="menu" href="Form_List.asp?sessave=1&pdliststatus=000003&sortkey=1&sortdesc=1"><img src="../img/common/midashi.gif" width="10" height="10" alt=" " border="0">彸擣嵪傒</a></td>
</tr>
<tr>
<td class="txt_m">丂<a class="menu" href="Form_List.asp?sessave=1&pdliststatus=100000&sortkey=1&sortdesc=1"><img src="../img/common/midashi.gif" width="10" height="10" alt=" " border="0">攑巭</a></td>
</tr>
<tr>
<td class="txt_m" bgcolor="#BBBBBB"><img src="../img/common/spacer.gif" width="1" height="1"></td>
</tr>
<tr>
<td class="txt_m"><a class="menu" href="Form_Manage.asp?sessave=1&chkststatus=000002,000003&sortkey=1&sortdesc=1"><img src="../img/common/midashi.gif" width="10" height="10" alt=" " border="0">嵼屔堦棗</a></td>
</tr>
<tr>
<td class="txt_m">丂<a class="menu" href="Form_Manage.asp?sessave=1&chkststatus=000001&sortkey=1&sortdesc=1"><img src="../img/common/midashi.gif" width="10" height="10" alt=" " border="0">惓忢</a></td>
</tr>
<tr>
<td class="txt_m">丂<a class="menu" href="Form_Manage.asp?sessave=1&chkststatus=000002&sortkey=1&sortdesc=1"><img src="../img/common/midashi.gif" width="10" height="10" alt=" " border="0">敪拲揰愗傟</a></td>
</tr>
<tr>
<td class="txt_m">丂<a class="menu" href="Form_Manage.asp?sessave=1&chkststatus=000003&sortkey=1&sortdesc=1"><img src="../img/common/midashi.gif" width="10" height="10" alt=" " border="0">嬞媫敪拲揰愗傟</a></td>
</tr>
<tr>
<td class="txt_m" bgcolor="#BBBBBB"><img src="../img/common/spacer.gif" width="1" height="1"></td>
</tr>
<tr>
<td class="txt_m"><a class="menu" href="Approve_List.asp?sessave=1&sortkey=1&sortdesc=1"><img src="../img/common/midashi.gif" width="10" height="10" alt=" " border="0">挔昜彸擣埶棅堦棗</a></td>
</tr>
</table>
</td>
</tr>
<tr>
<td width="5"><img src="../img/common/spacer.gif" width="1" height="1"></td>
<td colspan="2" bgcolor="#28A4A0"><img src="../img/common/spacer.gif" width="1" height="1"><img src="../img/common/spacer.gif" width="1" height="1"></td>
</tr>
</table>
<input type="HIDDEN" name="sessave" value="1">
<input type="HIDDEN" name="sortkey" value="1">
<input type="HIDDEN" name="seqdesc" value="1">
<%
End Sub
End Class
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -