combocategorybar.inc

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

<!-- #INCLUDE FILE="odbc_connection.inc" -->
<%
Set rsCH = server.createObject("ADODB.recordset")
sSQL="SELECT"
sSQL=sSQL & " s_Category"
sSQL=sSQL & " FROM tbl_Categories"
sSQL=sSQL & " ORDER BY s_Category"
rsCH.open sSQL, conn, 3, 3 'read
rsCH.movelast
NumRows=rsCH.recordcount
rsCH.movefirst

if HandlesJScript=true then
	response.write "<Select Size='1' NAME='cboCategory' onChange='SubmitMe(this.form);'>"
else
	response.write "<Select Size='1' NAME='cboCategory'>"
end if
do while not (rsCH.EOF)
	response.write "<option value='" & rsCH("s_Category") & "'> " & rsCH("s_Category") & " </option>"
	rsCH.movenext
loop
rsCH.close
set rsCH=nothing
response.write "</Select>"
%>