?? adminscore1.asp
字號:
<!--#include file="conn.asp"--> <%
if session("adminname")="" then
response.redirect "relogin.asp"
end if
nianji=request("nianji")
banji=request("banji")
%>
<html><%
sql4="select * from tbnianji order by nianjiid"
set rs4=server.createobject("adodb.recordset")
rs4.open sql4,conn,3,2
sql5="select * from tbbanji order by banjiid"
set rs5=server.createobject("adodb.recordset")
rs5.open sql5,conn,3,2
if nianji="--選擇科目--" or nianji="" then
nianji=rs4("nianji")
end if
if banji="--題型--" or banji="" then
banji=rs5("banji")
end if
%>
<head>
<meta http-equiv="Content-Language" content="zh-cn">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title>系統(tǒng)管理 | 試卷批改 | 班級模式</title>
<script language="javascript">
function editit(id)
{
page="adminscoreedit.asp?userid="+id
window.open (page,'編輯用戶','width=500,height=400,resizable=1')
}
function viewit(myform)
{
myform.action="adminscore.asp";
myform.submit();
}
function searchit(myform)
{
myform.action="adminscore1.asp";
myform.submit();
}
</script>
<link rel="stylesheet" type="text/css" href="css.css">
</head>
<body>
<table border="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber2" height="25">
<tr>
<td width="100%">當前位置：<a href="news.asp">系統(tǒng)管理</a> >
<a href="adminscorechoice.asp">試卷批改</a> <span lang="en-us">></span> 班級模式</td>
</tr>
</table>
<center>
<table border="1" cellspacing="1" style="border-collapse: collapse" id="AutoNumber2" bgcolor="#99CCFF" width="100%" background="images/admin_bg_1.gif" bordercolor="#799AE1">
<form name="viewaddform" method="POST" action="adminscore.asp?mykey=<%=request("mykey")%>">
<tr>
<td><center><select size="1" name="nianji">
<%
do while not rs4.eof
%><option value="<%=rs4("nianji")%>" <%if rs4("nianji")= nianji then %> selected <%end if%> ><%=rs4("nianji")%></option>
<%
rs4.movenext
loop %>
</select><span lang="en-us"> </span><select size="1" name="banji">
<%
do while not rs5.eof
%><option value="<%=rs5("banji")%>" <%if rs5("banji")= banji then %> selected <%end if%>><%=rs5("banji")%></option>
<%
rs5.movenext
loop %> </select><span lang="en-us"> </span><input type="submit" value="瀏 覽" name="I3" onclick="viewit(this.form)" class="s02">
<span lang="en-us"> </span>
<input type="text" name="mykey" size="10" value="--關(guān)鍵字--" onfocus="this.select()" class="s01"><span lang="en-us">
<select size="1" name="fanwei">
<option selected value="username">準考證號</option>
<option value="tname">姓 名</option>
<option value="email">電子信箱</option>
</select></span>
<input type="submit" value="查 詢" name="I7" onclick="searchit(this.form)" class="s02"></center>
</td>
</tr>
</table></center>
<%
fanwei=request("fanwei")
mykey=request("mykey")
if mykey= "--關(guān)鍵字--" or mykey="" then
%><br><br>
<center>
<h1>沒有輸入關(guān)鍵字</h1></center>
<%
else
sql="select * from tbuser where "&fanwei&" like '%"& mykey &"%' order by userid,username "
set rs=server.createobject("adodb.recordset")
rs.open sql,conn,3,2
on error resume next
rs.PageSize = 10
Page = CLng(Request("Page"))
If Page < 1 Then Page = 1
If Page > rs.PageCount Then Page = rs.PageCount
i=page+(page-1)*9
rs.AbsolutePage = Page
%><%
if rs.eof then
%><p>
<br><br>
</p>
<center>
<h4>在<font color="#FF0000"><%
if fanwei="username" then
response.write "準考證號"
end if
if fanwei="tname" then
response.write "姓 名"
end if
if fanwei="email" then
response.write "電子信箱"
end if
%></font>中沒有找到<font color="#FF0000"><%=mykey%></font></h4></center>
<%
else%><br><center><b>
在<font color="#FF0000"><%
if fanwei="username" then
response.write "準考證號"
end if
if fanwei="tname" then
response.write "姓 名"
end if
if fanwei="email" then
response.write "電子信箱"
end if
%></font>中找到<font color="#FF0000"><%=mykey%></font></b> </center>
<br>
<center>
<table border="1" cellspacing="1" style="border-collapse: collapse" bordercolor="#799AE1" width="550" id="AutoNumber1" height="52">
<td width="33" align="center" bgcolor="#799AE1" height="26">
<font color="#FFFFFF"><b>序號</b></font></td>
<td align="center" bgcolor="#799AE1" width="130" height="26">
<p align="center"><font color="#FFFFFF"><b>準考證號</b></font></td>
<td align="center" bgcolor="#799AE1" width="100" height="26">
<p align="center"><font color="#FFFFFF"><b>姓 名</b></font></td>
<td align="center" bgcolor="#799AE1" width="113" height="26">
<p align="center"><font color="#FFFFFF"><b>年<span lang="en-us"> </span>級</b></font></td>
<td align="center" bgcolor="#799AE1" width="104" height="26">
<p align="center"><font color="#FFFFFF"><b>班<span lang="en-us"> </span>級</b></font></td>
<td align="center" bgcolor="#799AE1" width="52" height="26">
<p align="center"><font color="#FFFFFF"><b>批改</b></font></td>
</tr>
<%
For iPage = 1 To rs.PageSize
sql1="select * from tbscore where username='"&rs("username")&"'"
set rs1=server.createobject("adodb.recordset")
rs1.open sql1,conn,3,2
%>
<tr class="trh1">
<td align="center" width="33" height="26"><%=i%></td>
<td align="center" width="141" height="26"><%
if rs1.eof then
%><%=replace(rs("username"),""&mykey&"","<font color=red>"&mykey&"</font>")%><%
else
%><a href="javascript:editit(<%=rs("userid")%>)"><%=replace(rs("username"),""&mykey&"","<font color=red>"&mykey&"</font>")%></a><%
end if %></td>
<td align="center" width="105" height="26"><%=replace(rs("tname"),""&mykey&"","<font color=red>"&mykey&"</font>")%></td>
<td align="center" width="128" height="26"><%=rs("nianji")%></td>
<td align="center" width="104" height="26"><%=rs("banji")%></td>
<td align="center" width="52" height="26">
<p align="center"><%
if rs1.eof then
%><img border="0" src="images/edit_2.gif" alt="查看/編輯"><%
else
%><a href="javascript:editit(<%=rs("userid")%>)"><img border="0" src="images/edit_2.gif" alt="查看/編輯"></a><%
end if %>
</td>
</tr>
<%
rs.MoveNext
If rs.EOF Then Exit For
i=i+1
Next
%>
<caption></caption>
</table>
</center>
</form>
<div ALIGN="right">
<table>
<form ACTION="<%=Myself%>?subjectview=<%=nianji%>&banji=<%=banji%>&mykey=<%=mykey%>%>" METHOD="GET">
<tr>
<td>
<p ALIGN="right"><INPUT class="s02" onclick="window.location='adminscorechoice.asp'" type=button value="返 回" name=close1> <%If Page <> 1 Then ' 如果不是位于第一頁%>
<a href="<%=Myself%>?Page=1&subjectview=<%=nianji%>&banji=<%=banji%>&mykey=<%=mykey%>">
第一頁</a>
<a HREF="<%=Myself%>?Page=<%=(Page-1)%>&subjectview=<%=nianji%>&banji=<%=banji%>&mykey=<%=mykey%>">
上一頁</a>
<%
End If
If Page <> rs.PageCount Then ' 如果不是位于最后一頁
%> <a HREF="<%=Myself%>?Page=<%=(Page+1)%>&subjectview=<%=nianji%>&banji=<%=banji%>&mykey=<%=mykey%>">
下一頁</a>
<a HREF="<%=Myself%>?Page=<%=rs.PageCount%>&subjectview=<%=nianji%>&banji=<%=banji%>&mykey=<%=mykey%>">
最后一頁</a> <% End If %> <font SIZE="2">輸入頁次:</font><input NAME="Page" SIZE="3" CLASS="s01">
<font SIZE="2">頁次:</font><font COLOR="Red" SIZE="2"><%=Page%>/<%=rs.PageCount%></font></p>
<p> </td>
</tr>
</form>
</table>
<%end if
end if
%></div>
</div>
</td>
</tr>
</table>
</body>
</html>?? 快捷鍵說明
復制代碼
Ctrl + C
搜索代碼
Ctrl + F
全屏模式
F11
切換主題
Ctrl + Shift + D
顯示快捷鍵
?
增大字號
Ctrl + =
減小字號
Ctrl + -