📄 toppage.asp
字号:
<%
Class TopPage
Dim l_basp
Dim l_checku
Dim l_chru
'/****************
'/弶婜張棟(DB愙懕)
'/***************
Public Function Init(l_objDbAccess,l_dsn,l_userid,l_passwd)
Call l_objDbAccess.ProcConnection(l_dsn,l_userid,l_passwd)
Set l_basp = Server.CreateObject("basp21")
Set l_checku = New CheckUtil
Set l_chru = New CharUtil
End Function
'/**********************************
'/* 擖椡僠僃僢僋
'/* param丗l_db,l_cmn,l_coId,l_userId,l_passwd
'/* return丗boolean
'/**********************************
Public Function CheckInput(l_db,l_cmn,l_coId,l_userId,l_passwd)
Dim l_errarray(10)
Dim l_element
Dim l_count
CheckInput = true
l_element = 0
'儐乕僓ID僠僃僢僋
If l_userId = "" Then
l_errarray(l_element) = IG00003E
l_element = l_element + 1
CheckInput = false
ElseIf Not l_checku.IsNumericAlpha(l_userId) Then
l_errarray(l_element) = IG00004E
l_element = l_element + 1
CheckInput = false
End If
'僷僗儚乕僪僠僃僢僋
If l_passwd = "" Then
l_errarray(l_element) = IG00005E
l_element = l_element + 1
CheckInput = false
End If
ReDim re_errarray(l_element)
For l_count = 0 to l_element
re_errarray(l_count) = l_errarray(l_count)
Next
Session("ErrMsg") = re_errarray
End Function
'/***************************************************************************
'/怴拝忣曬丄廳梫側偍抦傜偣HTML庢摼
'/param丗l_objDbAccess DbAccess僆僽僕僃僋僩
'/ l_objCommon Common僆僽僕僃僋僩
'/ l_system_id 僔僗僥儉ID
'/ l_comp_id 夛幮ID
'/ l_section_id 晹栧ID
'/ l_kind 忣曬偺庬椶
'/ l_genre 儊僯儏乕ID
'/return丗l_strHtml丂怴拝忣曬丄廳梫側偍抦傜偣昞帵梡HTML
'/***************************************************************************
Public Function GetNewsInfo(l_objDbAccess,l_objCommon,l_system_id,l_comp_id,l_section_id,l_kind,l_genre)
Dim l_strSql
Dim l_newsInfoResult
Dim l_strHtml,l_InfoCount
Dim l_CRLF
l_CRLF = Chr(13) & Chr(10)
Set l_newsInfoResult = l_objCommon.GetNewsResult(l_objDbAccess,l_system_id,l_comp_id,l_section_id,l_kind,10,l_genre)
'怴拝忣曬5審昞帵
l_InfoCount = 0
Do Until l_newsInfoResult.eof
l_strHtml = l_strHtml & "<tr> " & l_CRLF &_
" <td width=""10"" class=""txt_m""> </td>" & l_CRLF &_
" <td class=""txt_m""><a class=""news"" href=""JavaScript:newWindow(540,650,'"
If l_kind = 1 Then
l_strHtml = l_strHtml & "s_news.asp?page=1&kind=" & l_kind & "','yes');"">"
Else
l_strHtml = l_strHtml & "s_info.asp?page=1&kind=" & l_kind & "','yes');"">"
End If
l_strHtml = l_strHtml & "[" & l_newsInfoResult.Fields("REG_YMD") & "]" &_
l_newsInfoResult.Fields("MESSAGE").Value & "</a></td>" & l_CRLF &_
"</tr>" & l_CRLF
l_newsInfoResult.MoveNext
l_InfoCount = l_InfoCount + 1
If l_InfoCount = 5 Then
Exit Do
End If
Loop
Do Until l_InfoCount => 5
l_strHtml = l_strHtml & " <tr> " & l_CRLF &_
" <td width=""10"" class=""txt_m""> </td>" & l_CRLF &_
" <td class=""txt_m""> </td>" & l_CRLF &_
"</tr>" & l_CRLF
l_InfoCount = l_InfoCount + 1
Loop
GetNewsInfo = l_strHtml
End Function
'/************************************************************************************
'/儊僯儏乕尃尷庢摼
'/param丗l_objDbAccess丂DbAccess僆僽僕僃僋僩
'/ l_system_id丂僔僗僥儉ID
'/ l_section_id丂晹栧僐乕僪
'/************************************************************************************
Public Function GetMenuAuth(l_objDbAccess,l_system_id,l_comp_id,l_section_id)
Dim l_SQL
l_SQL = "SELECT LIST_MANAGE,AUCTION,ORDER_MANAGE,DATA_CLAIM," &_
" SALES_PROMOTION,EMPLOY_AUCTION,EMPLOY_ORDER_MANAGE," &_
" EMPLOY_ACCOUNTING,EMPLOY_STOCK,EMPLOY_DATA_CLAIM," &_
" EMPLOY_GOODS_PROMOTION,EMPLOY_ORDER_PROMOTION," &_
" EMPLOY_LIST_EXT,EMPLOY_ORDER_EXT," &_
" EMPLOY_ORDER_IN,EMPLOY_RATE_REPORT," &_
" SYSTEM_MANAGE,REG_YMD AS MENUAUTH_REG_YMD" &_
" FROM MENUAUTH_M" &_
" WHERE MENUAUTH_M.SYSTEM_ID = '" & l_system_id & "'" &_
" AND COMPANY_ID = '" & l_comp_id & "'" &_
" AND MENUAUTH_M.SECTION_ID = '" & l_section_id & "'"
Set GetMenuAuth = l_objDbAccess.ProcRecordset(l_SQL,10,0)
End Function
'/************************************************************************************
'/儊僯儏乕尃尷庢摼(庒廎)
'/param丗l_objDbAccess丂DbAccess僆僽僕僃僋僩
'/ l_system_id丂僔僗僥儉ID
'/ l_section_id丂晹栧僐乕僪
'/************************************************************************************
Public Function GetMenuAuth2(l_objDbAccess,l_system_id,l_comp_id,l_section_id)
Dim l_SQL
l_SQL = "SELECT LIST_MANAGE," &_
" DATA_CLAIM," &_
" EMPLOY," &_
" SYSTEM_EMPLOY," &_
" WAREHOUSE_EMPLOY," &_
" WAREHOUSE_LIST_MANAGE," &_
" WAREHOUSE_SYSTEM_EMPLOY," &_
" USER_EMPLOY," &_
" OTHERE_EMPLOY " &_
" FROM MENUAUTH_M" &_
" WHERE SYSTEM_ID = '" & l_system_id & "'" &_
" AND COMPANY_ID = '" & l_comp_id & "'" &_
" AND SECTION_ID = '" & l_section_id & "'"
Set GetMenuAuth2 = l_objDbAccess.ProcRecordset(l_SQL,10,0)
End Function
'/************************************************************************************
'/儊僯儏乕庢摼
'/param丗l_objDbAccess丂DbAccess僆僽僕僃僋僩
'/ l_system_id丂僔僗僥儉ID
'/ l_menu_id丂儊僯儏乕ID
'/return丗Recordset僆僽僕僃僋僩
'/************************************************************************************
Public Function GetMenu(l_objDbAccess,l_system_id,l_comp_id,l_section_id,l_menu_id)
Dim l_SQL
l_SQL = "SELECT SYSTEM_ID,MENU_ID,MENU_NAME,MENU_IMG,MENU_OUTLINE,SUBMENU_ID" &_
" FROM MENU_M" &_
" WHERE MENU_M.SYSTEM_ID = '" & l_system_id & "'" &_
" AND MENU_M.MENU_ID = '" & l_menu_id & "'" &_
" AND MENU_M.DEL_FLG = '0'"
Set GetMenu = l_objDbAccess.ProcRecordset(l_SQL,10,0)
End Function
'/************************************************************************************
'/僒僽儊僯儏乕庢摼
'/param丗l_objDbAccess丂DbAccess僆僽僕僃僋僩
'/ l_system_id丂僔僗僥儉ID
'/ l_submenu_id丂儊僯儏乕ID
'/return丗Recordset僆僽僕僃僋僩
'/************************************************************************************
Public Function GetSubMenu(l_objDbAccess,l_system_id,l_comp_id,l_section_id,l_submenu_id)
Dim l_SQL
l_SQL = "SELECT A.SYSTEM_ID,A.MENU_ID,A.MENU_NAME,A.SUBMENU_ID," &_
" B.SEQ_NO,B.SUB_SEQ_NO,B.SUBMENU_NAME,B.SUBMENU_LINK" &_
" FROM MENU_M A,SUBMENU_M B" &_
" WHERE A.SYSTEM_ID = '" & l_system_id & "'" &_
" AND A.SYSTEM_ID = B.SYSTEM_ID" &_
" AND A.SUBMENU_ID = '" & l_submenu_id & "'" &_
" AND A.SUBMENU_ID = B.SUBMENU_ID" &_
" AND A.DEL_FLG = '0'" &_
" ORDER BY B.SEQ_NO,B.SUB_SEQ_NO"
Set GetSubMenu = l_objDbAccess.ProcRecordset(l_SQL,10,0)
End Function
'/************************************************************************************
'/* 儊僯儏乕Html庢摼
'/* param丗
'/* return丗
'/************************************************************************************
Public Function GetMenuHtml(l_menuResult,l_subMenuResult)
Dim l_strHtml,l_CRLF
l_CRLF = Chr(13) & Chr(10)
l_strHtml = l_strHtml & "<td width=""142"" valign=""top"">" & l_CRLF &_
"<table width=""142"" border=""0"" cellspacing=""0"" cellpadding=""0"">" & l_CRLF &_
"<tr>" & l_CRLF &_
" <td bgcolor=""#555555"" rowspan=""3"">" &_
"<img src=""../img/common/spacer.gif"" width=""1"" height=""1""></td> " & l_CRLF &_
"<td width=""140"" height=""22""><img src=""" & l_menuResult.Fields.Item("MENU_IMG") &_
""" width=""140"" height=""22"" alt=""" & l_menuResult.Fields.Item("MENU_NAME") &_
""" border=""0""></td>" & l_CRLF &_
"<td bgcolor=""#555555"" rowspan=""3"">" &_
"<img src=""../img/common/spacer.gif"" width=""1"" height=""1""></td>" & l_CRLF &_
"</tr>" & l_CRLF &_
"<tr> " & l_CRLF &_
"<td valign=""top"" height=""180"">" & l_CRLF &_
"<table width=""100%"" border=""0"" cellspacing=""2"" cellpadding=""0"">" & l_CRLF &_
"<tr>" & l_CRLF &_
"<td class=""txt_m"">" & l_menuResult.Fields.Item("MENU_OUTLINE") & l_CRLF &_
" <hr size=""1"" noshade align=""center"">" & l_CRLF &_
"</td>" & l_CRLF &_
"</tr>" & l_CRLF &_
GetSubMenuHtml(l_subMenuResult) &_
"</table>" & l_CRLF &_
"</td>" & l_CRLF &_
"</tr>" & l_CRLF &_
"<tr>" & l_CRLF &_
"<td bgcolor=""#555555"" height=""1"">" &_
"<img src=""../img/common/spacer.gif"" width=""1"" height=""1""></td>" & l_CRLF &_
"</tr>" & l_CRLF &_
"</table>" & l_CRLF &_
"</td>" & l_CRLF &_
"<td width=""12""> </td>" & l_CRLF
GetMenuHtml = l_strHtml
End Function
'/************************************************************************************
'/* 僒僽儊僯儏乕Html庢摼
'/* param丗
'/* return丗
'/************************************************************************************
Public Function GetSubMenuHtml(l_subMenuResult)
Dim l_strHtml,l_CRLF
l_CRLF = Chr(13) & Chr(10)
Do Until l_subMenuResult.Eof
l_strHtml = l_strHtml & "<tr> " & l_CRLF &_
"<td class=""txt_m""><a class=""menu"" href=""" &_
l_subMenuResult.Fields.Item("SUBMENU_LINK") & """>丒" &_
l_subMenuResult.Fields.Item("SUBMENU_NAME") & "</a>" & l_CRLF
l_subMenuResult.MoveNext
If l_subMenuResult.Eof Then
l_strHtml = l_strHtml & "</td>" & l_CRLF
l_strHtml = l_strHtml & "</tr>" & l_CRLF
Exit Do
End If
If l_subMenuResult.Fields.Item("SUB_SEQ_NO") <> "0" Then
Do Until l_subMenuResult.Fields.Item("SUB_SEQ_NO") = "0"
l_strHtml = l_strHtml & "<br>" & l_CRLF &_
" 丂<a class=""menu"" href=""" &_
l_subMenuResult.Fields.Item("SUBMENU_LINK") & """>佲" &_
l_subMenuResult.Fields.Item("SUBMENU_NAME") & "</a>" & l_CRLF
l_subMenuResult.MoveNext
If l_subMenuResult.Eof Then
l_strHtml = l_strHtml & "</td>" & l_CRLF
l_strHtml = l_strHtml & "</tr>" & l_CRLF
Exit Do
End If
Loop
End If
l_strHtml = l_strHtml & " </td>" & l_CRLF
l_strHtml = l_strHtml & " </tr>" & l_CRLF
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -