28,409
社区成员




<html>
<head>
<title>在线图片生成测试</title>
</head>
<body>
<%
Function CheckFile(FilePath) '检查某一文件是否存在
Dim fso
Filepath=Server.MapPath(FilePath)
Set fso = Server.CreateObject("Scripting.FileSystemObject")
If fso.FileExists(FilePath) then
'存在
CheckFile = False
Else
'不存在
CheckFile = True
End if
Set fso = nothing
End Function
%>
<%
ms = timer*1000
nxt = ms+100
do while CheckFile("xx.jpg") '开始循环检查是否生成图片
if timer*1000 >= nxt then
nxt = nxt + 100
end if
loop
response.write "<img src=""xx.jpg"" />"
%>
</body>
</html>