我的程序老是提交两次,重复写入了两次!请高手检查下我程序
表单页面
<%
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache "
%>
<!--#include file= "dbconnect/conn_inc.asp " -->
<!--#include file= "inc/CheckClass.inc.asp " -->
<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( '岿\n\n 叫祅嘲 ');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>
<!--
function saveIt()
{
if (document.pub_topic.adduser.value== " ")
{
alert( '叫块Μ砯笴栏à︹ ');
document.pub_topic.adduser.focus();
return false;
}
if (document.pub_topic.addcontent.value== " ")
{
alert( '叫块祏獺ず甧 ');
document.pub_topic.addcontent.focus();
return false;
}
document.pub_topic.submit();
}
//-->
</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 "> Μ砯 </div> </td>
<td align=left width= "77% "> <input name= "adduser " type= "text " id= "adduser ">
<font color=ff0000> *à︹ </font> </td>
</tr>
<tr>
<td width= "23% " height= "44 " align=left> <div align= "right "> 秘癳祏獺 </div> </td>
<td align=left width= "77% "> <textarea name= "addcontent " cols= "30 " rows= "5 " id= "addcontent "> ﹑и芥扒 <%=mItemName%> 癳倒﹑叫秈笴栏B龄矗 </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 "> 舧潦禦セ坝珇潦禦ЧΘ祅嘲笴栏"B"龄矗坝珇 </div>
</tr>
</table>
</form>
<br>
</BODY>
</HTML>
====================================================
判断写入页面
<%
Response.Buffer = True
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache "
%>
<!--#include file= "dbconnect/conn_inc.asp " -->
<!--#include file= "inc/CheckClass.inc.asp " -->
<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( '岿\n\n 叫祅嘲 ');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( '癸ぃ癬坝珇ぃ? ');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( '岿\n\n 眤刽緇肂ぃ壁叫! ');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( '岿\n\n Μ砯ぃ! ');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( '岿\n\n 癸ぃ癬!赣坝珇扳! ');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( '坝珇秘癳Θ祏獺竒緑癳Θ! ');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= " 秘 癳 ">
