出来るのだＡＳＰ Ｑ＆Ａ掲示板（過去ＬＯＧ） 　訪問数 52046 昨日 889 今日 776
     【PR】 パソコン入門からIT専門書まで幅広く取り揃えています。セブン-イレブン受取り手数料無料のセブンアンドワイ。
Topに戻る 掲示板に戻る 検索 削除 管理者
[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>
----------------------

子ウィンドウ
----------------------
<!--#INCLUDE FILE="./include/dbcom.inc"-->
<!--#INCLUDE FILE="./include/Page.inc"-->
<!--#INCLUDE FILE="./include/session.inc"-->
<!--#INCLUDE FILE="./include/qa_sub.inc"-->
<%

main

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

%>
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS">
<SCRIPT language="JavaScript">
<!--
function CloseWin(){
window.close();
}

function PF_Tenki()
{
----ここでデータを見つけにいけばいいのかな・・？
}
// -->
</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
%>
リロードについて 　 Trapさん [2001/10/11 0:02:31] [701]
　 Re:リロードについて 　 YasNet(管理人)さん [2001/10/11 1:44:41] [704]

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