📄 booksource.asp

📁 很好的OA办公系统
💻 ASP
字号:
<%response.expires=0%>
<!--#include file="asp/sqlstr.asp"-->
<!--#include file="asp/bgsub.asp"-->
<!--#include file="asp/opendb.asp"-->
<!--#include file="asp/checked.asp"-->
<!--#include file="asp/keepformat.asp"-->
<%
'-----------------------------------------
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
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta http-equiv="expires" content="no-cache">
<link rel="stylesheet" href="css/css.css">
<title>资源预约</title>
</head>
<body bgcolor="#ffffff" topmargin="5" leftmargin="5">
 
<center><b>资源预约</b></center>
<%  
 
%>
<center>  
<%
if request.form("submit")="预约" then
	starttime=request.form("starttime")
	endtime=request.form("endtime")
	username=oabusyusername
	equipment=request.form("equipment")
	purpose=request.form("purpose")
	if isdate(starttime) and isdate(endtime) then
		'打开数据库，判断预约时间是否冲突
		set conn=opendb("oabusy","conn","accessdsn")
		set rs=server.createobject("adodb.recordset")
		sql="select * from booking where ((starttime>=#"&cdate(starttime)&"# and starttime<#"&cdate(endtime)&"#) or (starttime<=#"&cdate(starttime)&"# and endtime>=#"&cdate(endtime)&"#) or (starttime<=#"&cdate(starttime)&"# and endtime>#"&cdate(starttime)&"#)) and equipment="&sqlstr(equipment)
		rs.open sql,conn,1
		bookingallow="yes"
		if not rs.eof and not rs.bof then
			bookingallow="no"
		end if
		if bookingallow="no" then
%>
<br><br><font color="#ee0000" size="+1">您预约的时间段已经被占用！</font><br><br>
<input type="button" value="返回" onclick="window.location.href='booksource.asp';">
<%  
		else
			set conn=opendb("oabusy","conn","accessdsn")
			sql = "Insert Into booking (username,starttime,endtime,equipment,purpose) Values( "
			sql = sql & SqlStr(username) & ", "
			sql = sql & "#" & starttime & "#, "
			sql = sql & "#" & endtime & "#, "
			sql = sql & SqlStr(equipment) & ", "
			sql = sql & SqlStr(purpose) & ")"
			conn.Execute sql
%>
<br><br><font color="#ee0000" size="+1">资源预约成功！</font><br><br>
<form action="booksource_info.asp">
<input type="submit" value="返回">
</form>
<%
		end if
		conn.close
		set conn=nothing
	else
%>
<br><br><font color="#ee0000" size="+1">输入的日期不正确，请注意大小月和闰月！</font><br><br>
<input type="button" value="返回" onclick="window.location.href='booksource.asp';">
<%  
	end if
else
	set conn=opendb("oabusy","conn","accessdsn")
	set rs=server.createobject("adodb.recordset")
on error resume next
rs.open "select count(*) as countss from userinf",conn,1,1
usercount=rs("countss")
if usercount >500 then
   rs.close
   set rs=nothing
   %>
   <script language=javascript>  
       window.alert("对不起，超过了最大使用用户数，请删除部分用户！");
       parent("main").location.href="/usercontrol.asp";
   </script>
<%  
end if
rs.close
	sql="select * from equipment"
	rs.open sql,conn,1
	if rs.eof and rs.bof then
		response.write("<center><img border=""0"" src=""Image/msg.gif"" align=""absmiddle"" width=""32"" height=""32"">　<font size=""3"" color=""#FF0000"">现在没有资源，请先添加资源！</font></center>")
	else
%>
<script Language="JavaScript">  

function checktime()
{
	var sy=document.form1.startyear.value;
	var sm=document.form1.startmonth.value;
	var sd=document.form1.startday.value;
	var sh=document.form1.starthour.value;
	var smin=document.form1.startminute.value;
	var ey=document.form1.endyear.value;
	var em=document.form1.endmonth.value;
	var ed=document.form1.endday.value;
	var eh=document.form1.endhour.value;
	var emin=document.form1.endminute.value;
	var stime=sy+"-"+sm+"-"+sd+" "+sh+":"+smin+":00";
	var etime=ey+"-"+em+"-"+ed+" "+eh+":"+emin+":00";
	document.form1.starttime.value=stime;
	document.form1.endtime.value=etime;
	a1=0
	if((ey-sy)>0)
	{
		a1=1;
	}
	else
	{
		if(ey==sy)
		{
        	if((em-sm)>0)
			{
            	a1=1;
            }
	        else
			{
		        if(em==sm)
				{
		            if((ed-sd)>0)
					{
	                    a1=1;
                    }
    		        else
					{
            	      if(ed==sd)
					  {
						if((eh-sh)>0)
						{
                        	a1=1;
                        }
						else
						{
                        	if(eh==sh)
							{
                            	if((emin-smin)>0)
								{
                                	a1=1;
                                 }
                            }
                        }
                   }
				}
			}
		}
	}
}
	if(a1==0)
	{
		window.alert("结束时间应该在开始时间之后！");
		document.form1.startyear.focus();
		return (false);
	}
}
</script>
<%  
	'取得当前小时
	myhour=hour(now())
	'取得当前日期
	myday=day(now())
	'取得当前月
	mymonth=month(now())
	'取得当前年
	myyear=year(now())
%>
<br>
<form method=post name="form1" action="booksource.asp">
  <table border="1" cellpadding="5" cellspacing="0" bordercolorlight="#808080" bordercolordark="#D4D0C8" width="80%">
    <tr>
      <td>预约资源:</td><td>
<select size=1 name="equipment">
<%
		while not rs.eof and not rs.bof
%>
<option value="<%=rs("equipment")%>"><%=keepformat(rs("equipment"))%></option>
<%
			rs.movenext
		wend
%>
</select>
</td>
    </tr>
    <tr>
      <td>开始使用时间:</td><td>
         <select size=1 name="startyear">
<%
	for i=2001 to 2009
%>
          <option value="<%=i%>"<%=selected(i,myyear)%>><%=i%></option>
<%
	next
%>
        </select>年  
        <select size=1 name="startmonth">
<%
	for i=1 to 12
%>
          <option value="<%=i%>"<%=selected(i,mymonth)%>><%=i%></option>
<%
	next
%>
        </select>月  
        <select size=1 name="startday">
<%
	for i=1 to 31
%>
          <option value="<%=i%>"<%=selected(i,myday)%>><%=i%></option>
<%
	next
%>
        </select>日  
        <select size=1 name="starthour">
<%
	for i=0 to 23
%>
          <option value="<%=i%>"<%=selected(i,myhour)%>><%=i%></option>
<%
	next
%>
        </select>时  
        <select size=1 name="startminute">
<%
	for i=10 to 50 step 10
%>
          <option value="<%=i%>"><%=i%></option>
<%
	next
%>
        </select>分</td>
    </tr>
    <tr>
      <td>结束使用时间:</td><td>
       <select size=1 name="endyear">
<%
	for i=2001 to 2009
%>
          <option value="<%=i%>"<%=selected(i,myyear)%>><%=i%></option>
<%
	next
%>
        </select>年  
        <select size=1 name="endmonth">
<%
	for i=1 to 12
%>
          <option value="<%=i%>"<%=selected(i,mymonth)%>><%=i%></option>
<%
	next
%>
        </select>月  
        <select size=1 name="endday">
<%
	for i=1 to 31
%>
          <option value="<%=i%>"<%=selected(i,myday)%>><%=i%></option>
<%
	next
%>
        </select>日  
        <select size=1 name="endhour">
<%
	for i=0 to 23
%>
          <option value="<%=i%>"<%=selected(i,myhour)%>><%=i%></option>
<%
	next
%>
        </select>时  
        <select size=1 name="endminute">
<%
	for i=10 to 50 step 10
%>
          <option value="<%=i%>"><%=i%></option>
<%
	next
%>
        </select>分</td>
    </tr>
    <tr>
      <td colspan="2" align=center height="25">使用说明</td>
    </tr>
    <tr>
      <td colspan="2"><textarea rows="9" cols="62" name="purpose"></textarea></td>
    </tr>
  </table>
<input type="hidden" name="starttime">
<input type="hidden" name="endtime">
<input type="submit" name="submit" value="预约" onclick="return checktime();">&nbsp;&nbsp;&nbsp;<input type="button" value="返回" onclick="window.location.href='booksource_info.asp'">
</form>
<%
	conn.close
	set conn=nothing
end if
%>
</center>
<%
end if
%>
<table align="center">
            
 
    <tr>
      <td height=19>
        <table border="0" cellpadding="0" cellspacing="0" width="610" height="19">
		  <tr>
          <td width="100%" height=20 colspan="3">
            <p align="center"><font color="#808080">IE37 &copy; <a href="http://www.ie37.com" target="_blank">IE37.com</a></font></td>  
		  </tr>
        </table>
      </td>
    </tr>
<%
%>
</body>
💿 文件大小 4282 K
👤 上传用户 dojoy
📂 所属分类 OA系统
⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -