单击提交按钮后再触发ASP代码,而不是一打开页面就触发
新手初学ASP,请高手指教,
每次打开这个页面,就自动运行了这段代码,我想单击Button按钮后,再触发这段代码,怎么做?
<%
Dim myconn,mysql,jsy,fprq,bzdh,jzuser_id,jzzt

set myconn=server.CreateObject("ADODB.Connection")
myconn.Connectionstring = MM_conn_STRING
myconn.open 

jzzt=1
bzdh=request.QueryString("bz_id")
fprq=now()
jsy=request("jsy")
jzuser_id=Session("MM_Username") 

mysql="update bzdj set jzzt='"&jzzt&"',jzuser_id='"&jzuser_id&"',jsy='"&jsy&"',fpdata='"&fprq&"' where bz_id='"&bzdh&"'"
if request("gzbc")<>"" then
myconn.execute mySql
response.write "<script language=javascript>alert('分派成功！');window.location.href='main.asp';</script>"
response.End  
end if
%>


------解决方案--------------------
给form提交个参数，这个参数不为空的时候 执行你的代码，比如

HTML code

<%
    act = request("act")
    if act = "do"
        你的代码
    end if
%>
<form action="?act=do">
。。。。
</form>