小弟我的程序老是提交两次,重复写入了两次!请高手检查下小弟我程序

我的程序老是提交两次,重复写入了两次!请高手检查下我程序
表单页面
<%
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache "
%>


<META http-equiv=Content-Type content= "text/html; charset=big5 ">
<%
s_id=RtnReplaceInt(request( "id "),0)
mUserUID=session( "userid ")
if Session( "UserName ")= " " or session( "usernum ")= " " or session( "userid ")= " " or session( "userpwd ")= " " then
response.write " <script LANGUAGE= 'javascript '> alert( 'X岿歃]G\n\n 叫嘲I ');window.navigate( 'porshow.asp?id= "&s_id& " '); </Script> "
Response.End
end if
%>
<%
dim rs,sql
set rs=server.createobject( "adodb.recordset ")
sql= "select * from ShopItemMap where ProductNum= ' "&s_id& " ' "
rs.open sql,ranshop_conn,1,1
mProductNum=rs( "ProductNum ")
mItemName=rs( "ItemName ")
mItemMoney=rs( "ItemMoney ")
rs.Close
set rs=Nothing
%>

<HTML>
<HEAD>
<TITLE> <%=ItemName%> </TITLE>
<meta http-equiv= "Content-Type " content= "text/html; charset=big5 ">
<link rel= "stylesheet " href= "/css/style.css " type= "text/css ">
<script language=javascript>

</script>
</HEAD>
<BODY bgColor=#FFFFFF topMargin=0 leftmargin= "0 ">
<form name= "pub_topic " method= "post " action= "Giftok.asp " ID= "pub_topic ">
<table width= "362 " border= "0 " cellspacing= "1 " cellpadding= "3 " align=center>

<tr bgcolor= "#FF6600 ">

<td height= "33 " colspan=2> <div align= "center "> <%=mUserUID%> 秘恼 <%=mItemName%> ,基: <font color=ffffff> <%=mItemMoney%> </font> 鞴 </div> </td>

</tr>
<tr>
<td width= "23% " height= "49 " align=left> <div align= "right "> ΜHG </div> </td>
<td align=left width= "77% "> <input name= "adduser " type= "text " id= "adduser ">
<font color=ff0000> *àW </font> </td>
</tr>
<tr>
<td width= "23% " height= "44 " align=left> <div align= "right "> 秘G </div> </td>
<td align=left width= "77% "> <textarea name= "addcontent " cols= "30 " rows= "5 " id= "addcontent "> nAи芥扒 <%=mItemName%> 倒A叫栏龄矗I </textarea> </td>
</tr>
<tr>

<td height= "36 " colspan=2> <div align= "center ">
<input type= "hidden " name= "myuser " value= " <%=mUserUID%> ">
<input type= "hidden " name= "itemid " value= " <%=mProductNum%> ">
<input type= "submit " name= "Submit " value= " 秘 " onclick= "return saveIt(); ">
 
<input type= "reset " name= "Submit2 " value= " ">
</div> </tr>
<tr bgcolor= "#FF6600 ">

<td height= "36 " colspan=2> <div align= "center "> 锪识Rセ坝A潦ЧΘZ嘲栏"B"龄矗坝 </div>
</tr>
</table>
</form>
<br>
</BODY>
</HTML>

====================================================
判断写入页面
<%
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache "
%>

<META http-equiv=Content-Type content= "text/html; charset=big5 ">
<%
s_id=RtnReplaceInt(request( "itemid "),0)
mUserUID=session( "userid ")
if Session( "UserName ")= " " or session( "usernum ")= " " or session( "userid ")= " " or session( "userpwd ")= " " then
response.write " <script LANGUAGE= 'javascript '> alert( 'X岿歃]G\n\n 叫嘲I ');window.navigate( 'porshow.asp?id= "&s_id& " '); </Script> "
Response.End
end if
%>
<%
dim rs,sql
set rs=server.createobject( "adodb.recordset ")
sql= "select * from ShopItemMap where ProductNum= ' "&s_id& " ' "
rs.open sql,ranshop_conn,1,1
if rs.eof and rs.bof then
response.write " <script> alert( '癸ぃA坝}ぃsbA?穰^I ');window.close(); </Script> "
response.end
else
mProductNum=rs( "ProductNum ")
mItemName=rs( "ItemName ")
mItemMoney=rs( "ItemMoney ")
rs.Close
set rs=Nothing
end if
%>
<%
madduser=trim(request.form( "adduser "))
mitemid=trim(request.form( "itemid "))
maddcontent=trim(request.form( "addcontent "))
mmyuser=trim(request.form( "myuser "))
set rsq=server.createobject( "adodb.recordset ")
sqlq= "select * from FullUserInfo Where Userid= ' "&mUserUID& " ' "
rsq.open sqlq,ranuser_conn,1,3
if rsq( "JF ") <1 then
response.write " <script LANGUAGE= 'javascript '> alert( 'X岿歃]G\n\n 鞴艟lぃ壁A叫R! ');window.navigate( 'porshow.asp?id= "&s_id& " '); </Script> "
Response.End
set rsq = nothing
end if

set rsd=server.createobject( "adodb.recordset ")
sqld= "select * from chainfo where ChaName= ' "&madduser& " ' "
rsd.open sqld,rangame1_conn,1,3
if rsd.EOF or rsd.BOF then
response.write " <script LANGUAGE= 'javascript '> alert( 'X岿歃]G\n\n ΜHWrぃsb! ');window.navigate( 'porshow.asp?id= "&s_id& " '); </Script> "
Response.End
else
chanum=rsd( "UserNum ")
end if
rsd.Close
set rsd = nothing

set rsf=server.createobject( "adodb.recordset ")
sqlf= "select * from UserInfo where UserNum= ' "&chanum& " ' "
rsf.open sqlf,ranuser_conn,1,3
mmuserid=rsf( "Userid ")
rsf.Close
set rsf = nothing

set rsw=server.createobject( "adodb.recordset ")
sqlw= "select * from ShopItemMap Where ProductNum= ' "&mProductNum& " ' "
rsw.open sqlw,ranshop_conn,1,3
s_jiage=rsw( "ItemMoney ")
if rsw( "NUM ") <1 then

response.write " <script LANGUAGE= 'javascript '> alert( 'X岿歃]G\n\n 癸ぃ!赣坝w扳! ');window.navigate( 'porshow.asp?id= "&s_id& " '); </Script> "
Response.End
set rsw = nothing

else
dim rst,sqlt,sqla,sqlb
sqla= "update FullUserInfo set JF=JF- ' "&mItemMoney& " ' where userid= ' "&mUserUID& " ' "
ranuser_conn.execute sqla
sqlb= "update ShopItemMap set NUM=NUM-1 where ProductNum= ' "&mProductNum& " ' "
ranshop_conn.execute sqlb

set rst=server.createobject( "adodb.recordset ")
sqlt= "select PurKey,UserUID,ProductNum,PurPrice,PurFlag from ShopPurchase order by PurKey desc "
rst.open sqlt,ranshop_conn,3,3
a=rst( "PurKey ")
b=a+1
rst.AddNew
rst( "PurKey ") = b
rst( "UserUID ") = mmuserid
rst( "ProductNum ") = mProductNum
rst( "PurPrice ") = mItemMoney
rst( "PurFlag ") = 0
rst.update
rst.Close
set rst = nothing

dim sqlc,rsc
set rsc = Server.CreateObject( "adodb.recordset ")
sqlc = "select * from Newsletter where (id is null) "
rsc.Open sqlc,conn,1,3
rsc.AddNew
rsc( "title ") = rsc( "title ")& " 腹: "&mmyuser& " 倒 "&mItemName& " "
rsc( "content ") = maddcontent
rsc( "addtime ") = now()
rsc( "adduserid ") = mmyuser
rsc( "userid ") = mmuserid
rsc( "flag ") = 1
rsc.update
rsc.Close
set rsc = nothing
response.write " <script> alert( '坝秘Θ\IwΘ\! ');window.close(); </Script> "
response.end
end if
%>

有时候只写入库一次,有时候两次.
不知道什么问题!
高手帮我检查下代码

[解决办法]
return saveIt()函数里document.pub_topic.submit这里提交一次.
按钮type= "submit "提交了一次.
按你的意思.应该要把type改成button

[解决办法]
1、document.pub_topic.submit(); 改成 return true;
2、 <form name= "pub_topic " method= "post " action= "Giftok.asp " ID= "pub_topic "> 改成 <form name= "pub_topic " method= "post " action= "Giftok.asp " ID= "pub_topic " onSubmit= "return saveIt(); ">
3、 <input type= "submit " name= "Submit " value= " 秘 " onclick= "return saveIt(); "> 改成 <input type= "submit " name= "Submit " value= " 秘 ">

小弟我的程序老是提交两次,重复写入了

热点推荐