submit.vbs

来自「基本功能都实现了,对财务的增加,删除财务的信息,修改信息,查出财务的详细信息」· VBS 代码 · 共 54 行

<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--

Sub go_onclick
if text1.value="" then
alert("对不起,请填写相关内容!!!")
text1.focus()
else
if IsNumeric(text1.value)=true then
window.location.href = "到指定的页"
else
alert("对不起,请填写相关内容!!!")
text1.value=""
text1.focus()
end if
end if
End Sub


Sub modify_onclick
if trim(text2.value)="" then
alert("对不起,请填写相关内容!!!")
else
id=trim(text2.value)
window.location.href = "modify.html"
end if
End Sub

Sub delete_onclick
if trim(text2.value)="" then
alert("对不起,请填写相关内容!!!")
else
id=trim(text2.value)
window.location.href = "delete.html"
end if
End Sub

Sub view_onclick
if trim(text2.value)="" then
alert("对不起,请填写相关内容!!!")
else
id=trim(text2.value)
window.location.href = "view.html"
end if
End Sub

Sub add_onclick
window.location.href = "add.html"
End Sub



-->
</SCRIPT>