快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

大灰狼的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&"
%>
返回类别: 教程
上一教程: 计算文件下载时间
下一教程: ASP计算页面执行时间

您可以阅读与"大灰狼的ASP工具箱??防盗链、判定星期几"相关的教程:
· 大灰狼的ASP工具箱??CDONTS和JMAIL的使用
· 大灰狼的ASP工具箱??XMLHTTP的应用,获得远程的文件,获得远程HTML文件源码
· 大灰狼的ASP工具箱??ASP的错误集合
· 大灰狼的ASP工具箱??用ASP读INI配置文件的函数
· 大灰狼的ASP工具箱??自动获得远程图片
    微笑服务 优质保证 索取样品