꿈속나라

당신에게로 떠나는 꿈속여행 - 꿈속나라(http://www.inyourdream.net)

입국하기 | 영주권 신청

몸부림 골라골라

착각한아이

숫자맞추기

흔적남기기

친구집 놀러가기

모두드림님의 홈

在祐님의 홈

현우님의 홈

별아해님의 홈

햇살님의 홈

이나니님의 홈

유리알님의 홈

냠냠이님의 홈

꼭지님의 홈

대성님의 홈

수정하실때는 필수항목을 모두 입력하셔야 합니다.

이름 *	공지사항 비공개 HTML 사용
제목 *
내용 *	웹클래스로 짠 프로그램인데요 이것을 서버에 올려서 실행하면 클라이언트 피씨의 특정 디렉토리(여기서는 C\data)에 파일이 생성되지가 않아요... 좋은 방법이 없을까요?? 웹클래스는 active-X도 안된다는군요... 답변 부탁드립니다... ================================================== With Search_rs .ActiveConnection = DataEnv.Con ' CATID로 조회할 경우 If Request.Form("search_sel") = "1" Then SQLText = "Select (cat_id \|\| cat_id_ser) as cat_id, tran_dt, tran_hms, tran_seq, card_acqu, " _ & " req_dt, req_dt, (cond_yn \|\| err_cd) as err_cd, bki, bka, tran_kd, card_id, expir_ym, " _ & " appr_no, tran_amt, install_mm, mod_veri_no, merc_id " _ & " From ddcst03 " _ & " Where " _ & " CAT_ID = '" & Search_Key & "' and " _ & " req_dt >= to_date('" & Session("KeySet1") & "', 'yyyy/mm/dd') AND " _ & " req_dt <= to_date('" & Session("KeySet2") & "', 'yyyy/mm/dd') " '사업자등록번호로 조회할 경우 ElseIf Request.Form("search_sel") = "2" Then SQLText = SQLText = "Select (a.cat_id \|\| a.cat_id_ser) as cat_id, a.tran_dt, a.tran_hms, a.tran_seq, a.card_acqu, " _ & " a.req_dt, a.req_dt, (a.cond_yn \|\| a.err_cd) as err_cd, a.bki, a.bka, a.tran_kd, a.card_id, a.expir_ym, " _ & " a.appr_no, a.tran_amt, a.install_mm, a.mod_veri_no, a.merc_id " _ & " From ddcst03 a, (select cat_id from bmscm01 where buss_id = '" & Search_Key & "') b " _ & " Where a.cat_id = b.cat_id and " _ & " a.req_dt >= to_date('" & Session("KeySet1") & "', 'yyyy/mm/dd') AND " _ & " a.req_dt <= to_date('" & Session("KeySet2") & "', 'yyyy/mm/dd') " ' 대리점코드로 조회할 경우 Else SQLText = "Select (a.cat_id \|\| a.cat_id_ser) as cat_id, a.tran_dt, a.tran_hms, a.tran_seq, a.card_acqu, " _ & " a.req_dt, a.req_dt, (a.cond_yn \|\| a.err_cd) as err_cd, a.bki, a.bka, a.tran_kd, a.card_id, a.expir_ym, " _ & " a.appr_no, a.tran_amt, a.install_mm, a.mod_veri_no, a.merc_id " _ & " From ddcst03 a, (select cat_id from bmscm01 where intl_agent='" & Search_Key & "') b " _ & " Where a.cat_id = b.cat_id and " _ & " a.req_dt >= to_date('" & Session("KeySet1") & "', 'yyyy/mm/dd') AND " _ & " a.req_dt <= to_date('" & Session("KeySet2") & "', 'yyyy/mm/dd') " End If .Source = SQLText .Open , , adOpenForwardOnly, adLockReadOnly End With If Search_rs.RecordCount > 0 And IsDate(Session("KeySet1")) = True Then WFile = FreeFile Str_Make_File = "Ddc" & Format(Date, "yymmdd") & ".dat" Str_Make_File = "\data\" & Trim(Str_Make_File) Open Str_Make_File For Output As #WFile ' 출력을 위해 파일을 엽니다. ListCount = 0 Do While Not Search_rs.EOF Str_temp = Search_rs.Fields("cat_id") Str_temp = Str_temp & Format(Search_rs.Fields("tran_dt"), "yymmdd") & Format(Search_rs.Fields("tran_hms"), "hhmmss") Str_temp = Str_temp & Format(Search_rs.Fields("tran_seq"), "0000") & "0" Str_temp = Str_temp & Space(3 - Len(Search_rs.Fields("card_acqu"))) & Search_rs.Fields("card_acqu") If IsNull(Search_rs.Fields("req_dt")) = True Then Str_temp = Str_temp & " " Else Str_temp = Str_temp & Format(Search_rs.Fields("req_dt"), "mmdd") & Format(Search_rs.Fields("req_dt"), "yymmdd") & Format(Search_rs.Fields("req_dt"), "yymmdd") End If Str_temp = Str_temp & " " Str_temp = Str_temp & Space(2 - Len(Search_rs.Fields("err_cd"))) & Search_rs.Fields("err_cd") Str_temp = Str_temp & " " Str_temp = Str_temp & Space(2 - Len(Search_rs.Fields("bki"))) & Search_rs.Fields("bki") Str_temp = Str_temp & Space(2 - Len(Search_rs.Fields("bka"))) & Search_rs.Fields("bka") Str_temp = Str_temp & Space(2 - Len(Search_rs.Fields("tran_kd"))) & Search_rs.Fields("tran_kd") Str_temp = Str_temp & "0000000000000" Str_temp = Str_temp & Space(16 - Len(Search_rs.Fields("card_id"))) & Search_rs.Fields("card_id") Str_temp = Str_temp & Space(4 - Len(Search_rs.Fields("expir_ym"))) & Search_rs.Fields("expir_ym") Str_temp = Str_temp & "000" Str_temp = Str_temp & Format(Search_rs.Fields("tran_dt"), "yymmdd") & Format(Search_rs.Fields("tran_hms"), "hhmmss") Str_temp = Str_temp & Space(8 - Len(Trim(Search_rs.Fields("appr_no")))) & Trim(Search_rs.Fields("appr_no")) Str_temp = Str_temp & " " & "41" Str_temp = Str_temp & Format(Search_rs.Fields("tran_amt"), "0000000000") Str_temp = Str_temp & "000000000" Str_temp = Str_temp & Format(Search_rs.Fields("tran_amt"), "0000000000") Str_temp = Str_temp & Format(Search_rs.Fields("install_mm"), "00") Str_temp = Str_temp & " " Str_temp = Str_temp & Format(Search_rs.Fields("tran_seq"), "0000") Str_temp = Str_temp & " " Str_temp = Str_temp & Space(2 - Len(Search_rs.Fields("mod_veri_no"))) & Search_rs.Fields("mod_veri_no") Str_temp = Str_temp & " " Str_temp = Str_temp & Space(15 - Len(Trim(Search_rs.Fields("merc_id")))) & Trim(Search_rs.Fields("merc_id")) Str_temp = Str_temp & Space(15 - Len(Trim(Search_rs.Fields("merc_id")))) & Trim(Search_rs.Fields("merc_id")) Print #WFile, Str_temp Search_rs.MoveNext Loop Else End If .Write "</center></body>" .Write "</html>" End With Close #WFile Search_rs.Close Set Search_rs = Nothing

추가할 이미지를 입력하세요.

이미지 1
이미지설명 1

추가할 자료를 입력하세요.

자료 1
자료설명 1

추가할 싸이트를 입력하세요.

관련싸이트 1
싸이트설명 1

Password *