出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
POSTがされない 　 たかとさん [2005/09/25 13:55:11] [5266]
　 Re:POSTがされない 　 Mooさん [2005/09/26 16:52:18] [5271]
　 　 Re:POSTがされない 　 たかとさん [2005/09/28 9:43:02] [5280]
[5266] POSTがされない
投稿者：たかとさん 2005/09/25 13:55:11
はじめまして、たかとと申します。
初めて投稿させていただきます。

2000Server(IIS5.0)で動作していた、WEBアプリを新規に
2003Server(IIS6.0)に移行しました。

しかし、一部のページが動作しません。２〜３日いろいろ調べたのですが、いきずまってしまいました。

動作させたい内容は、画面に表示している、ある会員の方に送信するメール内容をwebから保存する処理を行いたいのですが、

「保存ボタン」をクリックしたら、保存するかどうかの確認ダイアログが表示され、csvファイルに保存出来るはずが
「保存ボタン」をクリックすると、画面がリフレッシュするだけで確認ダイアログが表示されず画面の内容も消えてし
まいます。どうも、保存ボタンをクリックした場合、exe_modeがPOSTされるはずが、されてないようです。

ソースも、数年前で他人が書いているのでおかいし所もあると思いますが、知恵をお貸し下さい。かなり、ソースを省いて
おりますが。必要な情報があればおっしゃってください。よろしくお願いします。

<%@ language="VBScript" %>
<%

wkCode = Request.Form("code")
If wkCode = "" Then
wkCode = 9999
End If


If KAINNO <> "" Then
Serach()
End If

Response.write "exeModeは" & Session("exe_mode")

If Session("exe_mode") = "1" Then
fileSave()
End If

Mail()

%>

<%
Private Sub Mail()

省略・・・

%>
<html lang="ja">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<meta http-equiv="Content-Script-Type" content="text/javascript">

<script type="text/javascript">


function fileSaveCheck() {
document.mail.exe_mode.value = 1;
alert(document.mail.exe_mode.value);
<%Session("exe_mode") = 1%>
document.mail.action='mail.asp';
document.mail.submit();
document.mail.exe_mode.value = 2;
}

</script>
<link rel="stylesheet" type="text/css" href="css/admin.css"></link>
</head>
<body>

<span class="xlText">
<b></b>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<a href="../account.asp">メニューに戻る</a><br>
<span class="mText">
<table cellspacing="2" cellpadding="2">
<tr>
<td colspan="3"><hr size="2"></td>
</tr>

<tr>
<td></td>
<td></td>
<td align="right">
<table cellspacing="0" cellpadding="4">
<tr >
<form name="read" action="mail_upload.asp" ENCTYPE="multipart/form-data" method="POST" onSubmit="fileReadCheck();return false">
<td class="mText" bgcolor="#F0F0F0">
<b>読み込みファイル名：</b>
<input type="FILE" name="file_name">
<input type="submit" value="開く">
</td>
</form>
<form name="mail" action="mail.asp" ENCTYPE="multipart/form-data" method="POST">
<td class="mText" bgcolor="#F0F0F0">
<input type="hidden" name="MAILFLG" value="<%= MAILFLG %>">
<input type="button" value="保存" onClick="fileSaveCheck()">
<input type="hidden" name="exe_mode" value="2">

<%For wkint=0 To Ubound(Signature)%>
<input type="hidden" name="mail_signature" value="<%=Signature(wkint)%>">
<%Next%>
<%For wkint=0 To Ubound(MailBody)%>
<input type="hidden" name="mail_body" value="<%=MailBody(wkint)%>">
<input type="hidden" name="mail_subject" value="<%=MailSubject(wkint)%>">
<input type="hidden" name="mail_code" value="<%=Code(wkint)%>">
<input type="hidden" name="mail_memo" value="<%=Memo(wkint)%>">
<input type="hidden" name="mail_memo2" value="<%=Memo2(wkint)%>">
<input type="hidden" name="mail_signature2" value="<%=MailSignature(wkint)%>">
<%Next%>
<input type="hidden" name="status" value="<%=wkStatus%>">
<input type="hidden" name="econorderid" value="<%=wkEconOID%>">
<input type="hidden" name="typ" value="<%=wkType%>">
<input type="hidden" name="tel" value="<%=wkTel%>">
<input type="hidden" name="sdt" value="<%=wkSendDt%>">
<input type="hidden" name="dt" value="<%=wkMailDate%>">
<input type="hidden" name="fa" value="<%=Server.HTMLEncode(wkFromAddress)%>">
</td>

</tr>
</table>
</td>
</tr>
<input name="code" type="hidden" value="<%=wkCode%>">
<tr>
<td colspan="3"><hr size="2"></td>
</tr>
<tr>
<td bgcolor="#F0F0F0" class="sText">題名：</td>
<td></td>
<td class="mText"><input name="mlSubject" type="text" value="<%=viewSubject%>" size="90" class="tblText imeOn"></td>
</tr>
<tr valign="top">
<td bgcolor="#F0F0F0" class="sText">本文：<br><br>
<div align="right" class="sText">↓雛型を表示<br>
<%For wkint=0 To Ubound(ary_category)%>
<a href="#" onMouseOver="MM_showMenu(window.mm_menu_0731183610_<%=wkint%>,149,390+20*<%=wkint%>,null,'popmenu_r2_c2');"><%=ary_category(wkint)%> </a><br>
<%Next%>
</td>
<td></td>
<td><textarea name="mlBody" rows="37" cols="80" class="ediText imeOn"><%=mlBody%></textarea></td>
</tr>

<tr>
<td bgcolor="#F0F0F0" class="sText">対応歴メモ：</td>
<td></td>
<td class="mText"><input name="Memo" type="text" value="<%=wkMemo%>" size="90" class="tblText imeOn"></td>
</tr>

</form>
</table>
</body>
</html>
<%
End Sub
%>
<%
Private Sub Serach()

省略・・・
%>

<%
Private Sub fileSave()

' ============================================================
' 入力内容保存
' ============================================================

Response.Expires = 60
Response.Buffer = TRUE
Response.Clear
Response.AddHeader "Content-Type", "text/csv; charset=SJIS"
Response.AddHeader "Content-Disposition", "filename=mail.csv"
Response.AddHeader "Expires", "Fri, 23 Jun 2100 03:37:44 GMT"

Memo = Request.Form("Memo")


Response.Write Memo & "," & VBCrlf

Response.End

End Sub
%>
[5271] Re:POSTがされない
投稿者：Mooさん の <ホームページ> 2005/09/26 16:52:18
こんにちは。Mooと申します。

> はじめまして、たかとと申します。
> 初めて投稿させていただきます。
>
> 2000Server(IIS5.0)で動作していた、WEBアプリを新規に
> 2003Server(IIS6.0)に移行しました。

問題はfileSave()にあるかもしれません。

Response.Endのまえに
Response.Flushを追加してみてはどうでしょうか？


> <%
> Private Sub fileSave()
>
> Response.Expires = 60
> Response.Buffer = TRUE
> Response.Clear
> Response.AddHeader "Content-Type", "text/csv; charset=SJIS"
> Response.AddHeader "Content-Disposition", "filename=mail.csv"
> Response.AddHeader "Expires", "Fri, 23 Jun 2100 03:37:44 GMT"
>
> Memo = Request.Form("Memo")
>
> Response.Write Memo & "," & VBCrlf
'***ここに Response.Flushを挿入***********************
> Response.End
>
> End Sub
> %>
[5280] Re:POSTがされない
投稿者：たかとさん 2005/09/28 9:43:02
お返事ありがとうございます。MOOさん
Response.Flushを入れてもだめでした。
どうも、multipart/form-dataを指定すると、Request.Formが
使えないみたいですね。

ここら辺が、原因かと思ってきました。

たかと

> こんにちは。Mooと申します。
>
> > はじめまして、たかとと申します。
> > 初めて投稿させていただきます。
> >
> > 2000Server(IIS5.0)で動作していた、WEBアプリを新規に
> > 2003Server(IIS6.0)に移行しました。
>
> 問題はfileSave()にあるかもしれません。
>
> Response.Endのまえに
> Response.Flushを追加してみてはどうでしょうか？
>
>
> > <%
> > Private Sub fileSave()
> >
> > Response.Expires = 60
> > Response.Buffer = TRUE
> > Response.Clear
> > Response.AddHeader "Content-Type", "text/csv; charset=SJIS"
> > Response.AddHeader "Content-Disposition", "filename=mail.csv"
> > Response.AddHeader "Expires", "Fri, 23 Jun 2100 03:37:44 GMT"
> >
> > Memo = Request.Form("Memo")
> >
> > Response.Write Memo & "," & VBCrlf
> '***ここに Response.Flushを挿入***********************
> > Response.End
> >
> > End Sub
> > %>

TreeBBS For ASP V.0.1.3
Program By ＹａｓＮｅｔ