网络编程
位置:首页>> 网络编程>> Asp编程>> asp禁止站外盗链、判断星期几方法

asp禁止站外盗链、判断星期几方法

 来源:CSDN 发布时间:2007-10-02 12:58:00 

标签:防盗链,星期,盗链

 asp禁止站外盗链,站外提交方法、以及asp判断星期几方法.

防盗链,主要通过判断上一页面来源是否是本站来实现的,不是本站的链接就不允许运行。


<%
 http=Request.ServerVariables("HTTP_REFERER")
 http2=Cstr(Request.ServerVariables("SERVER_NAME"))
if mid(http,8,len(http2))<>http2 then
   response.write "本站禁止从外部站点下载!"
else
   response.redirect "download.doc" ’download.doc为下载文件名
end if
%>


判断星期几


<%
yue=month(date())
nian=year(date())
 thismon=nian&"-"&yue&"-1"
 nextmon=dateadd("m",1,thismon)
 tiancount=datediff("d",thismon,nextmon)  ’本月的天数
wek= Weekday(date())
select case wek
case 1
response.write "周日"
case 2
response.write "周一"
case 3
response.write "周二"
case 4
response.write "周三"
case 5
response.write "周四"
case 6
response.write "周五"
case 7
response.write "周六"
end select 
yue=month(date())
nian=year(date())
 thismon=nian&"-"&yue&"-1"
 nextmon=dateadd("m",1,thismon)
 tiancount=datediff("d",thismon,nextmon)  ’本月的天数
dim wek,wekday
wek= Weekday(date())
select case wek
case 1
wekday= "周日"
case 2
wekday= "周一"
case 3
wekday= "周二"
case 4
wekday= "周三"
case 5
wekday= "周四"
case 6
wekday= "周五"
case 7
wekday= "周六"
end select 
’response.write "本月共"&tiancount&"天,今天是"&wekday&"
%>



0
投稿

猜你喜欢

手机版 网络编程 asp之家 www.aspxhome.com