combomenubar.inc

来自「能实现用户注册」· INC 代码 · 共 36 行

<!-- #INCLUDE FILE="odbc_connection.inc" -->
<%
Set rsNav = server.createObject("ADODB.recordset")
sSQL="SELECT "
sSQL=sSQL & "PageTitle, aspFileName "
sSQL=sSQL & "FROM tbl_Nav "
sSQL=sSQL & "ORDER BY OrderNumber"
rsNav.open sSQL, conn, 3, 3 'read
rsNav.movelast
NumRows=rsNav.recordcount
rsNav.movefirst
response.write "<font color='#F01139'><b>Menu</b></font><BR>"
HandlesJScript=true
if HandlesJScript=true then %>
	<Select Size='<%=NumRows%>' NAME='cboNav' onChange='SubmitMe(this.form);'>
<% else %>
	<Select Size='<%=NumRows%>' NAME='cboNav'>
<% end if

selected=""

do while not (rsNav.EOF)
	'if rsNav("aspFileName")=session("currentPg") then
		'selected=" selected"
	'else
		'selected=""
	'end if

	'response.write "<option value='" & rsNav("aspFileName") & "'" & selected & "> " & rsNav("PageTitle") & " </option>"
	response.write "<option value='" & rsNav("aspFileName") & "'> " & rsNav("PageTitle") & " </option>"
	rsNav.movenext
loop
rsNav.close
set rsNav=nothing
response.write "</Select>"
%>