Big Gray Wolf's ASP toolbox-anti-leeching and determination of the day of the week

 
Anti-Leech
<%
Http = Request. ServerVariables ("HTTP_REFERER ")
Http2 = Cstr (Request. ServerVariables ("SERVER_NAME "))
If mid (http, 8, len (http2) <> http2 then
Response. write "this site cannot be downloaded from an external site! "
Else
Response. redirect "download.doc" 'download.doc is the download file name.
End if
%>
-------------------------------------------------------
Determine the day of the week
<%
Yue = month (date ())
Nian = year (date ())
Thismon = nian & "-" & yue & "-1"
Nextmon = dateadd ("m", 1, thismon)
Tiancount = datediff ("d", thismon, nextmon) 'Days of the month
Wek = Weekday (date ())
Select case wek
Case 1
Response. write "Sunday"
Case 2
Response. write "Monday"
Case 3
Response. write "Tuesday"
Case 4
Response. write "Wednesday"
Case 5
Response. write "Thursday"
Case 6
Response. write "Friday"
Case 7
Response. write "Saturday"
End select
Yue = month (date ())
Nian = year (date ())
Thismon = nian & "-" & yue & "-1"
Nextmon = dateadd ("m", 1, thismon)
Tiancount = datediff ("d", thismon, nextmon) 'Days of the month
Dim wek, wekday
Wek = Weekday (date ())
Select case wek
Case 1
Wekday = "Sunday"
Case 2
Wekday = "Monday"
Case 3
Wekday = "Tuesday"
Case 4
Wekday = "Wednesday"
Case 5
Wekday = "Thursday"
Case 6
Wekday = "Friday"
Case 7
Wekday = "Saturday"
End select
'Response. write "total for this month" & tiancount & "day, today is" & wekday &"
%>