про html и javaScript

**nikol** · 5 февраля, 2009

помогите кто-нибудь решить задачку

скопировать выбранный файл в указанный

<html>

<head>

<title> форма для ввода файлов</title>

</head>

<body>

<form name="frml" id="frml" action="save.asp" metod="get"

enctype="multipart/form-data">

файл загрузки<br>

</form>

<!--

здесь нужно скопировать указанный файл в другой, например c:\MY.*

//-->

</script>

</body>

</html>

проблемы с java,спасибо заранее

и пришлите ссылочку, где почитать подробнее

**Ф@РТОВЫЙ** · 24 февраля, 2009

Есть специальные контрол в IE, но работает он только если уровень безопасности установлен в самый низкий, а в других браузерах вообще такой возможности нет. Так что лучше не браться средствами HTML+JS делать то для чего они совсем не предназначены.

**nikol** · 12 марта, 2009

кому интересно- решилось вот так

set oie=wscript.createobject("internetexplorer.application","ie_")

oie.left=50

oie.top=100

oie.height=300

oie.width=450

oie.menubar=0

oie.statusbar=0

oie.toolbar=0

oie.navigate getpath() & "postprosm.htm"

oie.visible=1

set wsh=wscript.createobject("wscript.shell")

wsh.AppActivate("postprosm.htm")

do while(oie.busy)

wscript.sleep 200

loop

ready=false

do while(not ready)

wscript.sleep 500

loop

if name="" then

wscript.echo text1

else

'wscript.echo text2 & result

if fso.fileexists(file4) then

set text=fso.opentextfile(file4)

nom=text.readline

'wscript.echo txt

end if

lenname=len(name)

lenname1=InStrRev(name,"\")

lenname=lenname-lenname1

nameout= toname &"__"& nom &"__"& Right(name,lenname)

set fso=createobject("scripting.filesystemobject")

set ofile=fso.Getfile(name)

' wscript.echo " копирую файл" & nameout

if aptname=99 then

'читаем пока не конец файла и копир файл поп папкам

if fso.fileexists(file5) then

set nomtext=fso.opentextfile(file5)

do while not (nomtext.atendofstream)

nomapt=nomtext.readline

ofile.Copy "\\192.168.0.1\intel\post\apt\" & nomapt & "\" & nameout, true

loop

end if

else

ofile.Copy "\\192.168.0.1\intel\post\apt\" & aptname & "\" & nameout, true

res=wshshell.popup("гружу файл ждите..",_

1,_

"wsh popup sample",_

vbOKcancel+vbinformation)

end if

wscript.sleep 100

sub ie_onquit()

dim ofile ,paramfile

name=oie.document.frml.paramfile.value

toname=oie.document.frml.paramfile1.value

aptname=oie.document.frml.param2.value

ready=true

end sub

function getpath()

dim path

path=wscript.scriptfullname

getpath=left(path,instrrev(path,"\"))

end function

else

msgbox "сервер не доступен!"

end if

wscript.quit

<html>

<head>

<title> форма для ввода файлов</title>

</head>

<body>

<!-

dim ready

public theform

sub button1_onclick

' если ок - сообщ сценарию путем уст флага

ready=1

end sub

sub windows_onload()

'иниц-я формы

set theform=document.frml

theform.fname.value=""

ready=0 'не завершена операция

end sub

форма на html

public function checkval()

'проверка ок

checkval=ready

end function

'->

</script>

<form name="frml"

id="frml" action="save.asp" metod="get"

enctype="multipart/form-data">

прикрепить файл

<br>

кому: введите имя <br>

<br>

_______++++++

</form>

</body>

</html>

Войти

про html и javaScript

Рекомендуемые сообщения

nikol

Ссылка на комментарий

Поделиться на другие сайты

Ф@РТОВЫЙ

Ссылка на комментарий

Поделиться на другие сайты

nikol

Ссылка на комментарий

Поделиться на другие сайты

Для публикации сообщений создайте учётную запись или авторизуйтесь

Создать учетную запись

Войти

Последние посетители 0 пользователей онлайн

Обзор

Активность