ASP: Disable webpage cache, generate verification code, and delete file ifilename file name ipath file path

<% 'Disable webpage caching
Response. Buffer = true
Response. expiresabsolute = now ()-1
Response. expires = 0
Response. cachecontrol = "no-Cache"
'Verification code generation
Dim yz2
Randomize Timer
Yz2 = int (8999) * RND + 1009)
Session ("OK") = yz2
%>

Delete file ifilename file name ipath file path
<%
'File operations
'Power by huang_ke@hotmail.com
 
'Delete file ifilename file name ipath file path
Sub delfile (ifilename, ipath)
 
Realpath = server. mappath (ipath) & "\" & ifilename
Set FSO = server. Createobject ("scripting. FileSystemObject ")
FSO. deletefile (realpath)

Set FSO = nothing
 
End sub

%>