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

📄 index.asp

📁 原代码学生信息管理系统(原代码)不够的的话我给原程序 QQ3810091
💻 ASP
📖 第 1 页 / 共 2 页
字号:

function makeRaised(el) {
	with (el.style) {
		borderLeft   = "1px solid buttonhighlight";
		borderRight  = "1px solid buttonshadow";
		borderTop    = "1px solid buttonhighlight";
		borderBottom = "1px solid buttonshadow";
		padding      = "1px";
	}
}

function makePressed(el) {
	with (el.style) {
		borderLeft   = "1px solid buttonshadow";
		borderRight  = "1px solid buttonhighlight";
		borderTop    = "1px solid buttonshadow";
		borderBottom = "1px solid buttonhighlight";
		paddingTop    = "2px";
		paddingLeft   = "2px";
		paddingBottom = "0px";
		paddingRight  = "0px";
	}
}

function makeGray(el,b) {
	var filtval;
	
	if (b)
		filtval = "gray()";
	else
		filtval = "";

	var imgs = findChildren(el, "tagName", "IMG");
		
	for (var i=0; i<imgs.length; i++) {
		imgs[i].style.filter = filtval;
	}

}
	

document.write("<style>");
document.write(".coolBar	{background: buttonface;border-top: 1px solid buttonhighlight;	border-left: 1px solid buttonhighlight;	border-bottom: 1px solid buttonshadow; border-right: 1px solid buttonshadow; padding: 2px; font: menu;}");
document.write(".coolButton {border: 1px solid buttonface; padding: 1px; text-align: center; cursor: default;}");
document.write(".coolButton IMG	{filter: gray();}");
document.write("</style>");

</SCRIPT>

<SCRIPT type=text/javascript>
<!--

document.onmousedown = initDown; 
document.onmouseup   = initUp;
document.onmousemove = initMove;

function initDown() {
	doDown();
	moveme_onmousedown();
}

function initUp() {
	doUp();
	moveme_onmouseup();
}

function initMove() {
	moveme_onmousemove();
}

//-->
</SCRIPT>

<STYLE type=text/css>BODY {
	FONT-FAMILY: "宋体"; FONT-SIZE: 9pt; MARGIN-TOP: 0px
}
.pt9 {
	FONT-FAMILY: "宋体"; FONT-SIZE: 9pt
}
</STYLE>


</HEAD>


<BODY bgColor=#e0dfde leftMargin=0 topMargin=0>

<SCRIPT language=JavaScript>
var mylocation="main.htm"
var winheight=100
var winsize=100
var x=5
function go(){
win2=window.open("","","scrollbars")
win2.location=mylocation
if (!document.layers&&!document.all){
win2.location=mylocation
return}
win2.resizeTo(100,100)
win2.moveTo(0,0)
go2()}
function go2(){
if (winheight>=screen.availHeight-3)
x=0
win2.resizeBy(5,x)
winheight+=5
winsize+=5
if (winsize>=screen.width-5){
win2.location=mylocation
winheight=100
winsize=100
x=5
return}
setTimeout("go2()",50)
}
</SCRIPT>


<DIV align=left>
  <TABLE cellPadding=0 class=coolBar id=toolbar1 
style="LEFT: 0px; POSITION: relative; TOP: 0px; Z-INDEX: 99" width="100%">
    <TBODY> 
    <TR> 
      <TD class=coolButton onclick=javascript:history.back()><NOBR><IMG 
      height=12 src="001a.gif" width=20>后退</NOBR></TD>
      <TD></TD>
      <TD class=coolButton 
    onclick="window.open('gly.asp', '_self')"><NOBR><IMG 
      height=16 src="c1.gif" width=16>系统管理员</NOBR> </TD>
      <TD class=coolButton 
    onclick="window.open('gly1.asp', '_self')"><NOBR><IMG 
      height=16 src="c1.gif" width=16>校级管理员</NOBR> </TD>
      <TD class=coolButton 
    onclick="window.open('xgmm15.asp', '_self')"><NOBR><IMG height=16 
      src="c1.gif" width=16>班级管理员</NOBR> </TD>
      <TD class=coolButton 
    onclick="window.open('gwsckxs.asp', '_self')"><NOBR><IMG height=16 
      src="002.gif" width=16>学生修改密码</NOBR> </TD>
      <TD class=coolButton 
    onclick="window.open('gwsckxs1.asp', '_self')"><NOBR><IMG height=16 
      src="c2.gif" width=16>学生留言</NOBR></TD>
      <TD class=coolButton onclick=javascript:history.forward()>前进<NOBR><IMG 
      height=12 src="001.gif" width=20></NOBR></TD>
    </TR>
    </TBODY>
  </TABLE>
</DIV>




</BODY></HTML><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td>
      <p align="center"><font face="华文行楷" size="6" color="#FF0000">浏览查询窗口</font></br>
      
      
        每页显示:&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;

        <a href='index.asp?myjl=<%=10%>'>10条</a> &nbsp;&nbsp;&nbsp;&nbsp;

        <a href='index.asp?myjl=<%=20%>'>20条</a> &nbsp;&nbsp;&nbsp;&nbsp;
        
        <a href='index.asp?myjl=<%=50%>'>50条</a> &nbsp;&nbsp;&nbsp;&nbsp;

        <a href='index.asp?myjl=<%=100%>'>100条</a> &nbsp;&nbsp;&nbsp;&nbsp;
        
        <a href='index.asp?myjl=<%=total%>'>全部</a>

      <p>
      <div align="center"><b><font color="#0066FF">(目前共有记录<font color=red><%=total%></font>条,欢迎你查询) 
      </font></b></div>
 </td>
  </tr>
</table>



<%
Response.Write("<center>")


	Response.Write("<table border=1 cellpadding=1 cellspacing=1>")
	Response.Write("<tr bgcolor=aaaaaa style='color:black;'>")
	Response.Write("<td align=center>编号</td>")
	Response.Write("<td align=center><a  href='index.asp?jlh=1&myjl="&myjl&"'>学号</a></td>")
	Response.Write("<td align=center><a  href='index.asp?jlh=2&myjl="&myjl&"'>姓名</a></td>")
	Response.Write("<td align=center>性别</td>")
	Response.Write("<td align=center><a  href='index.asp?jlh=3&myjl="&myjl&"'>部门或专业</a></td>")
	Response.Write("<td align=center><a  href='index.asp?jlh=4&myjl="&myjl&"'>班级名称</a></td>")
	Response.Write("<td align=center><a  href='index.asp?jlh=5&myjl="&myjl&"'>家庭住址</a></td>")
    Response.Write("<td align=center>查看详情</td></tr>")




dim i 
i=1
do while not rs.eof and mypagesize>0 '----------这里的mypagesize>0不能丢,它是跳出循环的判断条件
xh=rs("xh")
xm=rs("xm")
xb=rs("xb")
s=rs("s")
zybj=rs("zybj")
jtdz=rs("jtdz")
 
  
  
  

 If sColor = "silver" Then
		sColor = "#cccccc"
	Else
		sColor = "silver"
	End If
   
		Response.Write("<tr bgcolor='" & sColor & "'>")
 
   %>
	
 
	<td align=center><font color="red"><%=i+(page-1)*rs.pagesize%></font></td>
	<td align=center><%=xh%></td>
    <td align=center><%=xm%></td>
    <%
    if xb="男" then
    	 %>
<td align=center><font color="red"><%=xb%></font></td>
	<%
else
	 %>
    	<td align=center><font color="green"><%=xb%></font></td>
<%
end if
 %>

    <td align=center><%=s%></td>
    <td align=center><%=zybj%></td>
    <td align=center><%=jtdz%></td>
    <td align=center>
  <a href="#" onClick="window.open('gwslyckxs.asp?xh=<%=xh%>&zybj=<%=zybj%>', 'Sample', 'toolbar=no,location=no,directories=no,status=no,menubar=no,scrollbars=yes,resizable=yes,copyhistory=yes,height=650,left=0,top=0')">
     <font color="blue">查看详情</font></a></td></tr>
 
   
   
  
   
   
   
   
   
   
   
   
<%


mypagesize=mypagesize-1  '-------------设定为10 这样只能循环10 次 减为0时跳出循环
i=i+1
rs.movenext
loop
'-------------------显示记录到此结束

	Response.Write("</table><br><br>") 
	 
Response.Write("</center>")

%>
<table width="100%" border="0" align="center">
  <tr>
    <td>
      <div align="center">页数:&nbsp; 
      
              <%
if page>2 then  '-------------------如果是在第2页以后则 显示首页
%>
        <a href=index.asp?page=<%=1%>&jlh=<%=jlh%>&myjl=<%=myjl%>>首页</a> 
        <%
end if
%>


             <%
if page>10 then  '-------------------如果是在第11页以后则 显示上10页
%>
        <a href=index.asp?page=<%=page-10%>&jlh=<%=jlh%>&myjl=<%=myjl%>>前10页</a> 
        <%
end if
%>



      
      
      
      
        <%
if page>1 then  '-------------------如果是在第一页以后则 显示上一页
%>
        <a href=index.asp?page=<%=page-1%>&jlh=<%=jlh%>&myjl=<%=myjl%>>上一页</a> 
        <%
end if
%>

 



        <%
if rs.pagecount<=10 then '---------------如果总共分页数少于或等于10页 则只用12345678910显示
for j=1 to rs.pagecount 
response.write "[<a href=index.asp?page="&j&"&jlh="&jlh&"&myjl="&myjl&">"&j&"</a>]"
next
else '----------------如果多于10页 则前10页用12345678910标出


jsj=page
if jsj>rs.pagecount-10 then
jsd=rs.pagecount
else
jsd=jsj+10
end if

for j=jsj to jsd
response.write "[<a href='index.asp?page="&j&"&jlh="&jlh&"&myjl="&myjl&"'>"&j&"</a>]&nbsp;"
next
if page<rs.pagecount-10 then
response.write  "[<a href='index.asp?page="&rs.pagecount&"&jlh="&jlh&"&myjl="&myjl&"' title='最后一页'>尾页</a>]"
end if
end if
'-------------最后一页
%>

<%
if page<rs.pagecount   then%>
        <a href='index.asp?page=<%=page+1%>&jlh=<%=jlh%>&myjl=<%=myjl%>'>下一页</a> 
        
        
        
        
        
        
        
        
 
        <%
end if

      


%>
</div></td></tr></table>
 <!--#include file="nn.asp"-->  
<form name="form2" method="post" action="find.asp?myjl=<%=myjl%>">
 
  <table width="100%" border="0" align="center" height="37">
    <tr>
      <td height="42"> 
        <div align="center">
          <select name="topic">
            <option value="1">按学号搜</option>
            <option value="2">按姓名搜</option>
            <option value="3">按家庭住址搜</option>
            <option value="4">按部门或专业搜</option>
            <option value="5">按班级名称搜</option>
            <option value="0" selected>智能搜索</option>
                      </select>
          关键词: 
          <input type="text" name="key" size="20">
          <input type="submit" name="Submit2" value="搜索">
        </div>
      </td>
    </tr>
  </table>
   </form>
  </form>
  </table>
<%
rs.close
set rs=nothing
conn.close
set conn=nothing
%>
  



  </BODY>
</HTML>

⌨️ 快捷键说明

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