면일초에 계신 민둘샘 자료중에서 - 참조사이트 http://educode.net/educode/mindool/intro.html

복잡한 알고리즘을 피하고 아주 간단하게 풀어놓았습니다.

v1, v2, v3 ....는 변수명 이고 플래시파일로 보낼때 response.write로 &v2=데이타로 기록합니다.

플래시에 입력된 데이타를 서버에서 받을땐 request문을 씁니다. 아주 기초적인 스크립은 알고 있어야

서버와 플래시 파일이 연동되겠죠.

dbopen.asp파일***********************************************************

\'여기서의 디비는 ms-sql2000의 예입니다. 일반 오피스에 들어 있는 access mdb도 사용가능합니다

<%
    Set db = Server.CreateObject(\"ADODB.Connection\")
    db.ConnectionString = \"Provider=\'SQLOLEDB.1\';User id=\'sa\' ;password=\'암호\' ;Persist Security info=\'false\' ; Data Source=\'127.0.0.1\' ;Connect Timeout=0; Initial Catalog=\'데이타베이스명\'\"
    db.Open
%>

input.asp 파일***************************************************************

<!-- #INCLUDE FILE=\"adovbs.inc\" -->
<%
\'ha=request(\"ha\")
ban=request(\"ban\")
bun=request(\"bun\")
dan=request(\"dan\")
vname=request(\"vname\")
v1=request(\"v1\")
v2=request(\"v2\")
v3=request(\"v3\")
v4=request(\"v4\")
v5=request(\"v5\")
v6=request(\"v6\")
v7=request(\"v7\")
v8=request(\"v8\")
v9=request(\"v9\")
v10=request(\"v10\")
v11=request(\"v10\")
v12=request(\"v10\")
pass=request(\"pass\")
%>
<!-- #INCLUDE FILE=\"dbopen.asp\" -->
<%

    SQL = \"Select * from 사고력 where 반=\" & ban & \" and 번호=\" & bun & \" and 단원=\'\" & dan & \"\'\"

 Set RS =Server.CreateObject(\"ADODB.Recordset\")
    Set RS.ActiveConnection = db

 \' 레코드 셋 얻어오기
      RS.Source = SQL
      RS.CursorType = adOpenDynamic
      RS.LockType = adLockOptimistic
      RS.Open

      if rs.eof then
           rs.addnew
      end if
      rs(\"반\")=ban
      rs(\"번호\")=bun
   if trim(vname)<>\"\" then
        rs(\"이름\")=trim(vname)
      end if
   if trim(dan)<>\"\" then
        rs(\"단원\")=dan
      end if
   if trim(v1)<>\"\" then
        rs(\"v1\")=v1
      else
        rs(\"v1\")=null
      end if
   if trim(v2)<>\"\" then
        rs(\"v2\")=v2
      else
        rs(\"v2\")=null
      end if
   if trim(v3)<>\"\" then
        rs(\"v3\")=v3
      else
        rs(\"v3\")=null
      end if
   if trim(v4)<>\"\" then
        rs(\"v4\")=v4
      else
        rs(\"v4\")=null
      end if
   if trim(v5)<>\"\" then
        rs(\"v5\")=v5
      else
        rs(\"v5\")=null
      end if
   if trim(v6)<>\"\" then
        rs(\"v6\")=v6
      else
        rs(\"v6\")=null
      end if
   if trim(v7)<>\"\" then
        rs(\"v7\")=v7
      else
        rs(\"v7\")=null
      end if
   if trim(v8)<>\"\" then
        rs(\"v8\")=v8
      else
        rs(\"v8\")=null
      end if
   if trim(v9)<>\"\" then
        rs(\"v9\")=v9
      else
        rs(\"v9\")=null
      end if
   if trim(v10)<>\"\" then
        rs(\"v10\")=v10
      else
        rs(\"v10\")=null
      end if
   if trim(v11)<>\"\" then
        rs(\"v11\")=v11
      else
        rs(\"v11\")=null
      end if
   if trim(v12)<>\"\" then
        rs(\"v12\")=v12
      else
        rs(\"v12\")=null
      end if
   if trim(pass)<>\"\" then
        rs(\"pass\")=trim(pass)
      else
        rs(\"pass\")=null
      end if
  rs.update
   RS.Close
  Set RS = Nothing
    db.close
  Set db = Nothing
  response.write \"msg=done\"
%>
load.asp파일************************************************************

<%@LANGUAGE=\"VBSCRIPT\"%>
<%
\'ha=request(\"ha\")
ban=request(\"ban\")
bun=request(\"bun\")
dan=request(\"dan\")
vname=request(\"vname\")
pass=request(\"pass\")
%>
<!-- #INCLUDE FILE=\"dbopen.asp\" -->
<%

    SQL = \"Select * from 사고력 where 반=\" & ban & \" and 번호=\" & bun & \" and 단원=\'\" & dan & \"\'\"
 
 
 Set RS =Server.CreateObject(\"ADODB.Recordset\")
 set rs = db.execute(SQL)

   if not rs.eof then
    IF NOT ISNULL(rs(\"pass\")) then
   if pass=rs(\"pass\") then
    IF NOT ISNULL(rs(\"v1\")) then
          response.write \"v1=\" & rs(\"v1\")  
    end if
    IF NOT ISNULL(rs(\"v2\")) then
          response.write \"&v2=\" & rs(\"v2\")  
    end if
    IF NOT ISNULL(rs(\"v3\")) then
          response.write \"&v3=\" & rs(\"v3\")  
    end if
    IF NOT ISNULL(rs(\"v4\")) then
          response.write \"&v4=\" & rs(\"v4\")  
    end if
    IF NOT ISNULL(rs(\"v5\")) then
          response.write \"&v5=\" & rs(\"v5\")  
    end if
    IF NOT ISNULL(rs(\"v6\")) then
          response.write \"&v6=\" & rs(\"v6\")  
    end if
    IF NOT ISNULL(rs(\"v7\")) then
          response.write \"&v7=\" & rs(\"v7\")  
    end if
    IF NOT ISNULL(rs(\"v8\")) then
          response.write \"&v8=\" & rs(\"v8\")  
    end if
    IF NOT ISNULL(rs(\"v9\")) then
          response.write \"&v9=\" & rs(\"v9\")  
    end if
    IF NOT ISNULL(rs(\"v10\")) then
          response.write \"&v10=\" & rs(\"v10\")  
    end if
    IF NOT ISNULL(rs(\"v11\")) then
          response.write \"&v11=\" & rs(\"v11\")  
    end if
    IF NOT ISNULL(rs(\"v12\")) then
          response.write \"&v12=\" & rs(\"v12\")  
    end if
     response.write \"&login=ok\"
     else
         Response.Write \"&login=no\"
     end if
  end if
     end if
      \'response.write \"loadmsg=\" & ban & bun & pass

   RS.Close
  Set RS = Nothing
    db.close
  Set db = Nothing
%>