为什么老是提交两次呢,烦死啦100 分

goodoycg 2005-12-02 02:30:28

<html>
<head>
<title></title>
<link href="css/style.css" rel="stylesheet" type="text/css">
</head>
<script language="Javascript" >
function PressKey()
{
if(window.event.keyCode==13)
{
document.form1.op.value='Send'
this.document.form1.submit();
// document.form1.Submit.Click();
}

}
function SetFocus()
{
document.form1.message.focus();
}

</script>

<%
on error resume next

op = request("op") ''客户的操作
if(vartype(op) < 2 or op = "")then
op="newcome"
end if
Select case op

Case "newcome"
'会议编号
Session("MeetingNo") = int(Request("MeetingNo"))
'此会议人数加1
dim MeetingManCountNewCome()
redim MeetingManCountNewCome(Application("MeetingCount") - 1)
for i = 0 to Application("MeetingCount") - 1
MeetingManCountNewCome(i) = Application("MeetingManCount")(i)
next
MeetingManCountNewCome(Session("MeetingNo") - 1) = MeetingManCountNewCome(Session("MeetingNo") - 1) + 1
Application.lock
Application("MeetingManCount") = MeetingManCountNewCome
Application.UnLock()
''进入会场提示
dim msgNewCome()
redim msgNewCome(Application("MeetingCount") - 1)
for i = 0 to Application("MeetingCount") - 1
msgNewCome(i) = Application("msg")(i)
next
msgNewCome(Session("MeetingNo") - 1 ) =cstr(time()) & "<font color=blue>" & " " & Session("Rname") & "：" & "</font>" & " " & "<font color=green>进入会场</font>" & "<br>" & msgNewCome(Session("MeetingNo") - 1 )
Application.lock
Application("msg") = msgNewCome
Application.UnLock()

Case "Send"

''会议是否结束
if(Application("MeetingStart")(Session("MeetingNo") - 1) = 0 )then
response.Redirect("welcome.asp")
end if
''发出信息
if(request("message") <> "" and vartype(request("message")) >=2)then
dim msgsend()
redim msgsend(Application("MeetingCount") - 1)
for i = 0 to Application("MeetingCount") - 1
msgsend(i) = Application("msg")(i)
next
'Application("submit")= Application("submit") + 1
msgsend(Session("MeetingNo") - 1) = cstr(time()) & "<font color=blue>" & " " & Session("Rname") & "： " & "</font>" & Server.htmlEncode(request("message")) & "<br>" & msgsend(Session("MeetingNo") - 1)
Application.lock
Application("msg")=msgsend
Application.unlock
end if

Case "Exit"
''此会议人数减1
dim MeetingManCountExit()
redim MeetingManCountExit(Application("MeetingCount") - 1)
for i = 0 to Application("MeetingCount") - 1
MeetingManCountExit(i) = Application("MeetingManCount")(i)
next
MeetingManCountExit( Session("MeetingNo") - 1 ) = MeetingManCountExit( Session("MeetingNo") - 1 ) - 1
Application.lock
Application("MeetingManCount") = MeetingManCountExit
Application.UnLock()

''退出会场提示
dim msgExit()
redim msgExit(Application("MeetingCount") - 1)
for i = 0 to Application("MeetingCount") - 1
msgExit(i) = Application("msg")(i)
next
msgExit(Session("MeetingNo") - 1) = cstr(time()) & "<font color=blue>" & " " & Session("Rname") & "：" & "</font>" & "<font color=red> 退出会场</font>" & "<br>" & msgExit(Session("MeetingNo") - 1)
Application.lock
Application("msg") = msgExit
Application.unlock

response.redirect("welcome.asp")

Case ELse

End Select
%>
<body leftmargin="0" topmargin="0" background="images/mainSkinBG.gif" OnLoad="SetFocus();">
<%''if(Application("MeetingStart") = 1) then %>
<table cellspacing="0" cellpadding="0" class=css2 width="100%" align="center" height="100%" bgcolor="#D9D491">
<form method="post" name= "form1" action="chat.asp">
<tr bgcolor="D9D491"><td align="right" valign="top" class="title" ><iframe name=chat frameborder="no" class=css0 width="100%" height="100%" src="chattext.asp"></iframe></td></tr>
<tr valign="top" bgcolor="D9D491">
<td height="25" align="left" valign="middle" > <b>我要发言</b>：
<input type="text" name="message" size="60" onkeydown="JavaScript:PressKey();">
<input type="hidden" name="op" value="" >
<input type="submit" name="Submit" value="发言" accesskey="S" OnClick="vbscript:Document.all.form1.op.value='Send'"><font color="#FF0000">Alt+S</font>
<% if(Application("Meetinger")(Session("MeetingNo") - 1) = Session("Rname")) then %>
<input type="submit" name="Submit2" value="结束会议" class=css0 onclick="vbscript:Document.all.form1.op.value='EndMeeting'">
<%else%>
<input type="submit" name="Submit3" value="退出" class=css0 OnClick="vbscript:Document.all.form1.op.value='Exit'">
<% end if %>
</td>
</tr>
</form>
</table>
<%'end if%>
</body>
</html>
<script language="javascript">
document.form1.op.value='';
</script>

...全文

138 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

starytx 2005-12-02

打赏
举报

你把提交按钮的type设为submit，不要用那个回车提交表单的函数，如果有验证表单的函数就在form中添加onsubmit="return 验证函数;"

AVAmyZ 2005-12-02

打赏
举报

直接在脚本里面做提交的动作得了，<input>就不要有submit的动作了。

goodoycg 2005-12-02

打赏
举报

我怀疑是那个提交按钮正好有焦点,我一回车触发了二个事件!

goodoycg 2005-12-02

打赏
举报

ybfqlyq(/*-YBFQ ResTarTing......-*\) (
问题是解决了
我好像只提交了一次啊
我在文本框中按回车时让表单提交一次啊,
另一次我又是怎样提交的呢?烦麻解释一下,我过会就结贴

masong_1978 2005-12-02

打赏
举报

帮你up

goodoycg 2005-12-02

打赏
举报

to ivee(ivee) ( )
我刚才试了下,好像还是会提交两次,真的不知道怎么搞的

ivee 2005-12-02

打赏
举报

ybfqlyq 2005-12-02

打赏
举报

<input type="text" name="message" size="60" onkeydown="JavaScript:PressKey();">
<input type="hidden" name="op" value="" >
<input type="submit" name="Submit" value="发言" accesskey="S" OnClick="vbscript:Document.all.form1.op.value='Send'"><font color="#FF0000">Alt+S</font>
function PressKey()
{
if(window.event.keyCode==13)
{
document.form1.op.value='Send'
this.document.form1.submit();
// document.form1.Submit.Click();
}

}

那個函數你都已經提交啦。。你這邊又多了一個提交的動作。所以有兩個提交的動作了。

可问题是，提交代码到GitHub总是超时，简直烦死。有时候我们在Gitee上看到一个好的开源项目想要参加，但是别人可能只是从GitHub同步到Gitee的，Gitee上的社区完全没人交流，那这种情况下，想参与项目贡献还是得去...

最近在开发Flink任务过程当中发现了一个比较奇怪的问题，在Flink上多次提交任务后会出现一个OOM的异常，意思是Flink的内存已经满了，无法再提交新的任务。如下：其中有这么一句：该异常确实是多次提交任务后出现...

我们项目前端用的是jquery easyui，刚开始使用datagrid加载列表初始化时总是请求两次URL，这让人非常不解，怎么总是请求两次呢？数据一多，加载速度明显变慢，通过查资料才知道原来是重复声明了datagrid导致的。　...

咱们先来设想一个场景，一个会议室里坐满了人，正在做报告的年轻人西装笔挺，头发书的一丝不苟，PPT上列满了数据和图表，他正在论证一个什么东西。年轻人讲了很多，可是在台下听报告的一个穿着随意的大佬，有点不耐...

之前使用git的时候每次都需要输入密码，输入一次两次还好，每次都输入真的恨不得砸电脑，相信各位小伙伴都需到过和我一样的问题，今天我们就来说说这个问题：首先，如果我们git clone的下载代码的时候是连接的...