sub B()
form...
end sub
dim action
action=request("action")
select case action
case b : call b()
case else
call a()
end select
<a href="?action=b">下一步</a>
<%
dim action
action = ""
action=request.QueryString("action")
select case action
case "A" Step1
case else Default
end select
%>
<html>
<head>
<title></title>
</head>