为什么在第一次刷新这个网页的时候返回的总是上一次的函数值,它为什么不去重新调用这个函数呢?有什么办法当我去刷新这个网页时让这个网

hujl 2003-04-09 10:56:32
为什么在第一次刷新这个网页的时候返回的总是上一次的函数值,它为什么不去重新调用这个函数呢?有什么办法当我去刷新这个网页时让这个网页重新执行脚本程序,重新调用函数(见(10)函数说明见(11)),而不是上一次的函数值。

分析下面的代码:(服务器就在本机上)

当我新建文件”c:\ftpuploadcmd.txt“后,刷新下面的网页(点击ie的刷新按钮),它没有弹出“可能您还没有上传完文件,请点击 上传文件 按钮”这个对话框,说明函数FileExist()<>1,但是文件c:\ftpuploadcmd.txt已经存在了,说明网页根本没有去执行这个函数;再次刷新网页,他就会运行函数FileExist(),此时FileExist()=1,并弹出对话框“可能您还没有上传完文件,请点击 上传文件 按钮”,这是是正常的,没问题;但是我这时去删除这个文件c:\ftpuploadcmd.txt,刷新网页(点击ie的刷新按钮),按道理此时FileExist()=2,不应该是FileExist()=1,但是还是出现对话框“可能您还没有上传完文件,请点击 上传文件 按钮”,说明FileExist()=1,网页根本没去重新调用这个函数;再次刷新网页,此时FileExist()=2,又正常了;真是头痛,为什么点击刷新按钮总会延迟一下,网页不去重新执行函数呢???
有什么办法我刷新这个网页或关闭这个网页时,让网页去重新执行函数FilleExist()吗?而不让它延迟一下,在线等待回答,谢谢!


(1)<%@language=vbscript%>
(2)<%Option Explicit%>
(3)<%Response.Buffer=True%>
(4)<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
(5)<html>
(6)<head>

(7)<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
(8)<title>无标题文档</title>
(9)</head>
(10)<BODY onbeforeunload="if(<%=FileExist()%>==1) return '可能您还没有上传完文件,请点击 上传文件 按钮'" bgColor=#006699 leftMargin=0 oncontextmenu=self.event.returnValue=false
topMargin=0>
<TABLE border=0 cellPadding=0 cellSpacing=0 height=85 width="100%">
<FORM name=frmView>
<input type="hidden" name="ff" value="2">
<TBODY>
<TR>
<TD width="13%"></TR>
<TBODY>
<TR bgColor=#003366>
<TD bgColor=#005d9c width="13%"><IMG border=0 height=22 hspace=3
src="../image/club_head.gif" width=130></TD>
<TD bgColor=#005d9c vAlign=center width="9%"><FONT
color=#ffffff> </FONT></TD>
<TD aigln=right bgColor=#005d9c noWrap width="78%"><div align="left"><font color="#FFFF00" size="2">KTV歌库中歌曲的统计,查询,录入,删除,修改,仅供歌库管理人员操作</font></div></TD>
</TR></FORM>
<TR>
<TD width="13%"></TR>
<td height="57"></TABLE>
<P> </P><FONT color=#ffffff></FONT></BODY></HTML>


(11)
<%
Function FileExist()
Response.Buffer = TRue
Response.ExpiresAbsolute = Now() - 1
Response.Expires = 0
Response.CacheControl = "no-cache"
dim objFSO,objFile ,getfile
getfile="c:\ftpuploadcmd.txt"
set objFSO=server.CreateObject("Scripting.FileSystemObject")
if objFSO.FileExists(getfile) then
FileExist=1'文件存在
else
FileExist=2'文件不存在
end if
end function
%>
...全文
18 点赞 收藏 回复
写回复
回复
切换为时间正序
当前发帖距今超过3年,不再开放新的回复
发表回复

还没有回复,快来抢沙发~

相关推荐
发帖
Web 开发
创建于2007-09-28

8.0w+

社区成员

Java Web 开发
申请成为版主
帖子事件
创建了帖子
2003-04-09 10:56
社区公告
暂无公告