Uncaught ReferenceError: doFeedBack is not defined
Uncaught ReferenceError: doFeedBack is not defined
我正在将 vbscript 代码转换为 javascript。该页面工作正常,但是在加载页面时,应该执行一个 vbscript 函数,但它没有响应我的转换。其目的只是通知用户值已提交或提示错误。该函数被分配给 body 属性 onload.
我已将代码转换为 javascript。
<script>
function doFeedback(){
Msg = "<%=MoveMsg%>"
SKU = "<%=strSKU%>"
PageID = "<%=PageID%>"
falseSubmit = "<%=falseSubmit%>"
if(Msg!=""){
Msg2 = "Stock Move Status for SKU : " + SKU +"\r\n\r\n"
test = Msg.split("#")
UB = test.length
UB = UB -1
for( i = 0; i<=UB; i++){
Msg2 = Msg2 + test(i) +"\r\n"
}
if (Msg.substring(0,3)=="ERR"){
Msg2 = Msg2 +"\r\n"+"Review stock values at current locations
and repeat move(s)."
}
confirm(Msg2)
}
//Preselect Menu Option
setMenuOption("1")
}
</script>
这是现在已被注释掉的旧 VBScript 过程。
<script type="text/vbscript">
Sub doFeedBack()
Msg = "<%=MoveMsg%>"
SKU = "<%=strSKU%>"
PageID = "<%=PageID%>"
falseSubmit = "<%=falseSubmit%>"
if Msg <> "" then
Msg2 = "Stock Move Status for SKU : " & SKU & vbcrlf & vbcrlf
test = split(Msg,"#")
UB = Ubound(test)
for i = 0 to UB
Msg2 = Msg2 & test(i) & vbcrlf
next
If Mid(Msg,1,3) = "ERR" then
msg2 = msg2 & vbcrlf & "Review stock values at current
locations and repeat move(s)."
end if
MsgBox(Msg2)
' ------- added SH 06/03/2012 '
' Reload page using a "get stock at location" request to avoid user
refreshing page and submitting same stock move twice by mistake '
getStockDetail(SKU)
end if
' Preselect Menu Option
setMenuOption("1")
End Sub
</script>
只是为了澄清 vbscript 不活跃,因为它被替换为 javascript。
我犯的主要错误是在循环中使用 test(i) 而不是 test[i]。我也遗漏了
getStockDetail(SKU) 函数。
我使用转换器解决了这个问题,将 vbscript 转换为 php 并将 php 转换为 javascript。
我已经解决了。在网上找到 2 个转换器。我使用第一个将代码从 vbscript 转换为 phh,第二个将 php 转换为 javascript。链接如下
我正在将 vbscript 代码转换为 javascript。该页面工作正常,但是在加载页面时,应该执行一个 vbscript 函数,但它没有响应我的转换。其目的只是通知用户值已提交或提示错误。该函数被分配给 body 属性 onload.
我已将代码转换为 javascript。
<script>
function doFeedback(){
Msg = "<%=MoveMsg%>"
SKU = "<%=strSKU%>"
PageID = "<%=PageID%>"
falseSubmit = "<%=falseSubmit%>"
if(Msg!=""){
Msg2 = "Stock Move Status for SKU : " + SKU +"\r\n\r\n"
test = Msg.split("#")
UB = test.length
UB = UB -1
for( i = 0; i<=UB; i++){
Msg2 = Msg2 + test(i) +"\r\n"
}
if (Msg.substring(0,3)=="ERR"){
Msg2 = Msg2 +"\r\n"+"Review stock values at current locations
and repeat move(s)."
}
confirm(Msg2)
}
//Preselect Menu Option
setMenuOption("1")
}
</script>
这是现在已被注释掉的旧 VBScript 过程。
<script type="text/vbscript">
Sub doFeedBack()
Msg = "<%=MoveMsg%>"
SKU = "<%=strSKU%>"
PageID = "<%=PageID%>"
falseSubmit = "<%=falseSubmit%>"
if Msg <> "" then
Msg2 = "Stock Move Status for SKU : " & SKU & vbcrlf & vbcrlf
test = split(Msg,"#")
UB = Ubound(test)
for i = 0 to UB
Msg2 = Msg2 & test(i) & vbcrlf
next
If Mid(Msg,1,3) = "ERR" then
msg2 = msg2 & vbcrlf & "Review stock values at current
locations and repeat move(s)."
end if
MsgBox(Msg2)
' ------- added SH 06/03/2012 '
' Reload page using a "get stock at location" request to avoid user
refreshing page and submitting same stock move twice by mistake '
getStockDetail(SKU)
end if
' Preselect Menu Option
setMenuOption("1")
End Sub
</script>
只是为了澄清 vbscript 不活跃,因为它被替换为 javascript。
我犯的主要错误是在循环中使用 test(i) 而不是 test[i]。我也遗漏了 getStockDetail(SKU) 函数。
我使用转换器解决了这个问题,将 vbscript 转换为 php 并将 php 转换为 javascript。
我已经解决了。在网上找到 2 个转换器。我使用第一个将代码从 vbscript 转换为 phh,第二个将 php 转换为 javascript。链接如下