ClassicASP 열려진 팝업창(새창/자식창)에서 부모창으로 결과 선택후 전송하기
페이지 정보
본문
새창에서 검색결과를 부모창에 값 넘겨주기
##### test.asp #####
<script type="text/javascript">
<!--
function newwindow(URL,width,height) { // 새창변수 newwindow 라고 선언
var str,width,height;
str="'toolbar=no, location=no, directories=no, status=no, menubar=no, scrollbars=no, resizable=no, copyhistory=no,";
str=str+"width="+width;
str=str+",height="+height+"'";
window.open(URL,'remote',str);
}
//-->
</script>
무료 초대권 확인<br>
<input name="free" type="text" id="free" style="width:70px" readonly /> <img src="newwin.gif" alt="새창검색" align="absmiddle" onclick="newwindow('test_win.asp',400,180)" />
##### dbconfig.asp #####
<%
dim conn1, Db
conn1="provider=sqloledb;server=DB주소;Database=cadgraphics;UID=DB아이디;PWD=DB비밀번호;"
Set Db = Server.CreateObject("ADODB.Connection")
db.open conn1
%>
##### test_win.asp #####
<%@ Language=VBScript %>
<!--#include file="dbconfig.asp"-->
<%
dim free, sql, rs
' sqlcheck 함수는 https://www.happyjung.com/lecture/480 참고
free = sqlCheck(Request.Form("free"))
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>HappyJung.com</title>
<script type="text/javascript">
<!--
function ok() {
if (document.form.free.value=="" ) {
alert("\ 인증할 번호를 입력하여 주시기바립니다.");
return;
}
document.form.submit();
}
function InStrData(free){ // 부모창에서 사용한 변수 free
//parent.window.close();
//parent.form.free.focus();
opener.document.form.free.value = '<%=free%>'; // <%=free%> 는 아래에서 넘어온 값
window.close();
}
//-->
</script>
</head>
<body>
<center>
<table width="400" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="33" bgcolor="#d82d25"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="20"> </td>
<td> <strong><font color="#FFFFFF">무료 코드번호</font></strong></td>
</tr>
</table></td>
</tr>
<tr>
<td valign="top"><table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td align="center" style="padding:25px 0 25px 0;">
<%
if not free = "" then
sql="select freecode,wdate from 디비테이블 where freecode='"& free &"'"
Set rs = db.Execute(sql)
'response.write free
if rs.eof then
Response.Write "입력하신 <b>"& free &"</b> 의 번호가 올바르지 않습니다.<br>"
else
if wdate = "" then
%>
입력하신 <b> <%=free%></b>가 인증되었습니다. <br>등록된 번호는 재신청이 불가합니다.<br>신청을 계속하시겠습니까?<br><br>
<center><a href="javascript:InStrData('<%=free%>')"><b>[ 사용하기 ]</b></a></center>
<%
else
Response.Write "입력하신 <b>"& free &"</b>는 이미 등록된 번호입니다.<br><br><script type='text/javascript'><!-- self.close(); } --></script><a href='#' onclick='javascript:window.close();'><b>[ 창닫기 ]</b></a>"
end if
response.end
end if
end if
%>무료 코드번호를 입력하여주세요</td>
</tr>
<tr>
<td height="40" align="center" bgcolor="#f1f1f1">
<form action="test_win.asp" method="post" name="form" style="margin:0;">
무료 코드번호
<input name="free" type="text" class="input_box" size="20" maxlength="12" />
<input type="button" class="input_box" value="인증하기" onclick="ok()" />
</form>
</td>
</tr>
</table></td>
</tr>
</table>
</center>
</body>
</html>
댓글목록
등록된 댓글이 없습니다.