|
|
 |
|
꽁씨 / 2001-11-21 / 오후 3:01:45 / 211.33.136.24
조회수 : 137
|
| [질문] 클라이언트에서 파일생성 |
웹클래스로 짠 프로그램인데요 이것을 서버에 올려서 실행하면 클라이언트 피씨의 특정 디렉토리(여기서는 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
|
|
|
|