📄 editbiao.asp
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!--#include file="adovbs.inc" -->
<!--#include file ="connection.asp"-->
<html><head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="css/MainBorder.css" rel="stylesheet" type="text/css">
<title>信息显示</title>
<style type="text/css">
<!--
body {
background-color: #FBC2AD;
}
-->
</style></head>
<%
cs1=request.form("delbiao")
if cs1="" then
%>
<%
user=session("user")
lb=session("lb")
if user="" or lb<>"admin" then
response.Redirect("index.asp")
else
%>
<%
set RS = server.CreateObject("ADODB.Recordset")
sqlstr="select 课程表.*,系.xiname,专业.zhuanye,教师.teachername,课程.lessonname from 课程表,课程,系,专业,教师 where 课程表.xino=系.xino and 课程表.zhuanyeno=专业.zhuanyeno and 课程表.lessonno=课程.lessonno and 课程表.teacherno=教师.teacherno"
RS.open sqlstr , CN,1,3
if RS.eof then
response.write("没有可以显示的课程表信息！")
response.end
else
%>
<body>
<table width="200" border="0">
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
<tr>
<td> </td>
<td> </td>
<td> </td>
</tr>
</table>
<form action="editbiao.asp" method="post">
<table width="935" height="133" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#D4D0C8">
<tr>
<td height="27" colspan="15" ><div class="style2 STYLE3 STYLE1" id="title" >
<div align="center" class="STYLE7"></div>
</div>
<input name="delbiao" type="submit" class="s04" id="delbiao" value="删除课表信息"></td>
</tr>
<tr class="but">
<td width="35" align="right" class="but01"> </td>
<td width="75" height="35" align="right" class="but01"><div align="center">所在系部</div></td>
<td width="82" align="left " class="but01" ><div align="center">所在专业</div></td>
<td width="42" align="left " class="but01" ><div align="center">年级</div></td>
<td width="39" align="left " class="but01" ><div align="center">班级</div></td>
<td width="54" align="left " class="but01" ><div align="center">课程</div></td>
<td width="52" align="left " class="but01" ><div align="center">任课教师</div></td>
<td width="63" align="left " class="but01" ><div align="center">学期</div></td>
<td width="34" align="left " class="but01" ><div align="center">学分</div></td>
<td width="58" align="left " class="but01" ><div align="center">每周上课</div></td>
<td width="46" align="left " class="but01" ><div align="center">周次</div></td>
<td width="59" align="left " class="but01" ><div align="center">节次</div></td>
<td width="59" align="left " class="but01" ><div align="center">课程类型</div></td>
<td width="59" align="left " class="but01" ><div align="center">教室</div></td>
<td width="75" align="left " class="but01" ><div align="center">操作</div></td>
</tr>
<%
RS.movefirst
RS.pagesize=5
page=CLng(Request("page"))
if page<1 then page=1
RS.absolutepage=page
for i=1 to RS.pagesize
if not RS.eof then
%>
<tr bgcolor="#FFFFF4">
<td align="right" class="but1" ><input name="biaocheck" type="checkbox" id="biaocheck" value=<%=RS("biaono") %>></td>
<td height="31" align="right" class="but1" ><div align="center">
<% response.write(RS("xiname"))%>
</div></td>
<td class="but1" >
<div align="center">
<% response.write(RS("zhuanye"))%>
</div></td>
<td class="but1" >
<div align="center">
<% response.write(RS("jino"))%>
</div></td>
<td class="but1" >
<div align="center">
<% response.write(RS("banno"))%>
</div></td>
<td class="but1" >
<div align="center">
<%=RS("lessonname")%> </div></td>
<td class="but1" ><div align="center">
<% response.write(RS("teachername"))%>
</div></td>
<td class="but1" ><div align="center">
<% response.write(RS("xueqi"))%>
</div></td>
<td class="but1" ><div align="center"><% response.write(RS("xuefen"))%></div></td>
<td class="but1" >
<div align="center">
<% response.write(RS("everyweek"))%>
</div></td>
<td class="but1" >
<div align="center">
<% response.write(RS("week"))%>
</div></td>
<td class="but1" ><div align="center"><% response.write(RS("jieci"))%></div></td>
<td class="but1" ><div align="center"><% response.write(RS("lessontype"))%></div></td>
<td class="but1" ><div align="center"><% response.write(RS("classroom"))%></div></td>
<td class="but1" ><div align="center">
<input name="updatebiao" type="button" class="s04" id="updatebiao" onClick="JavaScript:window.open('updatebiao.asp?biaono=<%=RS("biaono") %>','','width=550,height=500,top=100,left=350')" value="变更课表">
</div></td>
</tr>
<%
end if
if not RS.eof then
RS.movenext
else
exit for
end if
next
if i>=RS.pagesize then
session("idcount")=i-1
else
session("idcount")=i
end if
'RS.close
%>
<tr >
<th height="27" colspan="15">
<div id="di"> <span class="STYLE5">
<% if page<>1 then %>
当前<%=page%>页<a href=<%=path%>?page=1 >第一页</a>
<a href=<%=path%>?page=<%=(page-1)%>>上一页</a></span>
<span class="STYLE5">
<%end if
if page<>RS.pagecount then %>
当前<%=page%>页</span> <span class="STYLE5"><a href=<%=path%>?page=<%=(page+1)%> >下一页</a>
<a href=<%=path%>?page=<%=RS.pagecount%> >最后一页</a></span>
<%end if %>
</div></th>
</tr>
</table>
<%
end if
end if
else
'删除所有选中的学生信息
biao=request.form("biaocheck")
biaono=split(biao,",")
sqlstr="delete from 课程表 where biaono in("
for i=LBound(biaono) to UBound(biaono)-1
sqlstr=sqlstr &"'" & trim(biaono(i)) &"',"
next
sqlstr=sqlstr&"'" & trim(biaono(UBound(biaono))) & "')"
'response.write sqlstr
'response.end
CN.execute sqlstr
response.redirect("editbiao.asp")
end if
%>
</form>
</body>
</html>
⌨️ 快捷键说明
复制代码
Ctrl + C
搜索代码
Ctrl + F
全屏模式
F11
切换主题
Ctrl + Shift + D
显示快捷键
?
增大字号
Ctrl + =
减小字号
Ctrl + -