出来るのだＡＳＰＱ＆Ａ掲示板（過去ＬＯＧ）

出来るのだＡＳＰＱ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
【PR】パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。

Topに戻る

掲示板に戻る

検索

削除

管理者

リロードについて　

Trapさん [2001/10/11 0:02:31] [701]

Re:リロードについて　 YasNet(管理人)さん [2001/10/11 1:44:41] [704]

[701] リロードについて

コメントする

投稿者：Trapさん 2001/10/11 0:02:31

ども、お世話になってます。Trapです。
また、お教え頂きたいのですが。

入力フィルードに入力されたデータ（コード）を元にDBアクセスを行い、データを同一aspに
表示をさせたいのですが、自分自身をactionで再読み込みすると親ウィンドウより引き継いだ
データが消えてしまいます。これを、消さずにおきたのですが可能なのでしょうか？
また、データを取得する良い方法がありましたら教えてください。

ちょっと長いですがソースです・・・
親ウィンドウ
----------------------
<FORM id="form1" name="form1">
<TABLE bgcolor="#FFFFFF" border="1" width="700" cellspacing="0" cellpadding="5">
<TR BGCOLOR="#ffffff">
<TD bgcolor="#CCFFFF">
<INPUT type="checkbox" name="c" value="1">
</TD>
<TD bgcolor="#FFFFFF">あああ</TD>
</TR>
<TR BGCOLOR="#ffffff">
<TD bgcolor="#CCFFFF">
<INPUT type="checkbox" name="c" value="2">
</TD>
<TD bgcolor="#FFFFFF">いいい</TD>
</TR>
<TR BGCOLOR="#ffffff">
<TD bgcolor="#CCFFFF">
<INPUT type="checkbox" name="c" value="3">
</TD>
<TD bgcolor="#FFFFFF">ううう</TD>
</TR>
</TABLE>
<INPUT type="button" name="qa" value="問合せ" onclick="JavaScript:PF_QA(4)">
<INPUT type="reset" name="reset" value="リセット"></CENTER>
</FORM>
----------------------

子ウィンドウ
----------------------




<%

main

dim WTB
'*************************************************************************************************
' メイン
'*************************************************************************************************
sub main

%>
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<SCRIPT language="JavaScript">

</SCRIPT>
</head>


<body bgcolor="#FFFFFF" text="#000000">
<table width="565" border="0" cellspacing="0" cellpadding="0">
<%
call set_key1()
%>
</table>
<FORM name="toiawase" id="toiawase"><center>
<TABLE>
<tr>
<TD>
<TABLE border="0" cellpadding="5" cellspacing="0">
<TR>
<TD>
<INPUT type="text" name="kai_code" size="11">
</TD>
</TR>
<TR>
<TD>
<INPUT type="button" value="転記" onclick="JavaScript:PF_Tenki()">
</TD>
</TR>
<TR>
<TD>
<INPUT type="text" name="namae" size="18">
</TD>
</TR>
<TR>
<TD>
<INPUT type="text" name="email" size="34">
</TD>
</TR>
</TABLE>
</TD>
</TR>
</TABLE>
</FORM>
</body>
</html>
<%
dbClose
end sub
%>
----------------------
include
----------------------
<%
sub set_key1()
dim w_no
dim w_cd
dim i
m_cnt = 0
For i = 1 To Request.Form("c").Count
m_cnt = m_cnt + 1
P_NO = Request.Form("c")(i)
w_no = Null2Zero(P_NO)
w_cd = "sCD" & cstr(w_no)
session("F_FIND_KEYS") = session(w_cd)
call data_get1(m_cnt)
Next
end sub
'--------------------------
sub data_get1(cnt)
SQL = "SELECT "
SQL = SQL & "kai_name, kai_code"
SQL = SQL & " FROM member"
SQL = SQL & " WHERE " & "kai_code = '" & session("F_FIND_KEYS") & "'"
Set TB = objConn.Execute(SQL,clng(0))
if NOT TB.BOF then
call sub_table(TB("kai_name").value,TB("kai_code").value,cnt)
else
Response.write "エラーです。"
end If
TB.close
Set TB=Nothing
end sub
%>

削除する

[704] Re:リロードについて

コメントする

投稿者：YasNet(管理人)さん 2001/10/11 1:44:41

こんにちは　ＹａｓＮｅｔです。
　
> 表示をさせたいのですが、自分自身をactionで再読み込みすると親ウィンドウより引き継いだ
受け取った値をhidden にセットしておくとだめ？ですか？

ほかは、アクションの時にクッキーに渡すとか・・・

これで、役に立ったのだろうか・・・不安だ・・・
　
では　では
> データが消えてしまいます。これを、消さずにおきたのですが可能なのでしょうか？
> また、データを取得する良い方法がありましたら教えてください。
>
> ちょっと長いですがソースです・・・
> 親ウィンドウ
> ----------------------
> <FORM id="form1" name="form1">
> <TABLE bgcolor="#FFFFFF" border="1" width="700" cellspacing="0" cellpadding="5">
> <TR BGCOLOR="#ffffff">
> <TD bgcolor="#CCFFFF">
> <INPUT type="checkbox" name="c" value="1">
> </TD>
> <TD bgcolor="#FFFFFF">あああ</TD>
> </TR>
> <TR BGCOLOR="#ffffff">
> <TD bgcolor="#CCFFFF">
> <INPUT type="checkbox" name="c" value="2">
> </TD>
> <TD bgcolor="#FFFFFF">いいい</TD>
> </TR>
> <TR BGCOLOR="#ffffff">
> <TD bgcolor="#CCFFFF">
> <INPUT type="checkbox" name="c" value="3">
> </TD>
> <TD bgcolor="#FFFFFF">ううう</TD>
> </TR>
> </TABLE>
> <INPUT type="button" name="qa" value="問合せ" onclick="JavaScript:PF_QA(4)">
> <INPUT type="reset" name="reset" value="リセット"></CENTER>
> </FORM>
> ----------------------
>
> 子ウィンドウ
> ----------------------
> 
> 
> 
> 
> <%
>
> main
>
> dim WTB
> '*************************************************************************************************
> ' メイン
> '*************************************************************************************************
> sub main
>
> %>
> <html><head>
> <meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
> <SCRIPT language="JavaScript">
> 
> </SCRIPT>
> </head>
>
> 
> <body bgcolor="#FFFFFF" text="#000000">
> <table width="565" border="0" cellspacing="0" cellpadding="0">
> <%
> call set_key1()
> %>
> </table>
> <FORM name="toiawase" id="toiawase"><center>
> <TABLE>
> <tr>
> <TD>
> <TABLE border="0" cellpadding="5" cellspacing="0">
> <TR>
> <TD>
> <INPUT type="text" name="kai_code" size="11">
> </TD>
> </TR>
> <TR>
> <TD>
> <INPUT type="button" value="転記" onclick="JavaScript:PF_Tenki()">
> </TD>
> </TR>
> <TR>
> <TD>
> <INPUT type="text" name="namae" size="18">
> </TD>
> </TR>
> <TR>
> <TD>
> <INPUT type="text" name="email" size="34">
> </TD>
> </TR>
> </TABLE>
> </TD>
> </TR>
> </TABLE>
> </FORM>
> </body>
> </html>
> <%
> dbClose
> end sub
> %>
> ----------------------
> include
> ----------------------
> <%
> sub set_key1()
> dim w_no
> dim w_cd
> dim i
> m_cnt = 0
> For i = 1 To Request.Form("c").Count
> m_cnt = m_cnt + 1
> P_NO = Request.Form("c")(i)
> w_no = Null2Zero(P_NO)
> w_cd = "sCD" & cstr(w_no)
> session("F_FIND_KEYS") = session(w_cd)
> call data_get1(m_cnt)
> Next
> end sub
> '--------------------------
> sub data_get1(cnt)
> SQL = "SELECT "
> SQL = SQL & "kai_name, kai_code"
> SQL = SQL & " FROM member"
> SQL = SQL & " WHERE " & "kai_code = '" & session("F_FIND_KEYS") & "'"
> Set TB = objConn.Execute(SQL,clng(0))
> if NOT TB.BOF then
> call sub_table(TB("kai_name").value,TB("kai_code").value,cnt)
> else
> Response.write "エラーです。"
> end If
> TB.close
> Set TB=Nothing
> end sub
> %>

削除する

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