교컴 키우기 자발적 후원 |
- 1가입인사
- 2슈링클스(Shrinkles) 열쇠고리(keyring) 제작 학습지
- 3그림으로 공부하는 과학사
- 4초대! 『기준 없이』 출간 기념 스티븐 샤비로 강연 (2024년 4월 20일 토 오전 10시)
- 5페임랩(Fame Lab) 학습지
- 6새 책! 『육식, 노예제, 성별위계를 거부한 생태적 저항의 화신, 벤저민 레이』 글·그림 데이비드 레스터, 마커스 레디커·폴 불 엮음, 김정연 옮김, 신은주 감수
- 7마음 속 우편함
- 8새 책! 『죽음의 왕, 대서양의 해적들』 글·그림 데이비드 레스터, 글 마커스 레디커, 폴 불 엮음, 김정연 옮김, 신은주 감수
- 9스무가지 조언
- 10사랑의 다른 말
|
span> |
교컴 포토갤러리 |
플래시수업
플래시로 만든 보고서 서버(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] | 함영기 | 163081 | 2003.08.21 18:57 | |
307 | [플래시강좌] 5분생활영어 어떻게 만들어 졌나 [3] | 유춘모 | 3021 | 2004.10.27 23:48 |
306 | [플래시수업] ppt 를 swf 로 변환하는 프로그램으로 만든 본문 지도 자료 | 이현정 | 3352 | 2004.10.27 22:17 |
305 | [플래시유틸] 플래쉬 앨범 만들어주는 프로그램.. [6] | 이현정 | 15170 | 2004.10.27 11:07 |
304 | [플래시강좌] [mx2004]스케치북 색칠하기 만들기 | 유춘모 | 2785 | 2004.10.24 19:56 |
303 | [기타플래시] 플래시 노래방 모음 [2] | 김창현 | 13901 | 2004.10.16 12:09 |
302 | [플래시수업] 초등학교 저학년용 사진 그림카드 맞추기 [4] | 유춘모 | 4140 | 2004.10.09 23:05 |
301 | [플래시수업] 초등학교 저학년용 글자 맞추기(1) | 유춘모 | 3535 | 2004.10.08 21:20 |
300 | [질문과답변] 긴급..알려주세요..플레시연동과 파워포인트 삽입 [1] | 김재철 | 3335 | 2004.10.04 10:50 |
299 | [플래시유틸] 서울시 교육청보급 5분 생활영어 학교이름 넣기(초등) | 유춘모 | 2491 | 2004.10.03 21:29 |
298 | [플래시유틸] 서울시 교육청보급 5분 생활영어 학교이름 넣기(중등) | 유춘모 | 2678 | 2004.10.03 18:59 |
297 | [플래시강좌] [소스]재미있는 스케치북(위에 소개된) 뜯어보자 | 유춘모 | 2619 | 2004.10.01 22:02 |
296 | [플래시게임] mx2004 combobox와 Listbox사용 방법 | 유춘모 | 2271 | 2004.09.15 23:25 |
>> | [플래시강좌] 플래시로 만든 보고서 서버(ASP) 저장하는 방법 | 유춘모 | 6182 | 2004.09.08 23:53 |
294 | [플래시게임] [게임] 상상력을 길러주는 플래시 게임 [2] | 함영기 | 5932 | 2004.09.06 16:13 |
293 | [플래시게임] RE:[소스] 상상력을 길러주는 플래시 게임 | 유춘모 | 3071 | 2004.10.06 15:59 |
292 | [플래시게임] [게임] 기찻길 놓기 플래시 게임 [1] | 함영기 | 4280 | 2004.09.05 21:49 |
291 | [플래시게임] RE:[소스] 기찻길 놓기 플래시 게임 | 유춘모 | 3069 | 2004.10.06 15:57 |
290 | [플래시수업] [플래시수업] 환경수업 자료-천성산 도룡뇽을 살려주세요 | 함영기 | 2445 | 2004.08.25 16:12 |
289 | [플래시수업] 여러가지 기능이 있는 그림판 [2] | 8175 | 3824 | 2004.08.21 22:53 |
288 | [기타플래시] 빌게츠와 외계인 | 양일동 | 3134 | 2004.08.20 00:14 |