플래시수업
플래시로 만든 보고서 서버(ASP) 저장하는 방법
면일초에 계신 민둘샘 자료중에서 - 참조사이트 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
%>
- m3.swf (0B) (54)
번호 | 제목 | 글쓴이 | 조회 | 날짜 |
---|---|---|---|---|
[활용] 수업 활용 감동 플래시 150편 [37+1] | 함영기 | 163233 | 2003.08.21 18:57 | |
427 | [플래시강좌] 교플강8 - 자유낙하운동 | 민서아빠 | 8671 | 2009.02.15 22:39 |
426 | [플래시강좌] 플래시로 쉽게 공부하는 포토샵 매뉴얼 | 함영기 | 8373 | 2007.10.24 21:29 |
425 | [플래시강좌] 스위시맥스 동영상 강좌입니다(기초부터) | 강승한 | 7868 | 2006.07.18 12:50 |
424 | [플래시유틸] [프리웨어]각종 동영상포멧을 FLV와 SWF로 전환시켜주는 프램 | 유춘모 | 7725 | 2008.01.29 22:29 |
423 | [플래시수업] 환경교육과 플래시가 만나면? [6] | 함영기 | 7516 | 2007.10.29 14:48 |
422 | [플래시강좌] 교플강9 - 관성효과에 의한 운동-키보드 입력 | 민서아빠 | 7278 | 2009.02.15 22:42 |
421 | [플래시강좌] 교플강7-물체의 가속도 운동 구현하기 | 민서아빠 | 7217 | 2009.02.15 22:36 |
420 | [플래시강좌] 교플강10-중력장에서 우주선 착륙게임 만들기 | 민서아빠 | 7079 | 2009.02.15 22:43 |
419 | [기타플래시] 투명인간 만들기1.0(웹캠이용) [1] | 민서아빠 | 6904 | 2009.02.08 21:27 |
418 | [플래시강좌] 서버에 실시간 AVI를 FLV로 변환하는 날개를 달자 | 유춘모 | 6778 | 2008.01.03 22:02 |
417 | [플래시강좌] 교플강1(구구단 만들기를 위한 기초개념) [1] | 김정식 | 6660 | 2005.05.29 13:23 |
416 | [플래시유틸] PPT를 SWF로 변환해 주는 프로그램 | 이상호 | 6301 | 2004.10.28 10:51 |
>> | [플래시강좌] 플래시로 만든 보고서 서버(ASP) 저장하는 방법 | 유춘모 | 6190 | 2004.09.08 23:53 |
414 | [기타플래시] [안내] 1~3분 분량의 주의집중 콘텐츠 공모 | 함영기 | 6175 | 2007.10.24 21:36 |
413 | [플래시강좌] [강좌] 파워포인트에 플래시를 삽입하자 | 함영기 | 5974 | 2003.07.21 09:43 |
412 | [플래시유틸] [유틸] ppt파일을 swf로 변환해 주는 프로그램 | 8175 | 5966 | 2003.07.30 17:13 |
411 | [플래시강좌] 웹페이지 인쇄시 프린터 제어하기 | 8175 | 5944 | 2004.02.29 13:04 |
410 | [플래시게임] [게임] 상상력을 길러주는 플래시 게임 [2] | 함영기 | 5940 | 2004.09.06 16:13 |
409 | [기타플래시] [유틸] 마음대로 그려보는 플래시 스케치북 [4] | 함영기 | 5775 | 2004.03.04 08:18 |
408 | [플래시유틸] 플래시효과음모음-1 | 8175 | 5757 | 2004.01.30 21:51 |