1个小问题，100分请教!

jsp___3 2002-05-15 10:55:41

<%USERID=session("USERID")%>
<%
Dim Rs1
Set Rs1=Conn.Execute("select COUNT(*) as TTTR from flow f,fileattrib a where f.fileid=a.fileid and f.addrto='"&USERID&"' and f.del<>'1' AND F.HAVEREAD='N'",CmdText)
%>
<html>
<head>
<title>无标题文档</title>
<meta http-equiv="refresh" content="10; url=index1.asp" >
<meta NAME="GENERATOR" Content="Microsoft FrontPage 5.0">
</head>
<%
BBB=RS1("TTTR")
页面每隔一段时间自动刷新，我现在希望做个判断，假如BBB数值变大，则
response.redirect "INDEX2.asp"
否则，继续本页
END IF
%>
<body bgcolor="#FFFFFF" text="#000000">
</body>
</html>

...全文

53 8 打赏收藏转发到动态举报

写回复

用AI写文章

8 条回复

切换为时间正序

请发表友善的回复…

发表回复

tripofdream 2002-05-15

打赏
举报

关键就是用一个session或application变量来保存bbb的初始值

希偌 2002-05-15

打赏
举报

<%
BBB=RS1("TTTR")
if application("value")="" then
application("value")=BBB
elseif cint(BBB)<>cint(application("value")) then
application("value")=BBB
response.redirect "INDEX2.asp"
END IF
%>

希偌 2002-05-15

打赏
举报

<%
BBB=RS1("TTTR")
if application("value")="" then
application("value")=BBB
elseif cint(BBB)<>cint(application("value")) then
application("value")=BBB
response.redirect "INDEX2.asp"
END IF
%>

希偌 2002-05-15

打赏
举报

这个是我常用的方法！
<%
BBB=RS1("TTTR")
if application("value")="" then
application("value")=BBB
elseif BBB<>application("value") then
application("value")=BBB
response.redirect "INDEX2.asp"
END IF
%>

xxjmz_78 2002-05-15

打赏
举报

popcode 2002-05-15

打赏
举报

<USERID=session("USERID")

Dim Rs1
Set Rs1=Conn.Execute("select COUNT(*) as TTTR from flow f,fileattrib a where f.fileid=a.fileid and f.addrto='"&USERID&"' and f.del<>'1' AND F.HAVEREAD='N'",CmdText)
>
<html>
<head>
<title>无标题文档</title>
<meta http-equiv="refresh" content="10; url=index1.asp" >
<meta NAME="GENERATOR" Content="Microsoft FrontPage 5.0">
0A</head>
<
BBB=RS1("TTTR")
if bbb>数值 then
response.redirect "INDEX2.asp"

END IF
>
<body bgcolor="#FFFFFF" text="#000000">
</body>
</html>

回复人： ChinaOK(授人以鱼，不如授人以渔) ( ) 信誉：144 2002-05-15 11:01:00 得分:0 Top

<response.buffer=true>
<USERID=session("USERID")>
<
Dim Rs1
Set Rs1=Conn.Execute("select COUNT(*) as TTTR from flow f,fileattrib a where f.fileid=a.fileid and f.addrto='"&USERID&"' and f.del<>'1' AND F.HAVEREAD='N'",CmdText)
>
<html>
<head>
<title>无标题文档</title>
<meta http-equiv="refresh" content="10; url=index1.asp" >
<meta NAME="GENERATOR" Content="Microsoft FrontPage 5.0">
0A</head>
<
BBB=RS1("TTTR")
if bbb>YourNo then
response.redirect "INDEX2.asp"
END IF
>
<body bgcolor="#FFFFFF" text="#000000">
</body>
</html>

ChinaOk 2002-05-15

打赏
举报

<%response.buffer=true%>
<%USERID=session("USERID")%>
<%
Dim Rs1
Set Rs1=Conn.Execute("select COUNT(*) as TTTR from flow f,fileattrib a where f.fileid=a.fileid and f.addrto='"&USERID&"' and f.del<>'1' AND F.HAVEREAD='N'",CmdText)
%>
<html>
<head>
<title>无标题文档</title>
<meta http-equiv="refresh" content="10; url=index1.asp" >
<meta NAME="GENERATOR" Content="Microsoft FrontPage 5.0">
</head>
<%
BBB=RS1("TTTR")
if bbb>YourNo then
response.redirect "INDEX2.asp"
END IF
%>
<body bgcolor="#FFFFFF" text="#000000">
</body>
</html>

yzx_zyj 2002-05-15