ถ้า insert จาก popup แล้วให้ไปแสดงค่าที่เมนูหลักต้องทำยังไง
ที่ ตัว Popup เอาไว้ล่างสุด
<script language='JavaScript'>
alert('Update Complete');
window.opener.document.getElementById('textbox1').value = "ค่าที่ต้องการส่งกลับ";
</script>
Date :
2012-01-23 11:53:11By :
Thep
ตอบความคิดเห็นที่ : 1 เขียนโดย : Thep เมื่อวันที่ 2012-01-23 11:53:11 รายละเอียดของการตอบ ::
ที่ ตัว Popup เอาไว้ล่างสุด
<script language='JavaScript'>
alert('Update Complete');
window.opener.document.getElementById('textbox1').value = "ค่าที่ต้องการส่งกลับ";
</script>
ลองดูครับ ว่าใช่สิ่งที่ต้องการหรือเปล่า
หน้าแรกที่ใช้เปิดPopup(insertnew) <%
session.CodePage ="65001"
if Session("user")="" then
Response.Redirect("../login.asp")
end if
%>
<!--#include file="userheader.asp"-->
<!--#include file="usermenu.asp"-->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
<script language="javascript">
function ints()
{
if (document.innew.txttitle.value == "")
{
alert('"กรุณาใส่หัวข้อด้วย');
document.innew.txttitle.focus();
return false;
}
if (document.innew.txtdetail.value == "")
{
alert('"กรุณาใส่รายละเอียดด้วย');
document.innew.txtdetail.focus();
return false;
}
if (document.innew.txtetc.value == "")
{
alert('"ถ้าไม่ใส่หมายเหตุ กรุณาใส่ - ด้วย');
document.innew.txtetc.focus();
return false;
}
if (document.innew.txttype.value == "")
{
alert('"กรุณาเลือกส่วนงานด้วย');
document.innew.txttype.focus();
return false;
}
document.innew.submit();
}
function submits(page)
{
if (page=="upload")
{
document.innew.action="uploads.asp"
}
document.innew.submit();
}
function popup()
{
window.open('uploads.asp','upload','width=250,height=20,toolbar=0,menubar=0,location=0,status=1,scrollbars=1,resizable=1,left=0,top=0');
}
</script>
</head>
<td class="f2">
<form action="insertnews.asp" method="post" name="innew" onsubmit="javascript:return ints()" >
<table width="80%" border="1" style="width:50%">
<th colspan="2" align="center">เพิ่มข่าวใหม่ </th>
<tr>
<td valign="top" width="200">หัวข้อ</td>
<td><input name="txttitle" type="text" size="70" /> </td>
</tr>
<tr>
<td valign="top" width="200">รายละเอียด</td>
<td><textarea name="txtdetail" cols="70" rows="5"></textarea></td>
</tr>
<tr>
<td valign="top" width="200">ส่วนประกาศ</td>
<td><select name="txtcall">
<option value="ข่าวประชาสัมพันธ์" selected="selected">ข่าวประชาสัมพันธ์</option>
<option value="ข่าวประกาศ">ข่าวประกาศ</option>
<option value="ข่าวกิจกรรม">ข่าวกิจกรรม</option>
<option value="ข่าวการศึกษาก่อนปริญญา">ข่าวการศึกษาก่อนปริญญาตรี</option>
<option value="ข่าวการศึกษาหลังปริญญา">ข่าวการศึกษาหลังปริญญาตรี</option>
</select></td>
</tr>
<tr>
<td valign="top" width="200">หมายเหตุ</td>
<td><input name="txtetc" type="text" size="70" /> </td>
</tr>
<tr>
<td valign="top" width="200">ส่วนงาน</td>
<td><select name="txttype">
<option value="" selected="selected">กรุณาเลือก</option>
<%
dim sqltype,rectype
sqltype="select * from unit "
set rectype=Server.CreateObject("ADODB.Recordset")
rectype.open sqltype,con
while not rectype.EOF
%>
<option value="<%=rectype.fields("unitid").value%>" ><%=rectype.fields("unitname").value%></option>
<%
rectype.movenext
wend
rectype.close()
set rectype=nothing
%>
</select> </td>
</tr>
<tr>
<td valign="top" width="200">เอกสารแนบ</td>
<td>
<a href="#" onclick="popup();"><font color="#ff0000"><b>แนบเอกสาร</b></font></a>------<ใช้เปิดหน้าPOPUp
<input type="hidden" name="hidefile1" id="hidefile1" value="">
</td>
</tr>
<tr>
<td colspan="2" align="center">
<input name="submit" type="submit" value="บันทึก" />
<input name="Reset" type="reset" value="ยกเลิก" />
</td>
</tr>
</table>
</form>
</td>
</tr>
</table>
<!--#include file="footer.asp" -->
หน้าPOPUP1(uploads.asp) <html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8">
</head>
<body>
<%
Session.Codepage="65001"
%>
<form method="post" action="uploads1.asp" enctype="multipart/form-data">
<input type="file" name="file1">
<input type="submit" value="อัพโหลด">
</form>
</body>
</html>
หน้าPOPUP2(uploads.asp) <!--#include file="connect.asp" -->
<%
Dim mySmartUpload
'*** Create Object ***'
Set mySmartUpload = Server.CreateObject("aspSmartUpload.SmartUpload")
mySmartUpload.CodePage="UTF-8"
'*** Upload Files ***'
mySmartUpload.Upload
'*** Upload file1 ***'
If mySmartUpload.Files("file1").FileName <> "" Then
mySmartUpload.Files("file1").SaveAs(Server.MapPath("uploads/" & mySmartUpload.Files("file1").FileName))
'Response.write mySmartUpload.Files("file1").Name & " Uploaded."
End If
dim d
d=date()
'response.write(d)
Function max(maxs)
dim msql,mrec
msql="select max(" & maxs & ") as idmax from file"
set mrec=con.execute(msql)
if not mrec.EOF then
max=mrec.fields("idmax").value
end if
End Function
dim idm,maxs
maxs="fi_id"
idm=max(maxs)+1
dim usel,urec
usel="select * from officer where of_username='" & Session("user") & "' "
set urec=con.execute(usel)
if not urec.EOF then
user=urec.fields("of_username").value
end if
dim insql,inrec
insql="insert into file values ('" & idm & "','" & mySmartUpload.files("file1").filename & "','" & d & "','" & Session("user") & "')"
set inrec=con.Execute(insql)
Response.write("<script>window.close();</script>")
%>
Date :
2012-01-23 12:49:52By :
Clamore
response.write("<script language='JavaScript'>")
Date :
2012-01-23 13:02:37By :
Thep
เออเรอบรรทัดที่ 11 ครับ ในส่วนของหน้า POPUP2 ครับ
Date :
2012-01-23 13:06:06By :
Clamore
ถ้าใส่
Date :
2012-01-23 13:16:09By :
Thep
ตอนแรกไม่เออเรอครับ
Date :
2012-01-23 13:25:28By :
Clamore
ผมแก้ปัญหาของ Operation no Allowed ได้แล้ว
Date :
2012-01-23 14:15:39By :
Clamore
ลองแบบนี้ครับ
Date :
2012-01-24 12:58:17By :
Thep
Server 01
Load balance : Server 01
