нужно сделать преренос кода с одного скриптового языка в другой, так как Java Script не очень знаю писал на VBScript а нужно на Яве, мож кто поможет?
нужно для того чтоб вставит на сайт, вот там уже половина скриптов сделана на ява скрипте, а когда пытаешся воткнуть туды VBScript все скрипты начинают инерпритироватся темь интерпритатором который стоит выше в html коде (тег script language=) а остольные теги подобного типа игнорируются
сам код:
<div id=Zag_a style="visibility:hidden; width: 180; height: 25; position: absolute; top: 36; left: 0; z-index: 3"> <p class=zagol2 align="right"> Только </p> </div> <div id=Zag_aa style="visibility:hidden; width: 180; height: 25; position: absolute; top: 37; left: 1; z-index: 2"> <p class=zagol2 align="right"> <font color="#C0C0C0"> Только</font> </p> </div> <div id=Zag_b style="visibility:hidden; width: 160; height: 25; position: absolute; top: 58; left: 20; z-index: 3"> <p class=zagol2 align="right">нужные </p> </div> <div id=Zag_bb style="visibility:hidden; width: 160; height: 25; position: absolute; top: 59; left: 21; z-index: 2"> <p class=zagol2 align="right"> <font color="#C0C0C0"> нужные </font> </p> </div> <div id=Zag_c style="visibility:hidden; width: 135; height: 25; position: absolute; top: 80; left: 75; z-index: 3"> <p class=zagol2 align="right">профессии! </p> </div> <div id=Zag_cc style="visibility:hidden; width: 135; height: 25; position: absolute; top: 81; left: 76; z-index: 2"> <p class=zagol2 align="right"> <font color="#C0C0C0"> профессии! </font> </p> </div>
<script language=VBSCRIPT> setTimeout "MoveLeft" , 10 , "VBScript" Sub MoveLeft Zag_a.style.visibility = show Zag_aa.style.visibility = show Zag_a.style.posLeft = Zag_a.style.posLeft + 1 Zag_aa.style.posLeft = Zag_aa.style.posLeft + 1 If Zag_a.style.posLeft <> 189 Then setTimeout "MoveLeft" , 10 , "VBScript" else setTimeout "MoveLeft2" , 10 , "VBScript"
end Sub
Sub MoveLeft2 Zag_b.style.visibility = show Zag_bb.style.visibility = show Zag_b.style.posLeft = Zag_b.style.posLeft + 1 Zag_bb.style.posLeft = Zag_bb.style.posLeft + 1 If Zag_b.style.posLeft <> 189 Then setTimeout "MoveLeft2" , 10 , "VBScript" else setTimeout "MoveLeft3" , 10 , "VBScript" end Sub
Sub MoveLeft3 Zag_c.style.visibility = show Zag_cc.style.visibility = show Zag_c.style.posLeft = Zag_c.style.posLeft + 1 Zag_cc.style.posLeft = Zag_cc.style.posLeft + 1 If Zag_c.style.posLeft <> 189 Then setTimeout "MoveLeft3" , 10 , "VBScript" end Sub
</script>
|