?? gl.asp
字號:
<%if session("password")<>"" then%>
<!--#include file="conn.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>管理頁面</title>
<script language="JavaScript">
<!--
function test(){
if (document.form2.page.value=="" || isNaN(document.form2.page.value)) {
alert("輸入頁數(shù)必須為數(shù)值型");
document.form2.page.focus();
return false;
}
return true;
}
// -->
</script>
<script>
function del () //用于判斷記錄有沒有選中的函數(shù)
{
var flag=true;
var temp="";
var tmp;
if((document.form1.answer.length+"")=="undefined") {tmp=1}else{tmp=document.form1.answer.length}
if (tmp==1){
if (document.form1.answer.checked){
flag=false;
temp=document.form1.answer.value
}
}else{
for (i=0;i<document.form1.answer.length;i++) {
if (document.form1.answer[i].checked){
if (temp==""){
flag=false;
temp=document.form1.answer[i].value
}else{
flag=false;
temp = temp +","+ document.form1.answer[i].value
}
}
}
}
if (flag){ alert("對不起，您還沒有選擇！")}
else{ name=document.form1.name.value
//alert(name)
if (confirm("確定要刪除？")){
window.location="delnews.asp?id=" + temp;
}
}
return !flag;
}
</script>
<style type="text/css">
<!--
body {
scrollbar-face-color: #FFC4B0;
scrollbar-highlight-color: #FFC4B0;
scrollbar-shadow-color: #FF7142;
scrollbar-3dlight-color: #FF7142;
scrollbar-arrow-color: #FF7142;
scrollbar-darkshadow-color:#FFC4B0;
margin-left: 0px;
margin-top: 0px;
margin-right: 0px;
margin-bottom: 0px;
background-image: url(img/bg3.gif);
background-position:center;
margin-left: 0px;
}
body,td,th {
font-size: 13px;
color: #FF7142;
font-family: 宋體;
}
a {
font-family: 宋體;
font-size: 13px;
}
a:link {
text-decoration: none;
color: #FF7142;
}
a:visited {
text-decoration: none;
color: #FF7142;
}
a:hover {
text-decoration: none;
color: #FFB59D;
}
a:active {
text-decoration: none;
color: #FFB59D;
}
h1,h2,h3,h4,h5,h6 {
font-family: 宋體;
}
.style2 {color: #ff41b5}
-->
</style>
</head>
<body>
<script language=Javascript>
function checkall(all)//用于判斷全選記錄的函數(shù)
{
var a = document.getElementsByName("answer");
for (var i=0; i<a.length; i++) a[i].checked = all.checked;
}
</script>
<%
set rs=server.createobject("adodb.recordset")
sql="select * from teacher1 order by tnum asc"
rs.open sql,con,1,3 %>
<table width="430" border="0" height="90%" align="center" cellpadding="0" cellspacing="0">
<tr><td width="478" height='321' valign='top' ><div align=center>
<table width="429" border="0" align="center">
<tr>
<td align="center">成績后臺管理</td>
</tr>
</table>
<!--#include file="conn1.asp"-->
<%
page = CLng(request("page")) '利用CLng函數(shù)把page值轉(zhuǎn)換為Long型
judge=request("judge")
judge2=request("judge2")
judge3=0
sqlcmd="select * from teacher1 Order By tnum asc"
rs.Open sqlcmd,newcon,1,2
%>
<table width="447" border="0" align="center">
<tr>
<td width="141" align="center"><a href="add.asp" target="_parent">添加單個成績</a></td>
<td width="158" align="center"><a href="adds.asp" target="_parent">批量添加成績</a></td>
<td width="134" align="center"><a href="res.asp" target="_parent">通過學號搜索并修改</a></td>
</tr>
</table>
<p>
<form method="POST" id=form1 name=form1>
<table width="90%" border="0" align="center" class="tabDocborder" ID="Table3">
<tr>
<td>
<table width="433" align="center" id=TabDocMain border='1' cellspacing='0' cellpadding='0' bordercolorlight='#FFCC66' bordercolor='#FFCC66' class="TabDocMain">
<tr>
<td width="53" align=center>
刪除框
</td>
<td width="84" align=center>學號</td>
<td width="87" align=center>姓名</td>
<td width="87" align=center>科目</td>
<td width="87" align=center>成績</td>
<td width="86" align=center>
操作</td>
</tr>
<%
if not (rs.EOF or rs.BOF) then
rs.MoveFirst
rs.PageSize = 12 '每頁顯示的條數(shù)
If page < 1 Then page = 1
If page > rs.PageCount Then page = rs.PageCount
rs.AbsolutePage = page
For ipage = 1 To rs.PageSize%>
<tr>
<td align=center><input type="checkbox" name="answer" value="<%=rs("id")%>" ID="Checkbox1">
</td>
<td align=left><%=rs("tnum")%></td>
<td align=left><%=rs("tname")%></td>
<td align=left><%=rs("tsc")%></td>
<td align=left><%=rs("tscore")%></td>
<td align=center><a href="update.asp?id=<%=rs("id")%>">修改</a></td>
</tr>
<%
rs.MoveNext
If rs.EOF Then Exit For
Next
%>
<tr>
<td height="22" colspan="8" align="center">
<input type="checkbox" name="chkall" value="on" onclick="checkall(this)" ID="Checkbox2">選中所有的信息
<input type="button" name="btnDelete" value="刪除" style='font-family: 宋體; font-size: 9pt;' onclick="del()" ID="Button1"></td>
</tr>
</table>
</form>
<table width="433" border="0" align="center" cellpadding="0" cellspacing="1">
<tr bgcolor="7285CF">
<form onSubmit="return test();" method="get" action="gl.asp" id=form2 name=form2>
<td width="134" height="17" align="center" bgcolor="#FFCC99" ><font color="ffffff">頁數(shù)：</font>
<%Response.Write "<input type=text size=2 maxlength=4 name=page class=editbox1><input type=hidden name=judge value=1>" '顯示輸入頁數(shù)框并將page,judge參數(shù)傳遞下去%></td>
<td width="296" height="17" align="center" bgcolor="#FFCC99" >
<%
If page = 1 Then
Response.Write "<font class='white'>第一頁 上一頁</font>"
End If
If page <> 1 Then
Response.Write "<a href=gl.asp?page=1 class='yellow'>第一頁</a>"
Response.Write " <a href=gl.asp?page=" & (page - 1) & " class='yellow'>上一頁</a>"
End If
If page <> RS.PageCount Then
Response.Write " <a href=gl.asp?page=" & (page + 1) & " class='yellow'>下一頁</a>"
Response.Write " <a href=gl.asp?page=" & RS.PageCount & " class='yellow'>最后一頁</a>"
End If
If page = RS.PageCount Then
Response.Write " <font class='white'>下一頁 最后一頁</font>"
End If
%></td>
</form>
</tr>
<tr>
<td bgcolor="#FFCC99" class="white" colspan="2" height="17" > 記錄總數(shù)：<%=rs.recordCount%> 總頁數(shù)：<%=rs.PageCount%> 當前頁次：<%=page%> </td>
</tr>
</table>
<%else%>
<table align=center >
<td >對不起，沒有記錄！</td>
</table>
<%end if%>
<br>
</td>
</tr>
<tr>
</tr>
</body>
</html>
<%else
Response.Redirect "dlu.asp"
end if%>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -