⭐ 欢迎来到虫虫下载站！ | 📦 资源下载 📁 资源专辑 ℹ️ 关于我们
⭐ 虫虫下载站
📤 上传资源

📄 user_test.asp

📁 汕头育新学校学籍与成绩管理平台是集学籍管理与成绩管理于一体的网络互动平台。功能强大、使用简单、高效速成、安全方便
💻 ASP
📖 第 1 页 / 共 4 页
字号:
🔍
1234 
<!--#include file="user_err.asp"-->
<!--#include file="conn.asp"-->
<!--#include file="char.asp"-->
<%
b1=request("b1")
if b1="" then
%>
<HTML><HEAD><TITLE>汕头育新学校 - 成绩管理系统管理员页面</TITLE>
<META http-equiv=Content-Type content="text/html; charset=gb2312">
<LINK 
href="images/style.css" type=text/css rel=stylesheet>
<STYLE type=text/css>.pinkstar {
	COLOR: #ed5460
}
<STYLE type=text/css>BODY {
	FONT-SIZE: 12px; COLOR: #000080; LINE-HEIGHT: 12pt
}
INPUT {
	FONT-SIZE: 12px; COLOR: #000080
}
SELECT {
	FONT-SIZE: 12px; COLOR: #000080
}
TH {
	FONT-SIZE: 12px; COLOR: #000080
}
TD {
	FONT-SIZE: 12px; COLOR: #000080; LINE-HEIGHT: 12pt
}
A:link {
	FONT-SIZE: 12px; COLOR: #0000e0; TEXT-DECORATION: none
}
A:visited {
	FONT-SIZE: 12px; COLOR: #0000e0; TEXT-DECORATION: none
}
A:active {
	FONT-SIZE: 12px; COLOR: #0000ff; TEXT-DECORATION: none
}
A:hover {
	FONT-SIZE: 12px; COLOR: #ff0000; TEXT-DECORATION: underline
}
</STYLE>

<META content="Microsoft FrontPage 4.0" name=GENERATOR></HEAD>
<BODY>
<!--#include file="up.inc"-->
<!--#include file="upuser.inc"-->

<%dim page,AllGb,years,stat,classes  
page=request.querystring("page")
years=Session("years")                                                                                                               
stat=Session("stat")
u_no=Session("u_no")                                                                                                              
                                                                                                              
classes=Request.Form("classes") 
 
if  stat="" and years="" then
sqs2=""
else
sqs2="and a_stat="&stat&" and a_years="&years  
end if   
sqls=Session("strSQL") 

sqs1="a_id"&",a_stat"&",a_no"&",a_name"&sqls&",a_total"
if sqs3="" then
sqs3="a_total"
else
sqs3="a_id"
end if
sql2="Select "&sqs1&" from achievement where a_del=False and a_no='" & u_no & "'"&sqs2&" order by "&sqs3&" desc"  

AllGb=Conn.Execute("select count(a_id) from achievement where a_del=False ")(0)              
PageSize = 15              
set rs=server.createobject("adodb.recordset")              
rs.open sql2,conn,3,3        
            
rs.PageSize = PageSize              
pgnum=rs.Pagecount              
if page="" or clng(page)<1 then page=1              
if clng(page) > pgnum then page=pgnum              
if pgnum>0 then rs.AbsolutePage=page              
if rs.bof and rs.eof then %>             
<TABLE cellSpacing=0 cellPadding=0 width=750 align=center>            
  <TBODY>
1234

⌨️ 快捷键说明

复制代码 Ctrl + C
搜索代码 Ctrl + F
全屏模式 F11
切换主题 Ctrl + Shift + D
显示快捷键 ?
增大字号 Ctrl + =
减小字号 Ctrl + -