slaine
15-02-2005, 18:28
Вот конструкция.
Как сделать, чтобы строка появлялась вверхнем фрейме, а не в новом окне кто знает?
Подскажите.
frame.hmtl
===============
<frameset rows="*, 100">
<frame name=ans src=02.asp>
<frame name=menu src=msg.html noresize>
</frameset>
msg.html
===============
<html>
<title></title>
<head></head>
<body bgColor=beige>
<form method=post action="02.asp" target="text">
<input type="text" size=10 name=Z>
<input type="submit"></form>
</body>
</html>
02.asp
===============
<%
Dim fso, f, x
a = Request.form("Z")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("C:\text.txt", 8, True)
f.Write a
f.Close
Set f = fso.OpenTextFile("C:\text.txt", 1, True)
x = f.readAll
Response.Write "<B>" & x & "</B>"
Set f = nothing
Set fso = nothing
%>
Как сделать, чтобы строка появлялась вверхнем фрейме, а не в новом окне кто знает?
Подскажите.
frame.hmtl
===============
<frameset rows="*, 100">
<frame name=ans src=02.asp>
<frame name=menu src=msg.html noresize>
</frameset>
msg.html
===============
<html>
<title></title>
<head></head>
<body bgColor=beige>
<form method=post action="02.asp" target="text">
<input type="text" size=10 name=Z>
<input type="submit"></form>
</body>
</html>
02.asp
===============
<%
Dim fso, f, x
a = Request.form("Z")
Set fso = CreateObject("Scripting.FileSystemObject")
Set f = fso.OpenTextFile("C:\text.txt", 8, True)
f.Write a
f.Close
Set f = fso.OpenTextFile("C:\text.txt", 1, True)
x = f.readAll
Response.Write "<B>" & x & "</B>"
Set f = nothing
Set fso = nothing
%>