📄 modify.asp
字号:
<%
fyear=request.form("year")
fmonth=request.form("month")
fclass=request.form("class")
fweek=request.form("week")
fuser=request.form("user")
fpass=request.form("pass")
if trim(fuser)<>"caoqianqian" then
'response.write "<br><br><center> 对不起，管理员用户名错!</center><br><br>"
'response.redirect "modify.htm"
Response.Write("<script LANGUAGE = JScript>alert('" + "对不起，管理员用户名错!" + "');window.document.URL='" + "modify.htm" + "';</script>")
end if
if trim(fpass)<>"811106" then
'response.write "<br><br><center> 对不起，管理员用密码错!</center><br><br>"
'response.redirect "modify.htm"
Response.Write("<script LANGUAGE = JScript>alert('" + "对不起，管理员密码错!" + "');window.document.URL='" + "modify.htm" + "';</script>")
end if
connstr = "DBQ="+server.mappath("classroom.mdb")+";DefaultDir=;DRIVER={Microsoft Access Driver (*.mdb)};DriverId=25;FIL=MS Access;ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;"
Set Conn = Server.CreateObject("ADODB.Connection")
set rs=server.createobject("adodb.recordset")
conn.open connstr
sql="select * from "&trim(fclass)&" where week='"&trim(fweek)&"' and month='"&trim(fmonth)&"' and year='"&fyear&"'"
rs.open sql,Conn,1,1
if rs.recordcount=0 then
errormessage="对不起，你选择的第几周不存在!"
error=1
end if
if error=1 then
response.write "<center>"&errormessage&"</center><br><br>"
response.write "<center><a href='javascript:history.go(-1);'>请重新输入</a></center>"
else
fyear=rs("year")
fmonth= rs("month")
fweek=rs("week")
fa1=rs("a1")
fa2=rs("a2")
fa3=rs("a3")
fa4=rs("a4")
fa5=rs("a5")
fa6=rs("a6")
fa7=rs("a7")
fa8=rs("a8")
fa9=rs("a9")
fa10=rs("a10")
fa11=rs("a11")
fa12=rs("a12")
fa13=rs("a13")
fb1=rs("b1")
fb2=rs("b2")
fb3=rs("b3")
fb4=rs("b4")
fb5=rs("b5")
fb6=rs("b6")
fb7=rs("b7")
fb8=rs("b8")
fb9=rs("b9")
fb10=rs("b10")
fb11=rs("b11")
fb12=rs("b12")
fb13=rs("b13")
fc1=rs("c1")
fc2=rs("c2")
fc3=rs("c3")
fc4=rs("c4")
fc5=rs("c5")
fc6=rs("c6")
fc7=rs("c7")
fc8=rs("c8")
fc9=rs("c9")
fc10=rs("c10")
fc11=rs("c11")
fc12=rs("c12")
fc13=rs("c13")
fd1=rs("d1")
fd2=rs("d2")
fd3=rs("d3")
fd4=rs("d4")
fd5=rs("d5")
fd6=rs("d6")
fd7=rs("d7")
fd8=rs("d8")
fd9=rs("d9")
fd10=rs("d10")
fd11=rs("d11")
fd12=rs("d12")
fd13=rs("d13")
fe1=rs("e1")
fe2=rs("e2")
fe3=rs("e3")
fe4=rs("e4")
fe5=rs("e5")
fe6=rs("e6")
fe7=rs("e7")
fe8=rs("e8")
fe9=rs("e9")
fe10=rs("e10")
fe11=rs("e11")
fe12=rs("e12")
fe13=rs("e13")
ff1=rs("f1")
ff2=rs("f2")
ff3=rs("f3")
ff4=rs("f4")
ff5=rs("f5")
ff6=rs("f6")
ff7=rs("f7")
ff8=rs("f8")
ff9=rs("f9")
ff10=rs("f10")
ff11=rs("f11")
ff12=rs("f12")
ff13=rs("f13")
%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//EN">
<HTML>
<HEAD>
<title>会议室管理后台</title>
<META content="text/html; charset=gb2312" http-equiv=Content-Type>
<META content="Microsoft FrontPage 4.0" name=GENERATOR>
<META content=FrontPage.Editor.Document name=ProgId>
<meta http-equiv="content-type" content="text/html; charset=gb2312">
<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>
<style type="text/css">
@import url("css.css");
.STYLE1 {
color: #0000FF;
font-size: 16px;
}
</style>
<script language="JavaScript">
<!--
var caution = false
function setCookie(name, value, expires, path, domain, secure) {
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -