📄 applymeeting.asp
字号:
<!--#include file="check.asp"-->
<!--#INCLUDE FILE="connect.asp" -->
<html>
<head>
<title>会议申请</title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<script language=javascript src="apply.js"></script>
<script language="JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
// -->
</script>
<link rel="stylesheet" href="apply.css" type="text/css">
</head>
<body text="#000000" leftmargin="0" topmargin="0" marginwidth="0" marginheight="0" oncontextmenu="return false">
<%if request.servervariables("Request_Method")="POST" then
ipaddress=request.servervariables("remote_addr")
applytime=CDate(now())
timeDate=request("timeDate")
timeDate=replace(timeDate,"-","")
timestart=timeDate&request("Startsi")&request("Startfen")
timeend=timeDate&request("Endsi")&request("Endfen")
set rs=server.createobject("adodb.recordset")
sql="select timestart,timeend from applymeeting where status=1 and roomid="&CLng(request("roomid"))
rs.open sql,conn,1,1
while not rs.eof
if rs("timeend")<timestart or rs("timestart")>timeend then
free=true
else
free=false
response.write("<script language=javascript>alert('此时间会议室已经安排了，请选择其他会议室！')</script>")
response.write("<script language=javascript>history.go(-1)</script>")
response.end
end if
rs.movenext
wend
rs.close
sql="select * from applymeeting where id=1 "
rs.open sql,conn,1,3
rs.addnew
rs("meetingname")=request("title")
rs("timestart")=timestart
rs("timeend")=timeend
rs("roomname")=request("roomname")
rs("roomid")=request("roomid")
rs("attendpeople")=request("username")
rs("attendid")=request("hiddenselect")
rs("bz")=request("bz")
rs("workid")=request("workpeople")
rs("applyname")=session("username")
rs("applyid")=session("uid")
rs("dep")=session("dep")
rs("applytime")=applytime
rs("ipaddress")=ipaddress
rs("share")=request("radio")
rs.update
if rs.eof then
response.redirect "error.htm"
response.end
end if
applyid=rs("id")
rs.close
sql="select * from applygz where id=1"
rs.open sql,conn,1,3
rs.addnew
rs("flowid")=applyid
rs("handlename")=session("username")
rs("handleid")=session("uid")
rs("nextid")=request("workpeople")
rs("title")="会议申请"&request("title")
rs("handletime")=applytime
rs("ipaddress")=ipaddress
rs("handletype")="1"
rs.update
rs.close
sql="select * from newwork where id=1"
rs.open sql,conn,1,3
rs.addnew
rs("userid")=request("workpeople")
rs("userlist")=request("hiddenselect")
rs("title")=request("title")
rs("typed")="会议申请"
rs("url")="meetingsp.asp"
rs("baseid")=applyid
rs("applytime")=applytime
rs.update
rs.close
response.write("<script language=javascript>alert('提交申请成功！')</script>")
response.write("<script>document.location='shenqing.asp'</script>")
response.end
end if
%>
<form name="form" method="post" action="">
<table cellpadding="0" cellspacing="0" width="100%" class=main-table height="60">
<tr>
<td valign="top" height="49">
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="60" align="center"> </td>
<td height="45" align="center"><img src="images/applymeeting.gif"></td>
</tr>
</table>
<table cellpadding="1" cellspacing="1" width="100%" height="250">
<tr valign="middle" >
<td width="60"> </td>
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="40">
<tr>
<td width="80" height="40">会议名称：</td>
<td height="40">
<input type="text" class="noinput" name="title" size="72" tableindex=1 maxlength="45" title="请输入名称！">
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="40">
<tr>
<td height="40" width="119">会 议 室：</td>
<td height="40" width="203" align="left">
<select name="roomid" onChange="chooseroom();" style="width:170px">
<option> 请选择会议室 </option>
<%set ptr=server.createobject("adodb.recordset")
sql="select id,roomname from meetingroom"
ptr.open sql,conn,1,1
while not ptr.eof
%>
<option value="<%=ptr("id")%>"><%=ptr("roomname")%></option>
<%ptr.movenext
wend
ptr.close
%>
</select>
</td>
<td height="40" width="397">审批领导：
<select name="workpeople" style="width:170px">
<option> 请选择审批领导 </option>
<%
sql="select * from userdep"
ptr.open sql,conn,1,1
while not ptr.eof
%>
<option value="<%=ptr("uid")%>"><%=ptr("depname")%>/<%=ptr("name")%></option>
<%ptr.movenext
wend
ptr.close
%>
</select>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td height="40" width="80" align="left">参加人员:</td>
<td height="40" colspan="3" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td>
<input type="text" class="noinput" title="请选择参加会议人员" name="username" size="72" maxlength=45 style="cursor:hand" onClick="javascript:alert('从右边选择参加会议人员')" readonly>
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="40" width="80" align="left">开会时间:</td>
<td height="40" colspan="3" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td>
<input class="noinput" type="text" readonly title="点击选择开会时间！" name="timeDate" size="20" onClick="setday(timeDate,document.all.timeDate)" style="cursor:hand" >
<select name="Startsi" >
<%for i=8 to 22%>
<option value="<%if len(i)=1 then Response.Write 0&i else Response.Write i%>" <%if hour(now)=i then Response.Write "selected"%> >
<%if len(i)=1 then Response.Write 0&i else Response.Write i%>
</option>
<%next%>
</select>
点
<select name="Startfen" >
<%for i=0 to 11%>
<option value="<%if len(i*5)=1 then Response.Write 0&i*5 else Response.Write i*5%>" <%if minute(now)=i*5 then Response.Write "selected"%> >
<%if len(i*5)=1 then Response.Write 0&i*5 else Response.Write i*5%>
</option>
<%next%>
</select>
分 至
<select name="Endsi" class=select-a size="1" >
<%for i=6 to 22%>
<option value="<%if len(i)=1 then Response.Write 0&i else Response.Write i%>" <%if hour(now)=i then Response.Write "selected"%> >
<%if len(i)=1 then Response.Write 0&i else Response.Write i%>
</option>
<%next%>
</select>
点
<select name="Endfen" class=select-a size="1" >
<%for i=0 to 11%>
<option value="<%if len(i*5)=1 then Response.Write 0&i*5 else Response.Write i*5%>" <%if minute(now)=i*5 then Response.Write "selected"%> >
<%if len(i*5)=1 then Response.Write 0&i*5 else Response.Write i*5%>
</option>
<%next%>
</select>
分 </td>
</tr>
</table>
</td>
</tr>
<td height="40" width="80" align="left">申 请 人：</td>
<td height="40" colspan="3" valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td width="229">
<input class="nobinput" type="text" readonly value=<%=session("username")%> size="25" name="applyuid">
</td>
<td width="129">所在部门：</td>
<td width="279">
<input class="nobinput" type="text" readonly value=<%=session("dep")%> name="applydep" size="27">
</td>
</tr>
</table>
</td>
</tr>
<tr>
<td height="35" width="80" align="left">会议信息:</td>
<td height="35" colspan="3" valign="middle">
<input type="radio" name="radio" value="0" checked>
不公开
<input type="radio" name="radio" value="1">
公开 注:如信息公开非会议成员可查看到会议的信息</td>
</tr>
<tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="120">
<tr>
<td width="80" valign="top">会议说明：</td>
<td valign="top">
<textarea class="body1" name="bz" rows="8" title="点击输入用车事由" cols="70"></textarea>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="40">
<tr>
<td align="right" width="50%">
<input type="image" class="f0input" value="提交申请" name="submit2" onClick="return checkmeeting();return false;" src="images/applygif.gif" alt="提交申请">
</td>
<td align="center" width="60"></td>
<td align="left">
<input type="image" class="f0input" name="send" value=" 返 回 " onClick="history.go(-1);return false;" src="images/fanhuigif.gif" alt="返回">
</td>
</tr>
</table>
</td>
<td width="200" valign="top" height="280">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="390" bgcolor="ECF2FC">
<tr>
<td class="linetd" valign="top">
<!--#include file="turnmore.asp"-->
</td>
<td width="4" background="images/emailr.gif" > <img src="images/emailr.gif">
</td>
</tr>
</table>
</td>
</tr>
<tr >
<td height="10"> </td>
<td height="10">
<input type="hidden" name="hiddenselect">
<input type="hidden" name="roomname">
</td>
</tr>
</table>
</form>
<script language=javascript src="calendar.js">
</script>
</body>
</html>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -