플래시수업
플래시로 만든 보고서 서버(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] | 함영기 | 163455 | 2003.08.21 18:57 | |
307 | [플래시유틸] PPT를 SWF로 변환해 주는 프로그램 | 이상호 | 6308 | 2004.10.28 10:51 |
306 | [플래시강좌] 5분생활영어 어떻게 만들어 졌나 [3] | 유춘모 | 3042 | 2004.10.27 23:48 |
305 | [플래시수업] ppt 를 swf 로 변환하는 프로그램으로 만든 본문 지도 자료 | 이현정 | 3365 | 2004.10.27 22:17 |
304 | [플래시유틸] 플래쉬 앨범 만들어주는 프로그램.. [6] | 이현정 | 15191 | 2004.10.27 11:07 |
303 | [플래시강좌] [mx2004]스케치북 색칠하기 만들기 | 유춘모 | 2798 | 2004.10.24 19:56 |
302 | [기타플래시] 플래시 노래방 모음 [2] | 김창현 | 13920 | 2004.10.16 12:09 |
301 | [플래시수업] 초등학교 저학년용 사진 그림카드 맞추기 [4] | 유춘모 | 4163 | 2004.10.09 23:05 |
300 | [플래시수업] 초등학교 저학년용 글자 맞추기(1) | 유춘모 | 3551 | 2004.10.08 21:20 |
299 | [플래시게임] RE:[소스] 상상력을 길러주는 플래시 게임 | 유춘모 | 3083 | 2004.10.06 15:59 |
298 | [플래시게임] RE:[소스] 기찻길 놓기 플래시 게임 | 유춘모 | 3078 | 2004.10.06 15:57 |
297 | [기타플래시] 소스추가 [1] | 유춘모 | 1599 | 2004.10.04 22:43 |
296 | [질문과답변] 긴급..알려주세요..플레시연동과 파워포인트 삽입 [1] | 김재철 | 3349 | 2004.10.04 10:50 |
295 | [플래시유틸] 서울시 교육청보급 5분 생활영어 학교이름 넣기(초등) | 유춘모 | 2503 | 2004.10.03 21:29 |
294 | [플래시유틸] 서울시 교육청보급 5분 생활영어 학교이름 넣기(중등) | 유춘모 | 2691 | 2004.10.03 18:59 |
293 | [플래시강좌] [소스]재미있는 스케치북(위에 소개된) 뜯어보자 | 유춘모 | 2632 | 2004.10.01 22:02 |
292 | [기타플래시] RE:재미있는 플래시 스케치북 뜯어보자! | 유춘모 | 1843 | 2004.10.01 21:58 |
291 | [플래시게임] mx2004 combobox와 Listbox사용 방법 | 유춘모 | 2287 | 2004.09.15 23:25 |
>> | [플래시강좌] 플래시로 만든 보고서 서버(ASP) 저장하는 방법 | 유춘모 | 6203 | 2004.09.08 23:53 |
289 | [플래시게임] [게임] 상상력을 길러주는 플래시 게임 [2] | 함영기 | 5951 | 2004.09.06 16:13 |
288 | [플래시게임] [게임] 기찻길 놓기 플래시 게임 [1] | 함영기 | 4295 | 2004.09.05 21:49 |