동적인 Select Box [단계식]

동적인 Select Box [단계식] [출처] 동적인 Select Box [단계식]|작성자 항해자  

http://blog.naver.com/mission2hs/150029010629

<%
With request
Field1  = .QueryString("Field1")  '필요한 필드 1
Field2  = .QueryString("Field2")  '필요한 필드 2
Tables  = .QueryString("Table")   '테이블명
Wheres  = .QueryString("Where")   '조건절 A='C'
Orders  = .QueryString("Orders")  '정렬절 A DESC
frmName = .QueryString("frmName") '폼이름
fTarget = .QueryString("fTarget") '필드명
end With


' DB Link Connection
Set db = DBConnection()
Set rs = Server.CreateObject("ADODB.RecordSet")

With response
SQL = ""& _
    " SELECT"& _
    "  "& Field1       & _
    " ,"& Field2       & _
    " FROM  "& Tables  & _
    " WHERE "& Wheres  & _
    " ORDER BY "& Orders
'.write SQL
rs.Open SQL, db, adOpenForwardOnly, adLockReadOnly

if Not rs.EOF then
    vData = rs.GetRows()
    doCnt = UBound(vData,2)
else
    doCnt = -1
end if

' DB Link DisConnection
rs.Close() : Set rs= Nothing
db.Close() : Set db= Nothing


if doCnt > 0 then
    .write "<script type=""text/javascript"" language=""javascript"">"& vbcrlf
    .write "    var p= parent.document;"& vbcrlf

    .write "    var f= p.forms["""& frmName &"""].elements["""& fTarget &"""];"& vbcrlf
    .write "    f.length = "& doCnt &";"& vbcrlf
    .write "    f.options[""0""].text  = ""::선택하세요::"";"& vbcrlf
    .write "    f.options[""0""].value = """";"& vbcrlf

    for i = 0 to doCnt
        .write "    f.options["""& (i +1) &"""].text  = """& vData(0,i) &""";"& vbcrlf
        .write "    f.options["""& (i +1) &"""].value = """& vData(1,i) &""";"& vbcrlf
    next
    .write "</script>"& vbcrlf
end if
end With
%>

[출처] 동적인 Select Box [단계식]|작성자 항해자