combo_pick_type_add_to_sys.inc

能实现用户注册

<center>
<TABLE width="95%">
<TR>
<TD BGCOLOR="blue" align="center">
<font color="white"><b>Add A Component To This System</b></font>
</TD>
</TR>

<TR>
<form name="cboAddToSysForm" METHOD="POST" action="admin_sys_mod_add.asp">

<TD align="right">
<!-- #INCLUDE FILE="odbc_connection.inc" -->
<%
Set rsCH2 = server.createObject("ADODB.recordset")
sSQL="SELECT"
sSQL=sSQL & " SubCategoryID, strDescription"
sSQL=sSQL & " FROM tbl_SubCategories"
sSQL=sSQL & " WHERE ((CatalogHeadingID=1) AND (SubCategoryID<>3380))"
sSQL=sSQL & " ORDER BY strDescription"

rsCH2.open sSQL, conn, 3, 3 'read

if HandlesJScript=true then
	response.write "<Select Size='1' NAME='cboAddToSys' onChange='SubmitMe(this.form);'>"
else
	response.write "<Select Size='1' NAME='cboAddToSys'>"
end if

do while not (rsCH2.EOF)
	SubCat=rsCH2("SubCategoryID")
	response.write "<option value='" & SubCat & "'> " & rsCH2("strDescription") & " </option>"
	rsCH2.movenext
loop
rsCH2.close
set rsCH2=nothing
%>

</Select>
</TD>
<TD align="left">
<input type="submit" value="Go">
</TD>
</tr>
</table>
</center>