📄 toppage.asp
字号:
Loop
GetSubMenuHtml = l_strHtml
End Function
'/********************************************************
'/儊僯儏乕傪僙僢僔儑儞偵僙僢僩
'/********************************************************
Public Function SetMenuAuth(l_objADO_Rset)
Dim l_UserObject '儐乕僓忣曬奿擺僄儕傾
Dim l_count
Set l_UserObject = Session("User")
Do Until l_objADO_Rset.eof
For l_count = 0 to l_objADO_Rset.Fields.Count -1
l_UserObject.add l_objADO_Rset.Fields(l_count).Name,l_objADO_Rset.Fields(l_count).Value
next
l_objADO_Rset.MoveNext
Loop
Set Session("User") = l_UserObject
End Function
'/****************************************************************
'/怴拝忣曬丄廳梫側偍抦傜偣偺棜楌庢摼
'/param丗l_objDbAccess丂DbAccess僆僽僕僃僋僩
'/ l_system_id丂僔僗僥儉ID
'/ l_comp_id丂夛幮ID
'/ l_kind丂忣曬偺庬椶
'/ Start丂儗僐乕僪奐巒埵抲
'/return丗l_strHtml丂怴拝忣曬丄廳梫側偍抦傜偣昞帵梡HTML
'/****************************************************************
Public Function GetNewsHistoryHtml(l_dic,start)
Dim l_InfoCount
Dim l_strHtml
Dim l_CRLF
Dim l_detaildic
Dim l_count
Dim l_key
l_CRLF = Chr(13) & Chr(10)
'If Not l_newsInfoResult.Eof Then
' l_newsInfoResult.Move start
'End If
l_key = l_dic.keys
'怴拝忣曬20審昞帵
l_InfoCount = 0
'l_strHtml = l_strHtml & l_newsInfoResult.PageCount
For l_count = start to UBound(l_key)
Set l_detaildic = l_dic.Item(l_key(l_count))
l_strHtml = l_strHtml & "<tr> " & l_CRLF &_
" <td width=""10""> </td>" & l_CRLF &_
" <td class=""txt_m"" "
If l_InfoCount mod 2 = 0 Then
l_strHtml = l_strHtml & "bgcolor=""#FBFAF2"">"
Else
l_strHtml = l_strHtml & ">"
End If
l_strHtml = l_strHtml & "[" & l_detaildic.Item("REG_YMD") & "] " &_
l_detaildic.Item("MESSAGE") & "</td>" & l_CRLF &_
" </tr>" & l_CRLF
l_InfoCount = l_InfoCount + 1
If l_InfoCount = 20 Then
Exit For
End If
Next
Do Until l_InfoCount => 20
l_strHtml = l_strHtml & " <tr> " & l_CRLF &_
" <td width=""10""> </td>" & l_CRLF &_
" <td class=""txt_m""> </td>" & l_CRLF &_
" </tr>" & l_CRLF
l_InfoCount = l_InfoCount + 1
Loop
GetNewsHistoryHtml = l_strHtml
End Function
'/*************************************
'/ 挔昜娗棟儊僯儏乕
'/ 栠傝抣丗挔昜娗棟儊僯儏乕Html
'/*************************************
Public Function GetListManage
Dim l_html '挔昜娗棟儊僯儏乕HTML
Dim l_CRLF '夵峴僐乕僪
l_CRLF = Chr(13) & Chr(10)
'尃尷偑偁傞応崌偺傒
If Session("User").Item("LIST_MANAGE") = FLG_ON AND _
Request.Cookies("Comp")("CompKind") = "0" Then
l_html = "<table width=""100%"" border=""0"" cellspacing=""2"" cellpadding=""0"" class=""txt_m"">" & l_CRLF &_
"<tr> " & l_CRLF &_
"<td rowspan=""2"" width=""40"">" &_
"<img src=""img/bdoc.gif"" width=""32"" height=""32"" alt=""挔昜娗棟""></td>" & l_CRLF &_
"<td height=""24"" colspan=""2"">" &_
"<img src=""img/title_newpaper.gif"" width=""250"" height=""20"" alt=""挔昜娗棟""></td>" & l_CRLF &_
"</tr>" & l_CRLF &_
"<tr>" & l_CRLF &_
"<td class=""top_submenu"" width=""70"" align=""right"">" &_
"<b><font color=""#777777"">挔昜丗</font></b></td>" & l_CRLF &_
"<td class=""top_submenu"">" &_
"<a class=""menu"" href=""../formmk/form_make.asp"">挔昜嶌惉</a>丂-丂" &_
"<a class=""menu"" href=""../formmk/form_list.asp?sessave=1&pdliststatus=000001&sortkey=1&sortdesc=1"">挔昜堦棗</a>" &_
"乮<a class=""menu"" href=""../formmk/form_list.asp?sessave=1&pdliststatus=000001&sortkey=1&sortdesc=1"">壓彂偒</a>乛" &_
"<a class=""menu"" href=""../formmk/form_list.asp?sessave=1&pdliststatus=000003&sortkey=1&sortdesc=1"">桳岠</a>乛" &_
"<a class=""menu"" href=""../formmk/form_list.asp?sessave=1&pdliststatus=100000&sortkey=1&sortdesc=1"">攑巭</a>乯丂-丂" &_
"<a class=""menu"" href=""../formmk/form_formimg.asp"">挔昜僀儊乕僕搊榐</a> <br>" & l_CRLF &_
"<a class=""menu"" href=""../formmk/form_import.asp"">挔昜堦妵搊榐</a></td>"& l_CRLF &_
"</tr>" & l_CRLF &_
"<tr>" & l_CRLF &_
"<td width=""34""> </td>" & l_CRLF &_
"<td width=""70"" align=""right""><b><font color=""#777777"">嵼屔丗</font></b></td>" & l_CRLF &_
"<td><a class=""menu"" href=""../formmk/form_stocklist.asp?chkststatus=" & STSTS_ODR_POINT & "," & STSTS_URGODR_POINT & "&sessave=1&sortkey=1&sortdesc=1"">嵼屔堦棗</a>" & l_CRLF &_
"</td>" & l_CRLF &_
"</tr>" & l_CRLF &_
"<tr> " & l_CRLF &_
"<td width=""34""> </td>" & l_CRLF &_
"<td> </td>" & l_CRLF &_
"<td width=""412""> </td>" & l_CRLF &_
"</tr>" & l_CRLF &_
"<tr bgcolor=""#555555""> " & l_CRLF &_
"<td colspan=""3""><img src=""../img/common/spacer.gif"" width=""1"" height=""1""></td>" & l_CRLF &_
"</tr>" & l_CRLF &_
"</table>" & l_CRLF &_
"<br>" & l_CRLF
End If
GetListManage = l_html
End Function
'/*************************************
'/ 帒椏惪媮儊僯儏乕
'/ 栠傝抣丗帒椏惪媮儊僯儏乕Html
'/*************************************
Public Function GetDataClaim
Dim l_html '帒椏惪媮儊僯儏乕HTML
Dim l_CRLF '夵峴僐乕僪
l_CRLF = Chr(13) & Chr(10)
'尃尷偑偁傞応崌偺傒
If Session("User").Item("DATA_CLAIM") = FLG_ON Then
l_html = "<table width=""100%"" border=""0"" cellspacing=""2"" cellpadding=""0"" class=""txt_m"">" & l_CRLF &_
"<tr> " & l_CRLF &_
"<td rowspan=""3"" width=""40"">" &_
"<img src=""img/cart.gif"" width=""32"" height=""32"" alt=""帒椏惪媮""></td>" & l_CRLF &_
"<td height=""24"" colspan=""2"">" &_
"<img src=""img/title_material.gif"" width=""250"" height=""20"" alt=""帒椏惪媮""></td>" & l_CRLF &_
"</tr>" & l_CRLF &_
"<tr>" & l_CRLF &_
"<td class=""top_submenu"" width=""70"" align=""right"">" &_
"<b><font color=""#777777"">帒椏惪媮丗</font></b></td>" & l_CRLF &_
"<td class=""top_submenu"">" &_
"<a class=""menu"" href=""../demand/Demand_List.asp"">帒椏惪媮</a>丂-丂" &_
"<a class=""menu"" href=""../demand/search_cross.asp"">僋儘僗専嶕</a>丂-丂" &_
"<a class=""menu"" href=""../demand/direct_order.asp"">娙堈拲暥</a>丂-丂" &_
"<a class=""menu"" href=""../demand/wish_list.asp"">僂傿僢僔儏儕僗僩</a></td>" & l_CRLF &_
"</tr>" & l_CRLF &_
"<tr>" & l_CRLF &_
"<td width=""70"" align=""right"">" &_
"<b><font color=""#777777"">棜楌丗</font></b></td>" & l_CRLF &_
"<td><a class=""menu"" href=""../demand/search_history.asp"">棜楌</a>" &_
"乮<a class=""menu"" href=""../demand/search_history.asp?claim_situation=000001&sessave=1&sortkey=1&seqdesc=1"">枹敪憲</a>乛" &_
"<a class=""menu"" href=""../demand/search_history.asp?claim_situation=000002&sessave=1&sortkey=1&seqdesc=1"">擖壸懸偪</a>乛" &_
"<a class=""menu"" href=""../demand/search_history.asp?claim_situation=000004&sessave=1&sortkey=1&seqdesc=1"">弌壸嶌嬈拞</a>乛" &_
"<a class=""menu"" href=""../demand/search_history.asp?claim_situation=000003&sessave=1&sortkey=1&seqdesc=1"">敪憲嵪傒</a>乯丂</td>" & l_CRLF &_
"</tr>" & l_CRLF &_
"<tr> " & l_CRLF &_
"<td> </td>" & l_CRLF &_
"<td width=""70""><b></b></td>" & l_CRLF &_
"<td width=""412""> </td>" & l_CRLF &_
"</tr>" & l_CRLF &_
"<tr bgcolor=""#555555""> " & l_CRLF &_
"<td colspan=""3""><img src=""../img/common/spacer.gif"" width=""1"" height=""1""></td>" & l_CRLF &_
"</tr>" & l_CRLF &_
"</table>" & l_CRLF &_
"<br>" & l_CRLF
End If
GetDataClaim = l_html
End Function
'/*************************************
'/ 塣梡娗棟儊僯儏乕
'/ 栠傝抣丗塣梡娗棟儊僯儏乕Html
'/*************************************
Public Function GetEmploy
Dim l_html '塣梡娗棟儊僯儏乕Html
Dim l_CRLF '夵峴僐乕僪
l_CRLF = Chr(13) & Chr(10)
'尃尷偑偁傞応崌偺傒
If Session("User").Item("EMPLOY") = FLG_ON Then
l_html = "<table width=""100%"" border=""0"" cellspacing=""2"" cellpadding=""0"" class=""txt_m"">" & l_CRLF &_
"<tr> " & l_CRLF &_
"<td rowspan=""4"" width=""40"">" &_
"<img src=""img/warehouse.gif"" width=""32"" height=""32"" alt=""塣梡娗棟""></td>" & l_CRLF &_
"<td height=""24"" colspan=""2"">" &_
"<img src=""img/title_operation.gif"" width=""250"" height=""20"" alt=""塣梡娗棟""></td>" & l_CRLF &_
"</tr>" & l_CRLF &_
"<tr>" & l_CRLF &_
"<td class=""top_submenu"" width=""70"" align=""right"">" &_
"<b><font color=""#777777"">擖屔丗</font></b></td>" & l_CRLF &_
"<td class=""top_submenu"">" &_
"<a class=""menu"" href=""../manage/ware_list.asp"">擖屔巜帵忣曬搳擖</a>丂-丂" &_
"<a class=""menu"" href=""../manage/ware_struct.asp"">擖屔巜帵棜楌堦棗</a>丂-丂" &_
"<a class=""menu"" href=""../manage/ware_import.asp"">擖屔巜帵堦妵搊榐</a></td>" & l_CRLF &_
"</tr>" & l_CRLF &_
"<tr> " & l_CRLF &_
"<td width=""70"" align=""right"">" &_
"<b><font color=""#777777"">嵼屔丗</font></b></td>" & l_CRLF &_
"<td><a class=""menu"" href=""../manage/stock_list.asp?stock_status2=" & STSTS_ODR_POINT & "&stock_status3=" & STSTS_URGODR_POINT & "&sessave=1&sortkey=1&sortdesc=1"">嵼屔堦棗</a>" &_
"乮<a class=""menu"" href=""../manage/stock_list.asp?stock_status1=000001&sessave=1&sortkey=1&sortdesc=1"">惓忢</a>乛" &_
"<a class=""menu"" href=""../manage/stock_list.asp?stock_status2=000002&sessave=1&sortkey=1&sortdesc=1"">敪拲揰愗傟</a>乛" &_
"<a class=""menu"" href=""../manage/stock_list.asp?stock_status3=000003&sessave=1&sortkey=1&sortdesc=1"">嬞媫敪拲揰愗傟</a>乯丂-丂" &_
"<a class=""menu"" href=""../manage/stock_reg.asp"">嵼屔堦妵搊榐</a></td>" & l_CRLF &_
"</tr>" & l_CRLF &_
"<tr>" &_
"<td width=""70"" align=""right"">" &_
"<b><font color=""#777777"">偦偺懠丗</font></b></td>" & l_CRLF &_
"<td><a class=""menu"" href=""../manage/delivery_list.asp"">憲晅愭堦棗</a>丂-丂" &_
"<a class=""menu"" href=""../manage/delivery_reg.asp"">憲晅愭堦妵搊榐</a>丂-丂" &_
"<a class=""menu"" href=""../manage/info_list.asp"">僀儞僼僅儊乕僔儑儞堦棗乮帒椏惪媮Top乯</a></td>" & l_CRLF &_
"</tr>" & l_CRLF &_
"<tr>" & l_CRLF &_
"<td> </td>" & l_CRLF &_
"<td width=""70""> </td>" & l_CRLF &_
"<td width=""412""> </td>" & l_CRLF &_
"</tr>" & l_CRLF &_
"<tr bgcolor=""#555555""> " & l_CRLF &_
"<td colspan=""3""><img src=""../img/common/spacer.gif"" width=""1"" height=""1""></td>" & l_CRLF &_
"</tr>" & l_CRLF &_
"</table>" & l_CRLF &_
"<br>" & l_CRLF
End If
GetEmploy = l_html
End Function
'/*************************************
'/ 僔僗僥儉娗棟(庢堷愭)儊僯儏乕
'/ 栠傝抣丗僔僗僥儉娗棟(庢堷愭)儊僯儏乕Html
'/*************************************
Public Function GetSystemEmploy
Dim l_html '僔僗僥儉娗棟(庢堷愭)儊僯儏乕html
Dim l_CRLF '夵峴僐乕僪
l_CRLF = Chr(13) & Chr(10)
'尃尷偑偁傞応崌偺傒
If Session("User").Item("SYSTEM_EMPLOY") = FLG_ON Then
l_html = "<table width=""100%"" border=""0"" cellspacing=""2"" cellpadding=""0"" class=""txt_m"">" & l_CRLF &_
"<tr> " & l_CRLF &_
"<td rowspan=""3"" width=""40"">" &_
"<img src=""img/user.gif"" width=""32"" height=""32"" alt=""僔僗僥儉娗棟""></td>" & l_CRLF &_
"<td height=""24"" colspan=""2"">" &_
"<img src=""img/title_system_u.gif"" width=""309"" height=""20"" alt=""僔僗僥儉娗棟""></td>" & l_CRLF &_
"</tr>" & l_CRLF &_
"<tr>" & l_CRLF &_
"<td class=""top_submenu"" width=""70"" align=""right"">" &_
"<b><font color=""#777777"">儐乕僓丗</font></b></td>" & l_CRLF &_
"<td class=""top_submenu"">" &_
"<a class=""menu"" href=""../user/post_list.asp?sessave=1&sortkey=1&sortdesc=1"">晹栧堦棗</a>丂-丂" &_
"<a class=""menu"" href=""../user/user_list.asp?sessave=1&sortkey=1&sortdesc=1"">儐乕僓堦棗</a></td>" & l_CRLF &_
"</tr>" & l_CRLF &_
"<tr>" & l_CRLF &_
"<td width=""70"" align=""right"">" &_
"<b><font color=""#777777"">偦偺懠丗</font></b></td>" & l_CRLF &_
"<td><a class=""menu"" href=""../user/info_list.asp"">僀儞僼僅儊乕僔儑儞堦棗乮Top乯</a></td>" & l_CRLF &_
"</tr>" & l_CRLF &_
"<tr> " & l_CRLF &_
"<td width=""40""> </td>" & l_CRLF &_
"<td width=""70""><b><font color=""#777777""></font></b></td>" & l_CRLF &_
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -