Google Groups no longer supports new Usenet posts or subscriptions. Historical content remains viewable.
Dismiss
reload가 안되서 질문 드립니다.
0 views
Skip to first unread message
I.AM.KIM
Jan 9, 2003, 4:09:44 PM1/9/03
to
A.asp라는 페이지에 B.asp라는 iframe을 삽입했습니다.
B.asp라는 페이지에 링크을 걸어 C.asp라는 페이지를 window.open을 이용하여 창을
띄웠습니다.
C.asp라는 페이지에서 A.asp에 삽입되어 있는 B.asp라는 페이지를 reload를 하고
싶어서
opener.location.reload();를 했는데 새로 고쳐지지가 않습니다.
앞서서 제가 질문 드려서 얻은 경험으로는 C.asp는 A.asp에 직접적인 종속이 되어 있지 않기 때문에
opener로 하면 접근이 가능한것 같은데 안되서 이렇게 질문을 드립니다.
A.asp
<%
Option Explicit
Option Explicit
Dim
strConnect
Dim objDBConn, objRs
Dim strSQL
Dim intSeq, intNowPage
Dim strName, strEmail, strSubject, strContent
Dim blnTag
Dim objDBConn, objRs
Dim strSQL
Dim intSeq, intNowPage
Dim strName, strEmail, strSubject, strContent
Dim blnTag
intSeq =
Request.QueryString("seq")
intNowPage = Request.QueryString("page")
intNowPage = Request.QueryString("page")
strConnect="Provider=SQLOLEDB;Data Source=XXX.XXX.XXX.XXX;Initial
Catalog=XXXXXX;User ID=XXXXXX;Password=XXXXXX;"
Set objDBConn = Server.CreateObject("ADODB.Connection")
objDBConn.Open strConnect
Set objDBConn = Server.CreateObject("ADODB.Connection")
objDBConn.Open strConnect
strSQL = "Select
strName"
' objRs(0) - 이름
strSQL = strSQL & ",strEmail" ' objRs(1) - 이메일
strSQL = strSQL & ",strSubject" ' objRs(2) - 제목
strSQL = strSQL & ",strContent" ' objRs(3) - 내용
strSQL = strSQL & ",blnTag" ' objRs(4) - 태그사용여부
strSQL = strSQL & " From K_Board"
strSQL = strSQL & " Where intSeq = " & intSeq
strSQL = strSQL & ",strEmail" ' objRs(1) - 이메일
strSQL = strSQL & ",strSubject" ' objRs(2) - 제목
strSQL = strSQL & ",strContent" ' objRs(3) - 내용
strSQL = strSQL & ",blnTag" ' objRs(4) - 태그사용여부
strSQL = strSQL & " From K_Board"
strSQL = strSQL & " Where intSeq = " & intSeq
' response.write strSQL
Set objRs =
Server.CreateObject("ADODB.RecordSet")
objRs.Open strSQL, objDBConn
objRs.Open strSQL, objDBConn
strName =
objRs("strName")
strEmail = objRs("strEmail")
strSubject = objRs("strSubject")
strContent = objRs("strContent")
blnTag = objRs("blnTag")
strEmail = objRs("strEmail")
strSubject = objRs("strSubject")
strContent = objRs("strContent")
blnTag = objRs("blnTag")
objRs.Close
Set objRs = nothing
objDBConn.Close
Set objDBConn = nothing
%>
Set objRs = nothing
objDBConn.Close
Set objDBConn = nothing
%>
<%if request("mode")="0" then%>
<SCRIPT LANGUAGE="JavaScript">
<!--
window.open("SimpleUpload.asp?Seq=<%=intSeq%>","SimpleUpload","width=500,height=300,toobar=no,location=no,status=no,menubar=no,resizable=no")
//-->
</SCRIPT>
<% end if %>
<html>
<head>
<title>수정하기</title>
<link href="board.css" rel="stylesheet">
<script language="javascript" type="text/javascript" src="board.js"></script>
</head>
<body>
<div align=center>
<form name="editForm" method="post" action="edit_ok.asp?seq=<%=intSeq%>">
<table class="Table_Regist" border=1 cellspacing="0" cellpadding="0" style="border-width:'1 1 1 1';">
<tr>
<td class=TD_Regist_Left>이름</td>
<td class=TD_Regist_Right> <input type="text" name="userName" maxlength=15 size="75" value="<%=strName%>" class=Input_Regist></td>
</tr>
<SCRIPT LANGUAGE="JavaScript">
<!--
window.open("SimpleUpload.asp?Seq=<%=intSeq%>","SimpleUpload","width=500,height=300,toobar=no,location=no,status=no,menubar=no,resizable=no")
//-->
</SCRIPT>
<% end if %>
<html>
<head>
<title>수정하기</title>
<link href="board.css" rel="stylesheet">
<script language="javascript" type="text/javascript" src="board.js"></script>
</head>
<body>
<div align=center>
<form name="editForm" method="post" action="edit_ok.asp?seq=<%=intSeq%>">
<table class="Table_Regist" border=1 cellspacing="0" cellpadding="0" style="border-width:'1 1 1 1';">
<tr>
<td class=TD_Regist_Left>이름</td>
<td class=TD_Regist_Right> <input type="text" name="userName" maxlength=15 size="75" value="<%=strName%>" class=Input_Regist></td>
</tr>
<tr>
<td class=TD_Regist_Left>비밀번호</td>
<td class=TD_Regist_Right> <input type="password" name="userPwd" maxlength=15 size="75" class=Input_Regist></td>
</tr>
<td class=TD_Regist_Left>비밀번호</td>
<td class=TD_Regist_Right> <input type="password" name="userPwd" maxlength=15 size="75" class=Input_Regist></td>
</tr>
<tr>
<td class=TD_Regist_Left>Email</td>
<td class=TD_Regist_Right> <input type="text" name="userEmail" maxlength=50 size="75" value="<%=strEmail%>" class=Input_Regist></td>
</tr>
<tr>
<td class=TD_Regist_Left>제목</td>
<td class=TD_Regist_Right> <input type="text" name="subject" maxlength=50 size="75" value="<%=strSubject%>" class=Input_Regist></td>
</tr>
<td class=TD_Regist_Left>Email</td>
<td class=TD_Regist_Right> <input type="text" name="userEmail" maxlength=50 size="75" value="<%=strEmail%>" class=Input_Regist></td>
</tr>
<tr>
<td class=TD_Regist_Left>제목</td>
<td class=TD_Regist_Right> <input type="text" name="subject" maxlength=50 size="75" value="<%=strSubject%>" class=Input_Regist></td>
</tr>
<tr>
<td class=TD_Regist_Left>HTML</td>
<td class=TD_Regist_Right style="text-align: right"><input type="radio" name="tag" value="T" <% If blnTag = "T" Then Response.Write "checked" End if %>>적용 <input type="radio" name="tag" value="F" <% If blnTag = "F" Then Response.Write "checked" End if %>>비적용 </td>
</tr>
<td class=TD_Regist_Left>HTML</td>
<td class=TD_Regist_Right style="text-align: right"><input type="radio" name="tag" value="T" <% If blnTag = "T" Then Response.Write "checked" End if %>>적용 <input type="radio" name="tag" value="F" <% If blnTag = "F" Then Response.Write "checked" End if %>>비적용 </td>
</tr>
<tr>
<td class=TD_Regist_Left style="height:80px;cursor:hand" onclick='window.open("SimpleUpload.asp?Seq=<%=intSeq%>","SimpleUpload","width=500,height=300,toobar=no,location=no,status=no,menubar=no,resizable=no")'>File Upload</span></td>
<td class=TD_Regist_Right style="text-align: right"><iframe name=FileView src="" width=100%></iframe></td>
</tr>
<td class=TD_Regist_Left style="height:80px;cursor:hand" onclick='window.open("SimpleUpload.asp?Seq=<%=intSeq%>","SimpleUpload","width=500,height=300,toobar=no,location=no,status=no,menubar=no,resizable=no")'>File Upload</span></td>
<td class=TD_Regist_Right style="text-align: right"><iframe name=FileView src="" width=100%></iframe></td>
</tr>
<tr>
<td class=TD_Regist_Left style="border-width:'0 0 1 0';border-color:#99A9BC">내용</td>
<td class=TD_Regist_Right>
<textarea style="border-width:'0 0 0 0';background-image:url(images/line.gif);width:100%;font-family:돋움;height: 211px" name=content wrap=hard><%=strContent%></textarea></td>
</tr>
<td class=TD_Regist_Left style="border-width:'0 0 1 0';border-color:#99A9BC">내용</td>
<td class=TD_Regist_Right>
<textarea style="border-width:'0 0 0 0';background-image:url(images/line.gif);width:100%;font-family:돋움;height: 211px" name=content wrap=hard><%=strContent%></textarea></td>
</tr>
<tr>
<td colspan=2 class=TD_Regist_Bottom><img src="images/b_save.gif" border=0 alt="저장하기" onclick="blankchk('edit_ok.asp?seq=<%=intSeq%>&page=<%=intNowPage%>')"> <a href="list.asp?page=<%=intNowPage%>"><img src="images/b_list.gif" border=0 alt="목록보기"></a> </td>
</tr>
</table>
</form>
</div>
</body>
</html>
<td colspan=2 class=TD_Regist_Bottom><img src="images/b_save.gif" border=0 alt="저장하기" onclick="blankchk('edit_ok.asp?seq=<%=intSeq%>&page=<%=intNowPage%>')"> <a href="list.asp?page=<%=intNowPage%>"><img src="images/b_list.gif" border=0 alt="목록보기"></a> </td>
</tr>
</table>
</form>
</div>
</body>
</html>
B.asp
<%
FilePath=Request("FilePath")
' response.write FilePath
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objCurrentFolder = objFSO.GetFolder(FilePath)
Set objFolderContents = objCurrentFolder.Files
FilePath = replace(replace(FilePath,"d:\wXXXXXX\www\@personal\billy\Board\",""),"\","/")
response.write FilePath
%>
FilePath=Request("FilePath")
' response.write FilePath
Set objFSO = CreateObject("Scripting.FileSystemObject")
Set objCurrentFolder = objFSO.GetFolder(FilePath)
Set objFolderContents = objCurrentFolder.Files
FilePath = replace(replace(FilePath,"d:\wXXXXXX\www\@personal\billy\Board\",""),"\","/")
response.write FilePath
%>
<table cellspacing="0"
cellpadding="0">
<%
<%
For Each objFileItem in objFolderContents
%>
<tr><td align=left><a href="#"
onclick='window.open("imagepop.asp?imagesrc=<%=FilePath%><%=objFileItem.Name
%>","imagepop","width=500,height=300,toobar=no,location=no,status=yes,menubar=no,resizable=yes")'><%=
objFileItem.Name
%></a>
</td><tr>
</td><tr>
<%
Next
%>
</table>
Next
%>
</table>
C.asp
<%
FilePath=replace(request("FilePath"),"/","\")
Set fs = Server.CreateObject("Scripting.FileSystemObject")
objFolder = server.mappath("./")
FilePath = objFolder+"\"+FilePath
' response.write FilePath
fs.DeleteFile(FilePath)
%>
<script language="JavaScript">
<!--
opener.location.href='FileView.asp';
//-->
FilePath=replace(request("FilePath"),"/","\")
Set fs = Server.CreateObject("Scripting.FileSystemObject")
objFolder = server.mappath("./")
FilePath = objFolder+"\"+FilePath
' response.write FilePath
fs.DeleteFile(FilePath)
%>
<script language="JavaScript">
<!--
opener.location.href='FileView.asp';
//-->
I.AM.KIM
Jan 9, 2003, 4:12:12 PM1/9/03
to
I.AM.KIM
Jan 9, 2003, 4:15:15 PM1/9/03
to
0 new messages