📄 shenqing.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="Connections/CSYD.asp" -->
<!--#include file="Function.asp" -->
<%
Dim ID,ShowWeek,ShowNum,CSID,SheBei
If (Request.QueryString("ID") <> "") Then
ID = Request.QueryString("ID")
End If
If (Request.QueryString("ShowWeek") <> "") Then
ShowWeek = Request.QueryString("ShowWeek")
End If
If (Request.QueryString("ShowNum") <> "") Then
ShowNum = Request.QueryString("ShowNum")
End If
If (Request.QueryString("CSID") <> "") Then
CSID = Request.QueryString("CSID")
End If
%>
<%
Dim rs
Dim rs_numRows
Set rs = Server.CreateObject("ADODB.Recordset")
rs.ActiveConnection = MM_CSYD_STRING
rs.Source = "SELECT * FROM CS_KBiao WHERE ID = "&ID
rs.CursorType = 0
rs.CursorLocation = 2
rs.LockType = 1
rs.Open()
rs_numRows = 0
SheBei=ShowCSSB(CSID)
Dim SBArray,TimeArray
SBArray=Split(SheBei,"、")
TimeArray=Split(rs(ShowWeek),",")
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>无标题文档</title>
<link href="style.css" rel="stylesheet" type="text/css">
<style type="text/css">
<!--
body {
background-image: url(images/002_03.gif);
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
}
-->
</style>
<script language = "JavaScript">
function CheckForm()
{
if (document.myform.sq_bumen.value=="")
{
alert("申请部门不能为空！");
document.myform.sq_bumen.focus();
return false;
}
if (document.myform.sq_xingming.value=="")
{
alert("申请人姓名不能为空！");
document.myform.sq_xingming.focus();
return false;
}
if (document.myform.sq_changsuo.value=="")
{
alert("专用教室名称不能为空！");
document.myform.sq_changsuo.focus();
return false;
}
if (document.myform.sq_danwei.value=="")
{
alert("申请单位不能为空！");
document.myform.sq_danwei.focus();
return false;
}
if (document.myform.sq_neirong.value=="")
{
alert("活动内容不能为空！");
document.myform.sq_neirong.focus();
return false;
}
var ss = false;
for(var ii=0; ii<myform.sq_yaoqiu.length; ii++)
if(myform.sq_yaoqiu[ii].type=="checkbox")
ss = ss || myform.sq_yaoqiu[ii].checked;
if(!ss)
{
alert("设备至少要选择一个");
return false;
}
var aa = false;
for(var ii=0; ii<myform.sq_day.length; ii++)
if(myform.sq_day[ii].type=="checkbox")
aa = aa || myform.sq_day[ii].checked;
if(!aa)
{
alert("请选择使用时间");
return false;
}
return true;
}
</script>
</head>
<body>
<table width="350" border="0" cellspacing="0" cellpadding="0">
<form name="myform" method="post" action="shenqing2.asp" onSubmit="return CheckForm();">
<tr>
<td bgcolor="#999999">
<table width="350" height="190" border="0" align="center" cellpadding="0" cellspacing="1">
<tr bgcolor="#F0F7F0">
<td width="75" height="25"><div align="right">申请部门：</div></td>
<td width="101">
<div align="left">
<input name="sq_bumen" type="text" class="inputs" id="sq_bumen" size="12">
</div></td>
<td width="81"><div align="right">申请人姓名：</div></td>
<td width="88">
<div align="left">
<input name="sq_xingming" type="text" class="inputs" id="sq_xingming" size="10">
</div></td>
</tr>
<tr bgcolor="#F0F7F0">
<td height="25"><div align="right">场所名称：</div></td>
<td>
<div align="left">
<input name="sq_changsuo" type="text" class="inputs" id="sq_changsuo" value="<%=ShowCSName(CSID)%>" size="12" readonly>
</div></td>
<td><div align="right">申请单位：</div></td>
<td>
<div align="left">
<select name="sq_danwei" class="inputs" id="sq_danwei" style="width:72">
<option value="">选择年级</option>
<option value="初一">初一</option>
<option value="初二">初二</option>
<option value="初三">初三</option>
</select>
</div></td>
</tr>
<tr bgcolor="#F0F7F0">
<td height="63"><div align="center">使用时间：</div>
<div align="center"> </div>
<div align="center">（第几节）</div></td>
<td colspan="4"><div align="center"><%=rs("XueQi")%> 第<%=rs("ZhouCi")%>周 (
<%
Dim MyDate,MyWeek
Select Case ShowWeek
Case "Mon"
AddNum=0
MyWeek="周一"
Case "Tue"
AddNum=1
MyWeek="周二"
Case "Wed"
AddNum=2
MyWeek="周三"
Case "Thi"
AddNum=3
MyWeek="周四"
Case "Fri"
AddNum=4
MyWeek="周五"
Case "Sat"
AddNum=5
MyWeek="周六"
Case "Sun"
AddNum=6
MyWeek="周日"
End Select
MyDate=DateAdd("d",AddNum,rs("STime"))
Response.Write(MyWeek&" ")
Response.Write(MyDate)
%>
)<br>
<%
Dim iNum
iNum=5
For i=0 to Ubound(TimeArray)
If TimeArray(i)="0" Then Response.Write("<input name=""sq_day"" type=""checkbox"" id=""sq_day"" value="""&(i+1)&""">"&ItoWeek(i)& vbCrlf)
iNum=iNum-1
If iNum=0 Then Response.Write("<BR>"& vbCrlf)
Next
Function ItoWeek(ii)
Select Case ii
Case 0
ItoWeek="第一"
Case 1
ItoWeek="第二"
Case 2
ItoWeek="第三"
Case 3
ItoWeek="第四"
Case 4
ItoWeek="第五"
Case 5
ItoWeek="第六"
Case 6
ItoWeek="第七"
Case 7
ItoWeek="第八"
Case 8
ItoWeek="第九（中午）"
End Select
End Function
%>
</div></td>
</tr>
<tr bgcolor="#F0F7F0">
<td><div align="right">活动主题：</div></td>
<td colspan="3"> <input name="sq_neirong" type="text" class="inputs" id="sq_neirong" size="36"> </td>
</tr>
<tr bgcolor="#F0F7F0">
<td><div align="right">需用设备：</div></td>
<td colspan="3">
<%
For i=0 to Ubound(SBArray)
Response.Write("<input name=""sq_yaoqiu"" type=""checkbox"" id=""sq_yaoqiu"" value="""&SBArray(i)&""">"&SBArray(i)& vbCrlf)
Next
If Ubound(SBArray)<2 Then Response.Write("<input name=""sq_yaoqiu"" type=""checkbox"" id=""sq_yaoqiu"" value=""场地"">场地"& vbCrlf)
%> </td>
</tr>
<tr bgcolor="#F0F7F0">
<td> </td>
<td colspan="3"> <input name="Submit" type="submit" class="button" value="申请">
<input name="Submit2" type="reset" class="button" value="重填">
<input name="KBID" type="hidden" id="KBID" value="<%=Request.QueryString("ID")%>">
<input name="ZhouCi" type="hidden" id="ZhouCi" value="<%=rs("ZhouCi")%>">
<input name="sq_Week" type="hidden" id="sq_Week" value="<%=ShowWeek%>">
<input name="usetime" type="hidden" id="usetime" value="<%="第"&rs("ZhouCi")&"周 "&MyWeek&" "&MyDate%>"></td></tr>
</table>
</td>
</tr>
</form>
</table>
</body>
</html>
<%
rs.Close()
Set rs = Nothing
%>⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -