db2syscs.exe:asp 网页 代码 问题求教高手~~~~~!!非常感谢!
来源:百度文库 编辑:神马品牌网 时间:2024/05/21 22:21:24
我想在下面的程序里实现, 在点击“进入”超连接的时候,如果访问者进入网页超过10秒能正常进入,如果不到10秒,点击超链接的话,就会弹出自定义对话框!
<%
dim UserID,UserName,id
UserID=session("UserID")
UserName=session("UserName")
If UserName<>"" and UserID<>"" Then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="90%" align="center" height="20">
<a href="Adabout_1.asp">进入</a> //10秒之内点击这里的话怎么做能弹出对话框?
<br>
</td>
</tr>
</table>
<%
End If
if UserName="" or UserID="" Then
Response.Write "。。。。"
Response.end
End if
id=replace(trim(request("id")),"'","")
If id="" Then
Response.Write "。。。"
Response.end
End If
%>
<%
dim UserID,UserName,id
UserID=session("UserID")
UserName=session("UserName")
If UserName<>"" and UserID<>"" Then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="90%" align="center" height="20">
<a href="Adabout_1.asp">进入</a> //10秒之内点击这里的话怎么做能弹出对话框?
<br>
</td>
</tr>
</table>
<%
End If
if UserName="" or UserID="" Then
Response.Write "。。。。"
Response.end
End if
id=replace(trim(request("id")),"'","")
If id="" Then
Response.Write "。。。"
Response.end
End If
%>
<script>
a=new Date()
function checktime(){
b=new Date()
c=Math.round(10-((b-a)/1000));
if(c>0){
alert ("还有"+c+"秒");
}else
window.location.href="Adabout_1.asp"
}
</script>
<%
dim UserID,UserName,id
UserID=session("UserID")
UserName=session("UserName")
If UserName<>"" and UserID<>"" Then
%>
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>
<td width="90%" align="center" height="20">
<input type="button" value="进入" onclick="checktime();return false">
//10秒之内点击这里的话怎么做能弹出对话框?
<br>
</td>
</tr>
</table>
<%
End If
if UserName="" or UserID="" Then
Response.Write "。。。。"
Response.end
End if
id=replace(trim(request("id")),"'","")
If id="" Then
Response.Write "。。。"
Response.end
End If
%>