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

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
%>

...全文