用隐藏控件,控件名为hidContinue.
Private Sub BUTTON_Click
try
If hidContinue.Value.Equals("0") Then
if SESSION中的值和INI中的值相同
Dim Str As String = "if(confirm('你确定要对这些项目进行工作移交吗?'))" & _
"{document.all.hidContinue.value='1';document.all.BUTTON.click();}"
end if
end if
finally
hidContinue.Value = "0"
end try
end sub