combostate.inc

能实现用户注册

<!-- #INCLUDE FILE="odbc_connection.inc" -->
<%
Set rsSV = server.createObject("ADODB.recordset")
sSQL="SELECT"
sSQL=sSQL & " s_State"
sSQL=sSQL & " FROM tbl_States"
sSQL=sSQL & " ORDER BY s_State"
rsSV.open sSQL, conn, 3, 3 'read

response.write "<Select Size='1' NAME='s_State'>"

DO WHILE NOT (rsSV.EOF)
	selected=""
	if rsSV("s_State")=s_State then selected=" SELECTED"
	response.write "<option value='" & rsSV("s_State") & "'" & selected & "> " & rsSV("s_State") & " </option>"
	rsSV.movenext
LOOP
rsSV.CLOSE
set rsSV=nothing
response.write "</Select>"
%>