我有一段代码,如何改成防止重复刷新?
我有一段代码,如何改成防止重复刷新?
代码如下:
<%
set conn=server.createobject("adodb.connection")
connstr="provider=microsoft.jet.oledb.4.0;data source="&server.mappath("dbcard.mdb")
conn.open connstr
'下面是查询结果,再显示页面
tt=request.QueryString("tt")
If tt="showcdk" then
set rs=server.createobject("adodb.recordset")
selectstr="select top 1 id from cdk"
rs.open selectstr,conn,1,3
if not rs.bof then
CardValue=rs.fields.item("id").value
rs.delete 1
else
response.write"<center><b id='CardStyle'>呵呵,不好意思已经领完了,请过会再来!</b></center>"
end if
response.write "<center><b id='CardStyle'>"&CardValue&"</b></center>"
End If
%>
<script>
function CardID()
{
window.location="GameCard.asp?tt=showcdk";
}
</script>
<center>
<form name="sform" >
<%if session("first")<>"ok" then%>
<input id="ShowCardButton" type="button" value="点我免费领卡" onClick="CardID()">
<% session("first")="ok"
else%>
<input id="ShowCardButton" type="button" value="点我免费领卡" disabled="true">
<%end if%>
</form>
现在代码我改成了点击一次按钮自动变灰.但刷新页面后卡号会自动刷新到下一条.有什么办法可以改成只能取数据库的一条记录
当刷新或重复点击按钮时弹出警告框说提示已领取过了,并关闭当前窗口.这样的代码应该怎么写.谢谢了~