مشاهده نسخه کامل
: kian98
29-04-2014, 17:32
Dim fs, fsmyfile, todayfile, ckdayfile, cr, qt
'Get name of file as it needs to be toda
' y
todayfile="Cur"&cstr(month(date()))&cstr(day(date()))
ckdayfile=""&cstr(month(date()))&cstr(day(date()))&""
todayfile=trim(todayfile)&".asp"
'Create FileSystemObject
Set fs = CreateObject("Scripting.FileSystemObject")
'File may not be built
On Error Resume Next
'Check to see if we already have the HTM
' L file Built
Set fsmyfile = fs.OpenTextFile("c:\inetpub\scripts\asp\jeff\"+todayfile,1,0)
if err<>0 Then 'Need To build today
fsmyfile.Close 'Close File
Set fsmyfile = fs.OpenTextFile("c:\inetpub\scripts\asp\jeff\"+todayfile,8,1,0)
cr=chr(13) 'Save some typing (I'm lazy)
qt=chr(34) 'The Only way I could Get the quote marks correct
codeout="<%@ LANGUAGE=""VBSCRIPT"" %"&">"&cr
codeout=codeout&"<%"&cr
codeout=codeout&"today="&qt&cstr(month(date()))&cstr(day(date()))&qt&cr
codeout=codeout&cr&"if today<>"&qt&ckdayfile&qt&" then"&cr
codeout=codeout&"response.redirect("&qt&"wrtest.asp"&qt&")"&cr
codeout=codeout&"else %"&">"&cr
fsmyfile.Writeline(""&codeout&cr&_
"<HTML>"&cr&_
"<TITLE>Write and Check Raw HTML For Speed</TITLE>"&cr&_
"<BODY>"&cr&_
"Hello todays file is called "&todayfile&cr&_
"</BODY>"&cr&_
"</HTML>"&cr&_
"<"&"%End if"&cr&_
"%"&">")
fsmyfile.close
fs.close
Response.Redirect(todayfile) 'Send them to new file
else
fsmyfile.close
fs.Close
Response.Redirect(todayfile) 'Send them to current file
End if%>
'Get name of file as it needs to be toda
' y
todayfile="Cur"&cstr(month(date()))&cstr(day(date()))
ckdayfile=""&cstr(month(date()))&cstr(day(date()))&""
todayfile=trim(todayfile)&".asp"
'Create FileSystemObject
Set fs = CreateObject("Scripting.FileSystemObject")
'File may not be built
On Error Resume Next
'Check to see if we already have the HTM
' L file Built
Set fsmyfile = fs.OpenTextFile("c:\inetpub\scripts\asp\jeff\"+todayfile,1,0)
if err<>0 Then 'Need To build today
fsmyfile.Close 'Close File
Set fsmyfile = fs.OpenTextFile("c:\inetpub\scripts\asp\jeff\"+todayfile,8,1,0)
cr=chr(13) 'Save some typing (I'm lazy)
qt=chr(34) 'The Only way I could Get the quote marks correct
codeout="<%@ LANGUAGE=""VBSCRIPT"" %"&">"&cr
codeout=codeout&"<%"&cr
codeout=codeout&"today="&qt&cstr(month(date()))&cstr(day(date()))&qt&cr
codeout=codeout&cr&"if today<>"&qt&ckdayfile&qt&" then"&cr
codeout=codeout&"response.redirect("&qt&"wrtest.asp"&qt&")"&cr
codeout=codeout&"else %"&">"&cr
fsmyfile.Writeline(""&codeout&cr&_
"<HTML>"&cr&_
"<TITLE>Write and Check Raw HTML For Speed</TITLE>"&cr&_
"<BODY>"&cr&_
"Hello todays file is called "&todayfile&cr&_
"</BODY>"&cr&_
"</HTML>"&cr&_
"<"&"%End if"&cr&_
"%"&">")
fsmyfile.close
fs.close
Response.Redirect(todayfile) 'Send them to new file
else
fsmyfile.close
fs.Close
Response.Redirect(todayfile) 'Send them to current file
End if%>