info_inc.asp

来自「1] 校友多种方式注册认证[直接注册,答问注册,认证注册] 2] 校友论坛 」· ASP 代码 · 共 40 行

<%
'===================================================================
'= Function    : InfoMenu(intFlag,strClew)
'= Time		   : Created At 2006-7-4
'= Input       : intFlag	: now page mode
'= Description : Show form now menu
'===================================================================
Function InfoMenu(strClew)

	Dim strPutMenu
	Dim strHtmlCode
	Dim arrTmp,strTmp,intSortId

	strPutMenu = ""
	strHtmlCode = ""
	strTmp = ""

	intSortId = Trim(Request("intSortId"))
	If Len(intSortId) = 0 Or Not IsNumeric(intSortId) Then
		intSortId = 0
	End If

	GBL_objPubDB.Clear()
	GBL_objPubDB.AllSQL = "SELECT SORT_NAME,SORT_DESC FROM CLASS_SORT WHERE SORT_ID=" & intSortId
	GBL_objPubDB.SQLRSExecute()

	If GBL_objPubDB.intRsNum > 0 Then

		strPutMenu = "&nbsp;<img src='" & GBL_strHomeURL & "images/new/nl.gif' border=0 align=absmiddle>&nbsp;<a href='" & GBL_strHomeURL & "index.asp' title='回到首页'>首页</a> &gt;&gt;<a title='进入' href='" & GBL_strHomeURL & "info/info_list.asp?intSortId=" & intSortId & "' > " & GBL_objPubDB.objPubRS("SORT_NAME") & "</a>"

		If Trim(strClew) <> "" Then
			strPutMenu = strPutMenu & " &gt;&gt; " & strClew
		End If
	
	End If

	InfoMenu = strPutMenu

End Function
%>