|
 Aspبه
استاتیک
htmlبرای
بالا بردن
سرعت
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%>
نویسنده:
کیوان شجاعی
Email:kayvan.shojaie@gmail.com
|
