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

<%
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 SQLdbadOpenForwardOnlyadLockReadOnly

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

' DB Link DisConnection
rs.Close() : Set rsNothing
db.Close() : Set dbNothing


if doCnt 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 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
%>

'asp' 카테고리의 다른 글

Form 변수 일괄처리 하기  (0) 2010.09.28
원격 서버의 SMTP 사용하기  (0) 2010.09.28
동적인 Select Box [단계식]  (0) 2010.09.28
cdo를 이용한 메시지 발송 방화벽 대처  (0) 2010.09.28
ASP 내장 함수 모음  (1) 2010.09.28
이클립스에서 ASP 개발하기  (0) 2010.09.27

+ Recent posts