꿈속나라

당신에게로 떠나는 꿈속여행 - 꿈속나라(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 *