📄 studentouts.asp

📁 学生信息化管理系统,目前最完美的学生信息化管理系统,界面美观,操作方面,个性化设置.一套软件管理多所学校.
💻 ASP
字号:
<% Set hdobj = Server.CreateObject("HD.comOpen")'请确保此行在最前
Connkaa = hdobj.WeekaaConn()
%>

<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<meta http-equiv="pragma" content="no-cache">
<title>红笛软件</title>
<style type="text/css">
<!--
.style3 {font-size: 12px}
.style4 {	color: #FFFFFF;
	font-size: 14px;
}
body,td,th {
	font-size: 12px;
}
body {
	margin-left: 0px;
	margin-top: 10px;
	margin-right: 0px;
	margin-bottom: 0px;
	background-image: url(../Image/BG01.gif);
}
.STYLE9 {
	font-size: 36px;
	font-family: "黑体";
	font-weight: bold;
	color: #FFFF00;
}
.STYLE10 {color: #FF0000}
a:link {
	text-decoration: none;
	color: #003366;
}
a:visited {
	text-decoration: none;
	color: #003366;
}
a:hover {
	text-decoration: none;
}
a:active {
	text-decoration: none;
}
.STYLE12 {color: #FFFFFF; font-family: "黑体"; font-size: 16px;}
.style13 {	color: #FFFFFF;
	font-size: 12px;
}
-->
</style><script language="JavaScript" type="text/JavaScript">

function delpay()
{
   if(confirm("确定要删除此吗？"))
     return true;
   else
     return false;	 
}
function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>
</head>

<body onmouseover="self.status='红笛软件:服务网址[http://weekaa.com/red]';return true">
<p>

<%
call hdobj.top()
dim stv,sqstv,La,Lb
tabb="stuOuts"
La=Request("La")
Lb=Request("Lb")
Set stv = Server.CreateObject("ADODB.RecordSet")
sqstv = "Select * From [sets] where TB='"&tabb&"'"
stv.Open Sqstv,Connkaa,1,3
ListLong=stv("lis")
if session("StudentListLm")<>"" then
ListLong=session("StudentListLm")
end if
Na=mid(ListLong,1,1)
Nb=mid(ListLong,2,1)
Nc=mid(ListLong,3,1)
Nd=mid(ListLong,4,1)
Ne=mid(ListLong,5,1)
Nf=mid(ListLong,6,1)
Ng=mid(ListLong,7,1)
Nh=mid(ListLong,8,1)

%>
</p>
<table width="990" height="25"  border="1" align="center" cellpadding="0" cellspacing="0" bordercolor="#0066CC">
<tr valign="bottom" bordercolor="#6A8FDA" bgcolor="#FFFFFF">
<td height="60" align="center" valign="bottom" bgcolor="#FFFFFF">
<form action="?action=search" method="post" name="form1" id="form1">
      
<%call hdobj.Solist("student", "La")%>        
        　输入查询内容 <input name="Lb" type="text" id="Lb" size="14">　
       
<input name="Submit2" type="submit" id="Submit" value="提交">　　
<a href="#" onClick="MM_openBrWindow('Lm.asp?Taba=stuOuts','红笛软件','scrollbars=no,width=800,height=120')">[离校手续设置]</a>
    </form></td></tr></table>
  

<table width="200" border="0" align="center" cellpadding="0" cellspacing="0"><tr><td height="10">&nbsp;</td></tr></table>
<table width="990" border="1" align="center" cellspacing="0" bordercolor="#0033CC">

<tr><td height="30" align="center" bgcolor="#0033CC" class="STYLE12">毕业离校手续办理流程</td></tr>
  

<tr> <td><table width="100%" border="1" cellpadding="0" cellspacing="0" bordercolor="#E8EBEE">
      <tr align="center" bgcolor="#F1F3F5">
        <td width="9%" height="25" class="style3">学　号</td>
        <td width="9%" class="style3">姓名</td>
        <td width="9%" class="style3">性别</td>
        <td width="9%" class="style3"><%=stv(Na)%></td>
        <td width="9%" class="style3"><%=stv(Nb)%></td>
        <td width="9%" class="style3"><%=stv(Nc)%></td>
        <td width="9%" class="style3"><%=stv(Nd)%></td>
        <td width="9%" class="style3"><%=stv(Ne)%></td>
        <td width="9%" class="style3"><%=stv(Nf)%></td>
        <td width="9%" class="style3"><%=stv(Ng)%></td>
        <td width="10%" class="style3"><%=stv(Nh)%></td></tr>
      
<%
Set rs = Server.CreateObject("ADODB.RecordSet")
if Lb="" or La="" then
sqls = "Select * From [student] order by c asc"
else
sqls = "Select * From [student] where "&La&" like '%"&Lb&"%' order by c asc"
end if
rs.Open Sqls,Connkaa,1,3
'=========================================================
Dim i, text, checkpage, page, MaxPerPage, CurrentPage
MaxPerPage = Request.Form("pages")
If MaxPerPage = "" Then
MaxPerPage = 30
End If
If MaxPerPage < 1 Or MaxPerPage > 1000 Then
MaxPerPage = 30
End If
MaxPerPage = MaxPerPage * 1
text = "0123456789"
rs.PageSize = MaxPerPage
GoPage = Request.Form("pagee")
For i = 1 To Len(GoPage)
checkpage = InStr(1, text, Mid(GoPage, i, 1))
If checkpage = 0 Then
Exit For
End If
Next
If checkpage <> 0 Then
If Not IsEmpty(GoPage) Then
CurrentPage = CInt(GoPage)
If CurrentPage < 1 Then CurrentPage = 1
If CurrentPage > rs.PageCount Then CurrentPage = rs.PageCount
Else
CurrentPage = 1
End If
If Not rs.EOF Then
rs.AbsolutePage = CurrentPage
End If
Else
CurrentPage = 1
End If
RsSum = CStr(rs.RecordCount) '记录总条数
pageOn = CStr(CurrentPage) '当前第几页
pageSum = CStr(rs.PageCount) '总共几页
NextPage = pageOn + 1
If NextPage > pageSum Then
NextPage = pageSum
End If
'==============================================================
i=0
do while not rs.eof
rsNb=rs("c")
nameLen = Len(rsNb)
If nameLen = 2 Then
rsNbs = Mid(rsNb, 1, 1) & "　" & Mid(rsNb, 2, 1)
rsNb = rsNbs
End If
rsID=rs("ID")
set rc=Server.CreateObject("ADODB.RecordSet")
sqlc = "Select * From [stuOuts] where l='"&rsID&"'"
rc.Open Sqlc,Connkaa,1,3
if rc.eof then
rc.addnew
rc("a")="未办"
rc("b")="未办"
rc("c")="未办"
rc("d")="未办"
rc("e")="未办"
rc("f")="未办"
rc("g")="未办"
rc("h")="未办"
rc("l")= rsID
rcA="未办"
rcB="未办"
rcC="未办"
rcD="未办"
rcE="未办"
rcF="未办"
rcG="未办"
rcH="未办"
rc.update
else
rcA=rc("a")
rcB=rc("b")
rcC=rc("c")
rcD=rc("d")
rcE=rc("e")
rcF=rc("f")
rcG=rc("g")
rcH=rc("h")
rcID=rc("ID")

end if
IF rcA="未办" then
bga="#FA9AEE"
else
bga="#99FB9E"
end if
IF rcB="未办" then
bgb="#FA9AEE"
else
bgb="#99FB9E"
end if
IF rcC="未办" then
bgc="#FA9AEE"
else
bgc="#99FB9E"
end if
IF rcD="未办" then
bgd="#FA9AEE"
else
bgd="#99FB9E"
end if
IF rcE="未办" then
bge="#FA9AEE"
else
bge="#99FB9E"
end if
IF rcF="未办" then
bgf="#FA9AEE"
else
bgf="#99FB9E"
end if
IF rcG="未办" then
bgg="#FA9AEE"
else
bgg="#99FB9E"
end if
IF rcH="未办" then
bgh="#FA9AEE"
else
bgh="#99FB9E"
end if


Longa="<a href='#' onClick=" & Chr(34) & "MM_openBrWindow('StudentOutSadd.asp?n=a&ID=" & rcID &"','红笛软件','scrollbars=no,width=250,height=30')" & Chr(34) & ">"
Longb="<a href='#' onClick=" & Chr(34) & "MM_openBrWindow('StudentOutSadd.asp?n=b&ID=" & rcID &"','红笛软件','scrollbars=no,width=250,height=30')" & Chr(34) & ">"
Longc="<a href='#' onClick=" & Chr(34) & "MM_openBrWindow('StudentOutSadd.asp?n=c&ID=" & rcID &"','红笛软件','scrollbars=no,width=250,height=30')" & Chr(34) & ">"
Longd="<a href='#' onClick=" & Chr(34) & "MM_openBrWindow('StudentOutSadd.asp?n=d&ID=" & rcID &"','红笛软件','scrollbars=no,width=250,height=30')" & Chr(34) & ">"
Longe="<a href='#' onClick=" & Chr(34) & "MM_openBrWindow('StudentOutSadd.asp?n=e&ID=" & rcID &"','红笛软件','scrollbars=no,width=250,height=30')" & Chr(34) & ">"
Longf="<a href='#' onClick=" & Chr(34) & "MM_openBrWindow('StudentOutSadd.asp?n=f&ID=" & rcID &"','红笛软件','scrollbars=no,width=250,height=30')" & Chr(34) & ">"
Longg="<a href='#' onClick=" & Chr(34) & "MM_openBrWindow('StudentOutSadd.asp?n=g&ID=" & rcID &"','红笛软件','scrollbars=no,width=250,height=30')" & Chr(34) & ">"
Longh="<a href='#' onClick=" & Chr(34) & "MM_openBrWindow('StudentOutSadd.asp?n=h&ID=" & rcID &"','红笛软件','scrollbars=no,width=250,height=30')" & Chr(34) & ">"

	  
response.write "<tr align='center' valign='bottom' bgcolor='#FFFFFF'>"
response.write "<td height='25'><a href='StudentPer.asp?ID=" & rs("ID") & "' target='_blank'>"& rs("a") & "</a></td>"
response.write "<td>" & rsNb & "</td>"
response.write "<td>" & rs("d") & "</td>"

response.write "<td bgcolor="& bga &">" &longa & rcA & "</a></td>"
response.write "<td bgcolor="& bgb &">" &longb & rcB & "</a></td>"
response.write "<td bgcolor="& bgc &">" &longc & rcC & "</a></td>"
response.write "<td bgcolor="& bgd &">" &longd & rcD & "</a></td>"
response.write "<td bgcolor="& bge &">" &longe & rcE & "</a></td>"
response.write "<td bgcolor="& bgf &">" &longf & rcF & "</a></td>"
response.write "<td bgcolor="& bgg &">" &longg & rcG & "</a></td>"
response.write "<td bgcolor="& bgh &">" &longh & rcH & "</a></td></tr>"
rc.close
set rc=nothing
i=i+1
if i >= MaxPerpage then exit do   
rs.movenext
loop	  

Response.Write "</table></td></tr><tr><form name='form2' method='post' action=''><td height='30' align='center' bgcolor='#0033CC'>"
Response.Write "<span class='STYLE13'><input type='hidden' name='La' value='" & La & "'><input type='hidden' name='Ld' value='" & Ld & "'>"
Response.Write "<span class='STYLE13'><input type='hidden' name='Lb' value='" & Lb & "'><input type='hidden' name='Lc' value='" & Lc & "'>"
Response.Write "第" & pageOn & "/" & pageSum & "页　共" & RsSum & "条记录 每页"
Response.Write "<input name='pages' type='text' id='pages' value='" & MaxPerPage & "'"
Response.Write " size='2' style='background-color: #3568FF; border-color: #FFFFFF; border-style: solid; border-width: 0px 0px 1px 0px, font-family:Verdana,Arial; font-size: 10pt; color: #FFFFFF'>"
Response.Write "条记录　转到</span>"
Response.Write "<input name='pagee' type='text' id='pagee' value='" & NextPage & "' size='2' style='background-color: #3568FF; border-color: #FFFFFF;"
Response.Write " border-style: solid; border-width: 0px 0px 1px 0px, font-family:Verdana,Arial; font-size: 10pt; color: #FFFFFF'>"
Response.Write "<input name='Submit' type='submit' class='STYLE10' value='Go'></td></form></tr></table>"
If Request.QueryString("deln") = "del" Then
call hdobj.Deler("student","ll")
end if
%>
</body>
</html>
⌨️ 快捷键说明

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