<% ' ' ' %> <% main() Sub main() Dim Query Dim Content Dim Content2 Dim CSVOutput CSVOutput = Request("CSVOutput") CSVOutput = Replace("" & CSVOutput, "kaigyooygiakaigyooygiakaigyooygiakaigyooygiak", vbCrLf) Dim OutMode OutMode = Request("OutMode") 'ファイル名 Dim FileName If Left(OutMode, 10) = "EnshuJokyo" Then FileName = "演習状況一覧_" & Right(OutMode, Len(OutMode) - 10) & ".csv" ElseIf OutMode = "Taishakutaishohyo" Then FileName = "貸借対照表（自動）.csv" ElseIf OutMode = "Sonekikeisansho" Then FileName = "損益計算書（自動）.csv" Else'If OutMode = "Siwakecho" Then FileName = "仕訳帳（自動）.csv" End If 'Response.Write(CSVOutput) 'Exit Sub 'ダウンロードダイアログを開く If GB_IEmode = "1" Then Response.Expires = 0 Response.Buffer = TRUE Response.Clear Response.Charset = "shift_jis" Response.ContentType = "application/download; name=" & FileName Response.AddHeader "Content-Disposition", "attachment; filename=" & FileName Response.AddHeader "Content-Disposition", "inline; filename=" & FileName Response.Write CSVOutput Response.End Else Response.Expires = -1 Response.Clear 'ゴミが入らないように Response.ContentType = MimeType(FileName) & "; name=" & URLEncode(FileName) 'Response.Charset = "" '文字コード指定は不要 Response.AddHeader "Content-Disposition", "attachment;filename=" & URLEncode(FileName) Response.Write CSVOutput End If End Sub 'サーバサイドURIエンコード ※JavaScriptのencodeURIComponentでエンコード Function URLEncode(str) %> <% URLEncode = URLEncodeJava(str) End Function '拡張子からMIMEタイプ変換 Function MimeType(str) Dim TmpStr TmpStr = str If InStr(TmpStr, ".") > 0 And Len(TmpStr) > 4 Then TmpStr = Mid(TmpStr, InStrRev(TmpStr, ".") + 1) 'ファイル名から拡張子を取り出す End If TmpStr = LCase(TmpStr) MimeType = "application/download" If TmpStr = "pdf" Then MimeType = "application/pdf" ElseIf TmpStr = "csv" Then MimeType = "text/csv" ElseIf TmpStr = "txt" Then MimeType = "text/plain" ElseIf TmpStr = "htm" Or TmpStr = "html" Then MimeType = "text/html" ElseIf TmpStr = "xml" Then MimeType = "text/xml" ElseIf TmpStr = "js" Then MimeType = "text/javascript" ElseIf TmpStr = "vbs" Then MimeType = "text/vbscript" ElseIf TmpStr = "css" Then MimeType = "text/css" ElseIf TmpStr = "gif" Then MimeType = "image/gif" ElseIf TmpStr = "jpg" Or TmpStr = "jpeg" Then MimeType = "image/jpeg" ElseIf TmpStr = "png" Then MimeType = "image/png" ElseIf TmpStr = "bmp" Then MimeType = "image/bmp" ElseIf TmpStr = "doc" Or TmpStr = "docx" Then MimeType = "application/msword" ElseIf TmpStr = "zip" Then MimeType = "application/zip" ' ElseIf TmpStr = "" Then ' MimeType = "" End If End Function %>