查人人中国名人网战地4送dlc2017:请asp高手帮我解释一下这段代码的含义 谢谢了
来源：百度文库 编辑：查人人中国名人网 时间：2024/04/28 05:32:57
today1=date()
today2=date()+1
'a1=datediff("h",today1,#2001-5-6 1:00:00#)
'response.write a1
'-----------------------------------------
oabusyname=request.cookies("oabusyname")
oabusyusername=request.cookies("oabusyusername")
oabusyuserdept=request.cookies("oabusyuserdept")
oabusyuserlevel=request.cookies("oabusyuserlevel")
if oabusyusername="" then
response.write("<script language=""javascript"">")
response.write("window.top.location.href='default.asp';")
response.write("</script>")
response.end
end if
'--------------------------------------
'删除以前的记录
resourceflag=check_resource_setting(oabusyusername,0)
set conn=opendb("oabusy","conn","accessdsn")
sql = "delete * from booking where endtime<#" & date() & "#"
conn.Execute sql
%>
如果cookie是空的就转到default.asp
那是不是说第一次运行都将返回default.asp 而不是继续执行下面的代码阿？
那这段程序移植到别的系统上 将无法正常执行吗?
today1=date() '变量today1=今天
today2=date()+1 'today=今天+1=明天
oabusyname=request.cookies("oabusyname") '从cookie读取oabusyname给变量
oabusyusername=request.cookies("oabusyusername") '同上
oabusyuserdept=request.cookies("oabusyuserdept") '同上
oabusyuserlevel=request.cookies("oabusyuserlevel") '同上
if oabusyusername="" then '如果没有得到cookie记录
response.write("<script language=""javascript"">") '输出一段js脚本,作用是转到default页面
response.write("window.top.location.href='default.asp';")
response.write("</script>")
response.end '停止后面的语句执行
end if '结束循环
'--------------------------------------
'删除以前的记录
resourceflag=check_resource_setting(oabusyusername,0) '这个是个check_resource_setting函数,具体作用要看函数的代码
set conn=opendb("oabusy","conn","accessdsn") '打开数据库--opendb同样是自定义的函数
sql = "delete * from booking where endtime<#" & date() & "#" '定义sql语句
conn.Execute sql '执行sql语句
的确是这样的,第一次运行肯定是转到default
移植可以使用的,把转向的页面改成你的登陆界面就可以了
认证超期的代码