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文章中随机插入网站版权文字的实现代码
2011-04-15 11:11:00
asp如何正确理解和使用Command、Connection和 Recordset三个对象?
2010-06-28 18:23:00
javascript数组取交集
2010-07-15 12:14:00
使用XMLhttp生成html页面
2007-08-17 11:21:00
你是真正的用户体验设计者吗? Ⅰ
2008-03-20 13:42:00
sql2000如何完美压缩.mdf文件
2010-03-03 15:47:00
Oracle 存储过程总结(一、基本应用)
2009-07-07 10:21:00
Laravel操作redis和缓存操作详解
2023-05-25 02:19:29
sql 存储过程批量删除数据的语句
2012-08-21 10:24:14
SQL Server服务器内存升级后的烦恼
2008-12-22 10:55:00
IA学习笔记04:标签系统
2009-09-22 14:40:00
2008农历新年各大网站Logo秀
2008-02-11 16:33:00
将滚动条(scrollbar)保持在最底部的方法
2008-02-21 10:05:00
让插入到 innerHTML 中的 javascript 跑起来
2008-07-01 13:14:00
正则表达式语法速查
2007-11-11 10:43:00
CSS Shadow Practice
2009-04-01 18:37:00
正视WEB标准,一本全面的标准参考书
2009-05-30 16:36:00
javascript+css图片切换效果
2007-08-04 20:00:00
网友分享:Oracle数据库开发技术经验浅谈
2009-04-22 13:11:00
Google Chrome CSS选择器速度测试比较
2008-10-06 13:24:00