📄 pc_score.asp

📁 大学的综合测评
💻 ASP
字号:
<%@LANGUAGE="VBSCRIPT" CODEPAGE="936"%>
<!-- #include file="const.asp" -->

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<link href="img/Style.css" rel="stylesheet" type="text/css" />
<title>无标题文档</title>
<style type="text/css">
<!--
.STYLE2 {color: #FFFFFF; }
-->
</style>
</head>

<%
start_userno = safeChar(trim(Request.Form("start_userno")))
end_userno = safeChar(trim(Request.Form("end_userno")))
t_month = safeChar(trim(Request.Form("t_month")))
orderby=safeChar(trim(Request.Form("orderby")))
dept_id=session("dept_id")



if t_month="" then
start_userno = Request.cookies("pageno1")("start_userno")
end_userno = Request.cookies("pageno1")("end_userno")
t_month = Request.cookies("pageno1")("t_month")
orderby = Request.cookies("pageno1")("orderby")
else
 Response.Cookies("pageno1").Expires=Date+7
		Response.Cookies("pageno1")("start_userno")=start_userno
     	Response.Cookies("pageno1")("end_userno")=end_userno
  		Response.Cookies("pageno1")("t_month")=t_month
		Response.Cookies("pageno1")("orderby")=orderby
end if
dept_score="dept_score"&t_month
'================生成sql语句===============

ssql1=" SELECT u_d,dept_name,score,bz"
ssql2=" from "&dept_score&"  "
ssql3="where u_d like '%#"&dept_id&"'"
ssql4=" "
ssql5=" order by "

		'ssql4
		if start_userno="ALL" and end_userno ="ALL" then
		    ssql4=" "
		elseif start_userno="ALL"   and  not end_userno ="ALL" then
		     ssql4=" and u_d <= '"&end_userno&"#"&dept_id&"'  "
        elseif  not start_userno="ALL"   and  end_userno ="ALL" then
		     ssql4=" and u_d >='"&start_userno&"#"&dept_id&"' "
		elseif not start_userno="ALL"   and not end_userno ="ALL" then 
		     ssql4="and u_d between '"&start_userno&"#"&dept_id&"' and '"&end_userno&"#"&dept_id&"'"
		end if
		 
       'ssql6 
			 if orderby="1" then
                 ssql5=ssql5&" u_d asc"
	         elseif orderby="2" then
	             ssql5=ssql5&" score  asc,u_d asc"
		     else 
		        ssql5=ssql5&" score  desc,u_d asc"
             end if	
		
sql=ssql1&ssql2&ssql3&ssql4&ssql5
'===sql生成结束======

Set myclass=new xdownpage
myclass.getconn=dbconn
myclass.getsql =sql
myclass.pagesize=20
set rs=myclass.getrs()


%>
<body>
<table width="94%" border="0" align="center" cellpadding="2" cellspacing="1" class="atable1">
  <tr>
    <td width="10%" bgcolor="#333333"><div align="center" class="STYLE2">
      <div align="center">学号</div>
    </div></td>
    <td width="14%" bgcolor="#333333"><div align="center" class="STYLE2">
      <div align="center">部门</div>
    </div></td>
    <td width="14%" bgcolor="#333333"><div align="center" class="STYLE2">[<span class="red" ><%=t_month%></span>]月得分</div></td>
    <td width="50%" bgcolor="#333333"><div align="center" class="STYLE2">理由</div></td>
    <%if cint(t_month)=cint(dept_allow_month)  then%><td width="12%" bgcolor="#333333"><div align="center"><a href="pc_add.asp" style="font-family:Arial, Helvetica, sans-serif; font-weight:bolder; color:#FFFFFF" title="添加成员"><strong>添加部门评分</strong></a></div></td><%end if%>
  </tr>
  <%if rs.eof then%>
  <tr>
    <td colspan="5" class="tdmenu"><div align="center"><br />
      还没有部门评分记录，<%if cint(t_month)=cint(dept_allow_month)  then%><a href="pc_add.asp">请添加</a><%end if%><br />
      <br />
    </div></td>
  </tr>
  <%else%>
  <%for i=1 to myclass.pagesize
     
    if not rs.eof then 
	 y=split(rs(0),"#")%>
	
  <tr>
    <td class="tdmenu"><div align="center"><%=(y(0))%></div></td>
    <td class="tdmenu"><div align="center"><%=(rs(1))%></div></td>
    <td class="tdmenu"><div align="center" class="red"><%=(rs(2))%></div></td>
    <td class="tdmenu"><div align="left"><%=(rs(3))%></div></td>
    <%if cint(t_month)=cint(dept_allow_month)  then%><td class="tdmenu"><div align="center"><a href="pc_update.asp?u_d=<%=y(0)%>">修改</a></div></td><%end if%>
  </tr>
  <% rs.movenext() 
    else 
	exit for
	end if 
	next %>
  <tr>
    <td height="40" colspan="5" align="right" valign="bottom" class="tdmenu"><% myclass.showpage()%></td>
  </tr>
  <%   end if %>
</table>
</body>
</html>
<%
rs.Close()
Set rs = Nothing
%>
⌨️ 快捷键说明

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