У меня есть проблема получить данние после (ASP) submit() (javaScript) на том же листе Вот тут пример scriptUIvars2.asp | Код |
...
<script>
function ans(ansCode) {
document.getElementById("fldAns").value = ansCode;
alert("update");
document.getElementById("qForm").submit(); ///!!!!
}
</script>
...
<%
...
scriptID = Cint(Request("sid")) //С др. листа получаю, тут нет!
action = Request("action")
set objWM = server.CreateObject("WebManagement.Registration")
if action = "update" then
Response.clear //Сюда не попадаю
Response.Write("update")
Response.end
qAns = Cint(Request.form("fldans"))
'retVal = objWM.IsScriptParent(scriptID, isParentScript)
retVal = objWM.GetUIVarsList(scriptID, aList1)
'if (isParentScript = false) then
if qAns = 1 then
if isArray(aList1) then
for i = 0 to ubound(aList1,2)
newVal = Request("txtID_" & aList1(0,i))
retVal = objWM.UpdateUIVarDetails(scriptID,aList1(0,i),newVal)'@@@
next
end if
end if
if (retVal = 0) then
Response.Redirect("scriptUIvars.asp?setReturn=ok&sid=" & scriptID)
else
Response.Redirect("scriptUIvars.asp?setReturn=error&sid=" & scriptID)
end if
'Finalize
set objWM = nothing
else
retVal = objWM.IsScriptParent(scriptID, isParentScript)
retVal = objWM.GetUIVarsList(scriptID, aList1)
if (isParentScript = false) then
if isArray(aList1) then
for i = 0 to ubound(aList1,2)
newVal = Request("txtID_" & aList1(0,i))
retVal = objWM.UpdateUIVarDetails(scriptID,aList1(0,i),newVal)
next
end if
'if retVal <> 0 then m = "&setReturn=error" else m = "&setReturn=ok" end if
set objWM = nothing
Response.Redirect("scriptUIvars.asp?sid=" & scriptID)
else
dim ans1, ans2
%>
<script>
function init() {
}
</script>
<%
ans1 = "Update"
ans2 = "Cancel"
end if
end if
%>
<form action="scriptUIvars2.asp" enctype="multipart/form-data" method="post" id="qForm">
<input type="hidden" name="sid" value="<%= scriptID %>">
<input type="hidden" name="action" value="update">
<input type="hidden" name="fldAns" id="fldAns" value="">
...
|
|
перевод параментров на том же листе 
Загрузка ...
