蛋疼，ASP的按钮单击事件

[冰川711]

<form onSubmit="return chk();" method="post" name="form">
  <table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#ffffff">
    <tr style="display: none">
      <td height="30" class="adgs">大名：
      <input name="UserName" type="text" id="UserName" maxlength="10" value="<%If IsUser=1 then Response.Write(""&UserName&"") else Response.Write(""&iparray(GetIP)&"") End if%>" Readonly style="width:150px;border:1px solid #ccc;"></td>
    </tr>
    <tr>
      <td height="30" class="adgs">主题：
      <input name="title" type="text" id="title" maxlength="15" style="width:400px;border:1px solid #ccc;"></td>
    </tr>
    <tr>
      <td height="15" class="adgs">内容：
      <textarea name="content" cols="30" rows="6" id="content" style="width:400px;border:1px solid #ccc;margin:0;padding:0;height:100px;font-size:12px;line-height:120%;"></textarea></td>
    </tr>
	<tr>
      <td height="30" class="adgs">验证码：
      <input name="code" type="text" id="code" size="8" maxlength="5" style="border:1px solid #ccc;"/>
        <img src="Inc/code.asp" border="0" alt="看不清楚请点击刷新验证码" style="cursor : pointer;" onClick="this.src='Inc/code.asp'"/>
	</td>
    </tr>
    <tr>
      <td height="30"><input type="submit" name="Submit" value=" 提 交 "></td>
    </tr>
  </table>
</form>

<%dim UserName,Title,Content
	UserName = 	CheckStr(trim(request.form("UserName")))
	Title = 	CheckStr(trim(request.form("Title")))
	Content = 	request.form("Content")
	mycode = trim(request.form("code"))
	if mycode<>Session("getcode") then
		Call Alert("请输入正确的认证码！",-1)
	end if
  	If ChkSB(Content)=false Then
	Call Alert("请不要乱发信息!",-1)
	end if
	If session("postgstime")<>"" then
		posttime8=DateDiff("s",session("postgstime"),Now())
  		if posttime8<yaopostgetime then
		posttime9=yaopostgetime-posttime8
		Call Alert("请不要连续发表!",-1)
  		end if
	End if
	If Not Checkpost(True) Then Call Alert("禁止外部提交!","-1")
	set rs = server.CreateObject ("adodb.recordset")
	sql="select * from "&tbname&"_Guestbook"
	rs.open sql,conn,1,3

		rs.AddNew 
		rs("UserName")			=UserName
		rs("Title")				=Title
		rs("Content")			=Left(Content,200)
		rs("AddIP")				=GetIP
		If bookoff=1 then
		rs("yn")				=1
		else
		rs("yn")				=0
		end if
		rs.update
		Session("postgstime")=Now()

			Call Alert ("恭喜你,留言成功!","Close")
  		rs.close
		Set rs = nothing
        %>

就是这个 我想在<input type="submit" name="Submit" value=" 提 交 ">这个按钮上添加 单击事件 执行下面那段VB代码
如何实现！！ 直接学的ASP.NET 不会ASP 很蛋疼！！！

[孟子E章]

If Request.ServerVariables("REQUEST_METHOD") = "POST"

dim UserName,Title,Content
...你的代码
End If


<form onSubmit="return chk();" method="post" name="form">

无需js代码

<form method="post" name="form">


如果用js代码可以用ajax实现

[冰川711]

我这是弹出的小窗口

这样提交之后会自动弹出大窗口

很不好！！

我想直接点完提交 关闭这个小窗口

[beyond_me21]

就是这样
[Quote=引用 1 楼 net_lover 的回复:]
If Request.ServerVariables("REQUEST_METHOD") = "POST"

dim UserName,Title,Content
...你的代码
End If


<form onSubmit="return chk();" method="post" name="form">

无需js代码

<form method="post" n……
[/Quote]

[冰川711]

我这是弹出的小窗口

这样提交之后会自动弹出大窗口

很不好！！

我想直接点完提交 关闭这个小窗口