请问:怎么使页面停留指定时间后转向新页面? 多谢` 大伙国庆快乐`
日期：2014-05-16 浏览次数：20404 次
请教:如何使页面停留指定时间后转向新页面? 谢谢`` 大伙国庆快乐`~
这个页面要实现的功能是:从数据库的网址列表中随机读取一个网址,然后跳转到该网站;显示该网站内容并停留并10秒,然后再读取下一个网址,再显示内容并停留10秒...就一直循环.
跳转页面 使用的语句是 <meta http-equiv="refresh" content="10;url=<%=Url%>">
<%=Url%> 是随机读取的网址.
但是目前这个页面随机显示一个网站时,只显示了该网站内容一秒到两秒,便立刻显示 "下一个网站载入中......,请不要关闭浏览器." . 请问这个问题如何解决? 使显示网站内容的时间延长为10秒. 是否要用js来实现呢?
请不吝指点~`谢谢`~`
源码如下:
----------------------
<!--#include file="Conn.Asp"-->
<!--#include file="CheckLogin.Asp"-->
<%
Dim WebUrl,ToUrl,sUrl,WebID,TmpUrl,Url
intRandomNumber = Int (1000*Rnd)+1
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open "Select ID,UserUrl From Member Where UserPower>100 And WebUrlON=1 And UserIspass=1",Conn,1,1
If Not Rs.Eof Then
WebUrl = DisRndRecord(1,rs.recordCount)
TmpUrl = Split(WebUrl,"?")
sUrl = TmpUrl(0)
WebID = TmpUrl(1)
Else
Url = "http://www.sprice.com.cn/"
End If
Rs.Close
Conn.Execute("Update Member Set UserPower=UserPower-1,WebTotal=WebTotal+1 Where ID=" & WebID & "")
'Conn.Execute("Update Member Set UserPower=UserPower+1,WebClick=WebClick+1 Where ID=" & CLng( Request.Cookies("CookiesPATH")("UserID")) & "")
Conn.Execute("Update Member Set UserPower=UserPower+1,WebClick=WebClick+1 Where ID=" & CLng( Session("UserID")) & "")
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
If InStr(sUrl,"<br>")>0 Then
ToUrl = Split(sUrl,"<br>")
i = Ubound(ToUrl)
Url = ToUrl(GetRnd(i))
Else If Len(sUrl)>8 Then
Url = sUrl
Else
Url = "http://www.sprice.com.cn/"
End If
End If
' Session.TimeOut=20
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="refresh" content="7;url=<%=Url%>">
<title>欢迎您使用<%=SiteName%>-</title>
<link href="images/css.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="80%" height="200" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td align="center"><img src="Images/alexa.gif" width="207" height="74">
</td>
</tr>
<tr>
<td align="center">下一个网站载入中......,请不要关闭浏览器. <br>
准备刷向URL:<%=Url%></td>
</tr>
</table>
</body>
</html>
---------------------
------解决方案--------------------
setTimeout("window.location.reload()",10000);这是10秒钟，自动刷新页面，setTimeout（js函数,时间/单位是毫秒），用这个试试
------解决方案--------------------
<meta http-equiv="refresh" content="10;url= <%=Url% >" >
可以的吧,你代码里写的怎么是7啊
这个页面要实现的功能是:从数据库的网址列表中随机读取一个网址,然后跳转到该网站;显示该网站内容并停留并10秒,然后再读取下一个网址,再显示内容并停留10秒...就一直循环.
跳转页面 使用的语句是 <meta http-equiv="refresh" content="10;url=<%=Url%>">
<%=Url%> 是随机读取的网址.
但是目前这个页面随机显示一个网站时,只显示了该网站内容一秒到两秒,便立刻显示 "下一个网站载入中......,请不要关闭浏览器." . 请问这个问题如何解决? 使显示网站内容的时间延长为10秒. 是否要用js来实现呢?
请不吝指点~`谢谢`~`
源码如下:
----------------------
<!--#include file="Conn.Asp"-->
<!--#include file="CheckLogin.Asp"-->
<%
Dim WebUrl,ToUrl,sUrl,WebID,TmpUrl,Url
intRandomNumber = Int (1000*Rnd)+1
Set Rs = Server.CreateObject("ADODB.RecordSet")
Rs.Open "Select ID,UserUrl From Member Where UserPower>100 And WebUrlON=1 And UserIspass=1",Conn,1,1
If Not Rs.Eof Then
WebUrl = DisRndRecord(1,rs.recordCount)
TmpUrl = Split(WebUrl,"?")
sUrl = TmpUrl(0)
WebID = TmpUrl(1)
Else
Url = "http://www.sprice.com.cn/"
End If
Rs.Close
Conn.Execute("Update Member Set UserPower=UserPower-1,WebTotal=WebTotal+1 Where ID=" & WebID & "")
'Conn.Execute("Update Member Set UserPower=UserPower+1,WebClick=WebClick+1 Where ID=" & CLng( Request.Cookies("CookiesPATH")("UserID")) & "")
Conn.Execute("Update Member Set UserPower=UserPower+1,WebClick=WebClick+1 Where ID=" & CLng( Session("UserID")) & "")
Set Rs = Nothing
Conn.Close
Set Conn = Nothing
If InStr(sUrl,"<br>")>0 Then
ToUrl = Split(sUrl,"<br>")
i = Ubound(ToUrl)
Url = ToUrl(GetRnd(i))
Else If Len(sUrl)>8 Then
Url = sUrl
Else
Url = "http://www.sprice.com.cn/"
End If
End If
' Session.TimeOut=20
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="refresh" content="7;url=<%=Url%>">
<title>欢迎您使用<%=SiteName%>-</title>
<link href="images/css.css" rel="stylesheet" type="text/css">
</head>
<body>
<table width="80%" height="200" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
<tr>
<td align="center"><img src="Images/alexa.gif" width="207" height="74">
</td>
</tr>
<tr>
<td align="center">下一个网站载入中......,请不要关闭浏览器. <br>
准备刷向URL:<%=Url%></td>
</tr>
</table>
</body>
</html>
---------------------
------解决方案--------------------
setTimeout("window.location.reload()",10000);这是10秒钟，自动刷新页面，setTimeout（js函数,时间/单位是毫秒），用这个试试
------解决方案--------------------
<meta http-equiv="refresh" content="10;url= <%=Url% >" >
可以的吧,你代码里写的怎么是7啊
免责声明： 本文仅代表作者个人观点，与爱易网无关。其原创性以及文中陈述文字和内容未经本站证实，对本文以及其中全部或者部分内容、文字的真实性、完整性、及时性本站不作任何保证或承诺，请读者仅作参考，并请自行核实相关内容。
