📄 hyupshuju.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<!--#include file="dqe_Conn.asp"-->
<!--#include file="check.asp"-->
<%
dim b
b=request.QueryString("id")
b=cint(b)
dim aspxingqi,aspkebie,aspriqi,aspjiaoshi,aspbeizhu
aspxingqi=Request.Form("xingqi")
aspkebie=Request.Form("kebie")
aspriqi=Request.Form("riqi")
aspjiaoshi=Request.Form("jiaoshi")
aspbeizhu=Request.Form("beizhu")
%>
<% If aspriqi="" Then
Response.Write("日期不能为空！")
Response.End
End If
%>
<%
if (b=0) Then
Set Rs1=Server.CreateObject("Adodb.RecordSet")
sql1="Select * From sq where jiaoshi='"&aspjiaoshi&"' and xingqi='"&aspxingqi&"' and kebie='"&aspkebie&"' and riqi=#"&aspriqi&"#"
rs1.open sql1,conn,1,1
If not rs1.eof Then
Response.Write(aspjiaoshi)
Response.Write("教室在该时段已被占用！请另行申请！")
Response.End
End If
Else
Set Rs1=Server.CreateObject("Adodb.RecordSet")
sql1="Select * From sq where jiaoshi='"&aspjiaoshi&"' and xingqi='"&aspxingqi&"' and kebie='"&aspkebie&"' and riqi=#"&aspriqi&"#"
rs1.open sql1,conn,1,1
If not rs1.eof Then
If (rs1("id")<>b) Then
Response.Write(aspjiaoshi)
Response.Write("教室在该时段已被占用！请另做改动!!")
Else
Response.Write("你没做任何修改就提交!")
End If
Response.End
End If
End If
rs1.Close
%>
<%
'Set Rs1=Server.CreateObject("Adodb.RecordSet")
'sql1="Select * From sq where jiaoshi='"&aspjiaoshi&"' and xingqi='"&aspxingqi&"' and kebie='"&aspkebie&"' and riqi='"&aspriqi&"'"
'rs1.open sql1,conn,1,1
'If rs1.eof Then
' If (b=0) Then
' Response.Write("此教室在该时段已被占用！请另行申请！")
' Response.End
' End If
' If (rs1("id")<>b) Then
' Response.Write("此教室在该时段已被占用！请另做改动!!")
' Response.Write(rs1("id"))
' Response.End
' End If
'End If
%>
<% rs1.Close %>
<%
Set Rs=Server.CreateObject("Adodb.RecordSet")
If b<>0 Then
Sql="Select * From sq where id="&b
rs.open sql,conn,1,3
rs("xingqi")=aspxingqi
rs("kebie")=aspkebie
rs("leibie")=aspleibie
rs("riqi")=aspriqi
rs("jiaoshi")=aspjiaoshi
rs("beizhu")=aspbeizhu
rs.update
rs.close
Else
Sql="Select * From sq "
rs.open sql,conn,1,3
rs.AddNew
rs("xingqi")=aspxingqi
rs("kebie")=aspkebie
rs("leibie")=aspleibie
rs("riqi")=aspriqi
rs("jiaoshi")=aspjiaoshi
rs("beizhu")=aspbeizhu
rs.update
rs.close
b=""
End If
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title></title>
<style type="text/css">
<!--
.unnamed2 {
border-top-width: 1px;
border-right-width: 1px;
border-bottom-width: 1px;
border-left-width: 1px;
border-top-style: solid;
border-right-style: none;
border-bottom-style: solid;
border-left-style: none;
border-top-color: #636EA2;
border-bottom-color: #636EA2;
}
.unnamed3 {
border-top: 1px none #636EA2;
border-right: 1px solid #636EA2;
border-bottom: 1px none #636EA2;
border-left: 1px none #636EA2;
}
.style1 {color: #FF0000}
.unnamed1 {
border: 1px solid #636EA2;
}
body,td,th {
font-size: 10pt;
color: #333333;
}
a:link {
color: #333333;
text-decoration: none;
}
a:visited {
text-decoration: none;
color: #333333;
}
a:hover {
text-decoration: underline;
color: #333333;
}
a:active {
text-decoration: none;
color: #333333;
}
.unnamed4 {
border-top-width: 1px;
border-right-width: 1px;
border-bottom-width: 1px;
border-left-width: 1px;
border-top-style: solid;
border-right-style: solid;
border-bottom-style: solid;
border-left-style: none;
border-top-color: #636EA2;
}
-->
</style>
</head>
<body>
<div align="center"><br>
</div>
<div align="center">
<p><% If b<>0 Then %>
修改成功
<% Else %>
上传成功
<% End If %></p>
<p><a href="xsycjp.asp">返回</a><br>
</p>
</div>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -