www.gusucode.com > CC校友录贴吧 CCBar源码程序asp编程 > info/info_inc.asp
<% '=================================================================== '= 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 = " <img src='" & GBL_strHomeURL & "images/new/nl.gif' border=0 align=absmiddle> <a href='" & GBL_strHomeURL & "index.asp' title='回到首页'>首页</a> >><a title='进入' href='" & GBL_strHomeURL & "info/info_list.asp?intSortId=" & intSortId & "' > " & GBL_objPubDB.objPubRS("SORT_NAME") & "</a>" If Trim(strClew) <> "" Then strPutMenu = strPutMenu & " >> " & strClew End If End If InfoMenu = strPutMenu End Function %>