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

📄 dangan.asp

📁 2002年夏天为一个同学制作得班级同学录程序
💻 ASP
字号:
<!--#include file="conn.asp" -->

<%

jumpPage=request.Form("jumpPage")

currentPage = TRIM( request.QueryString("page"))

if currentPage =""  and  jumpPage=""  then    
currentPage = 1

end if
if  jumpPage<>"" then
jumpPage=CINT(jumpPage)
 currentPage = jumpPage
end if 
if currentPage<1 then
currentPage=1
end if



set userinfo=Server.CreateObject("ADODB.Recordset")
userinfo.CursorType=adOpenStatic
userinfo.PageSize =15




'==================打开userinfo数据库====================
sql_userinfo="select * from user "




userinfo.Open sql_userinfo,conn,1,1
'===============================================
		while not userinfo.eof
		totalcount=totalcount+1
			userinfo.movenext
		wend
		

			userinfo.AbsolutePage=currentPage
		   rowCount = 0
		   

		   
'==========打开用户信息数据表========
sql_user="select * from user where userid='"&session("user")&"'"
set user_set=conn.execute(sql_user)		   


%>

<html>
<head>
<meta http-equiv="Content-Language" content="en-us">
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<meta name=keywords content="&#35745;&#31639;&#26426;&#25216;&#26415;">
<title><%=sitename%>  欢迎您</title>

<link href="style02.css" rel="StyleSheet" type="text/css">

<SCRIPT language=JavaScript>

var currentpos,timer; 



function initialize() 

{ 

timer=setInterval("scrollwindow()",10);

} 

function sc(){

clearInterval(timer);	

}

function scrollwindow() 

{ 

currentpos=document.body.scrollTop; 

window.scroll(0,++currentpos); 

if (currentpos != document.body.scrollTop) 

sc();

} 

document.onmousedown=sc

document.ondblclick=initialize

</script>


<script language="JavaScript" type="text/JavaScript">
<!--



function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
//-->
</script>
</head>

<body leftmargin="0" topmargin="0">
<center>
<table width="750" border="0" cellspacing="3" cellpadding="1" align="center">

 <tr> 
   <td width="194" height="29">
   <table width="100%" align="right" cellspacing=0 cellpadding=0 border=0><tr>
          <td width="55%">
          <img border="0" src="<%=toplog%>"></td>
          <td width="45%" valign=top> </td>
    </table></td>    
    <td width="375" height="29" align="center">
    <marquee width=300 direction="up" height="40" scrolldelay="200" scrollamount="1"><%=topmarque%></marquee><span style="position: absolute; left: 219; top: 4; z-index: -1"><img src="images/news.jpg" width="342" height="60"></span> 
    </td>
    <td width="100" height="60">
   <span style="position: absolute; left: 572; top: 5; z-index: -1">
   <img border="0" src="images/WALKGUY.GIF" width="115" height="59"></span></td>
    <td width="81" height="60">
   <img border="0" src="images/SP_OT.GIF" width="109" height="60"></td>
 </tr>
</table>
<div align="center" style="width: 750; height: 32">
  <center>
<table cellspacing=0 cellpadding=3 class=tableBorder1 height="21" style="width: 750; border-collapse: collapse" bordercolor="#111111">
<tr><td height=7 width="243">
  <span lang="zh-cn">&gt;&gt;欢迎 <font color="#FF0000"><%=user_set("nikename")%></font>&nbsp; 回家看看</span></td>
  <td height=7 valign=middle width="110"><a style="border:1px solid #C0C0C0; line-height:16px; FONT-FAMILY: 宋体; FONT-SIZE: 9pt; HEIGHT: 18px; WIDTH: 100px; color:#000000;" title="查看班级相册" href="xiangce.asp"><center>班级影集</center></a></td>
  <td height=7 valign=middle width="110">
  <p align="center"><a style="border:1px solid #C0C0C0; line-height:16px; FONT-FAMILY: 宋体; FONT-SIZE: 9pt; HEIGHT: 18px; WIDTH: 100px;  color:#000000;" title="查看班级成员档案" href="dangan.asp">班级档案</a></td>
    <td height=7 valign=middle width="110">
  <p align="center"><a href="main.asp" style="border:1px solid #C0C0C0; line-height:16px; FONT-FAMILY: 宋体; FONT-SIZE: 9pt; HEIGHT: 18px; WIDTH:100px; color:#000000;" title="进入班级留言板">留言板</a></td>
  <td height=7 valign=middle width="110">
  <p align="center"><a href="liaotian.asp" style="border:1px solid #C0C0C0; line-height:16px; FONT-FAMILY: 宋体; FONT-SIZE: 9pt; HEIGHT: 18px; WIDTH:100px; color:#000000;" title="进入聊天室">聊天室</a></td>
  <td height=7 valign=middle width="110">
  <p align="center"><a href="manage.asp" style="border:1px solid #C0C0C0; line-height:16px; FONT-FAMILY: 宋体; FONT-SIZE: 9pt; HEIGHT: 18px; WIDTH: 100px; color:#000000;" title="进入管理系统">系统管理</a></td>
<tr></td>
</table>
  </center>
</div>

<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="750" id="AutoNumber5">
  <tr>
    <td width="185" valign="top">
    <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber6" height="135" bordercolorlight="#0099FF" bordercolordark="#76AEF0">
      <tr>
        <th width="100%" height="17">
      <p align="center">管理员公告</th>
      </tr>
      <tr>
        <td width="100%" height="15">
        <p align="center">
           <marquee width=200 direction="up" height="200" scrolldelay="200" scrollamount="1"><%=gonggao%></marquee>
        </td>
      </tr>
        </table>  
  </td>
     


<td width="562" rowspan="3" align="center" valign="top"><span lang="zh-cn">
 
    <table>
    <tr>
    <td valign="top">
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="540" id="AutoNumber2" height="90">
  <tr>
<th width="540" height="24" colspan="10"><span lang="zh-cn"><font size="5">班 级 档案</font></span></tr>
  </tr>
  <% do	while not userinfo.eof and rowCount <userinfo.pagesize %> 
  <tr>
<td width="60" class=tablebody1 height="17"><%=userinfo("nikename")%>  
</td>
<td width="50" class=tablebody1 height="17"><%=userinfo("name")%>
</td>
<td width="100" class=tablebody1 height="17"><%=userinfo("address")%>
</td>
<td width="50" class=tablebody1 height="17"><%=userinfo("tel")%>
</td>
<td width="50" class=tablebody1 height="17"><%=userinfo("mob_tel")%>
</td>
<td width="100" class=tablebody1 height="17"><%=userinfo("instruction")%>
</td>
<td width="30" class=tablebody1 height="17"><%=userinfo("logins")%>
</td>
<td width="30" class=tablebody1 height="17"><%=userinfo("online")%>
</td>
<td width="30" class=tablebody1 height="17"><%=userinfo("sex")%>
</td>
<td width="50" class=tablebody1 height="17"><%=userinfo("email")%>
</td>

  </tr>
  	<% userinfo.movenext
                 rowcount=rowcount+1%>
               <%loop%>  
 </table>
 </td>
 </tr>
 <tr>
 <td>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="529" id="AutoNumber2" height="20">
       
 <tr> 
          <th width="139" height="1"><span lang="zh-cn">共</span><%=totalcount%>条&nbsp;;<%=userinfo.PageCount%>页 
          ;第<%=currentpage%>页
          </th>
          <th width="290" align="left" height="1">| 

          
          <a href="main.asp?Page=1" style="border:1px solid #C0C0C0; line-height:16px;backgroud-color: #ffffff; FONT-FAMILY: &#23435;&#20307;; FONT-SIZE: 9pt; HEIGHT: 18px; WIDTH: 45px; color:#0000ff; background-color:#FFFFFF">第一页</a>|
          
 <%
			 if currentPage<>1 then
			%>     
  <a href=" main.asp?Page=<%=currentPage-1%>" style="border:1px solid #C0C0C0; line-height:16px;backgroud-color: #ffffff; FONT-FAMILY: &#23435;&#20307;; FONT-SIZE: 9pt; HEIGHT: 18px; WIDTH: 45px; color:#0000ff; background-color:#FFFFFF">上一页</a>
  
            <% else
		 response.Write("上一页")  
		 end if%>|
		         <%if currentPage<>userinfo.Pagecount then%>
			<a href="main.asp?Page=<%=currentPage+1%>" style="border:1px solid #C0C0C0; line-height:16px;backgroud-color: #ffffff; FONT-FAMILY: &#23435;&#20307;; FONT-SIZE: 9pt; HEIGHT: 18px; WIDTH: 45px; color:#0000ff; background-color:#FFFFFF">下一页</a>
			
			
			                    <%else
                      response.Write("下一页") 
					  
			end if%>
			|<a href="main.asp?Page=<%=userinfo.PageCount%>" style="border:1px solid #C0C0C0; line-height:16px;backgroud-color: #ffffff; FONT-FAMILY: &#23435;&#20307;; FONT-SIZE: 9pt; HEIGHT: 18px; WIDTH:45px; color:#0000ff; background-color:#FFFFFF">末页</a>| </th>


         
         <form action="main.asp" method="post">
            <th width="100" height="1" valign="bottom">转<input type="text" name="jumpPage" size="3"  >
        
              <input type="submit"  size="3" value="GO" > </td>

		  </form>
        </tr>
				
   </table>
   </td>
   </tr>
   </table>
   
   
   </span></td>
  </tr>
  </table>




<table class="bgclr" width="750" border="0" cellspacing="0" cellpadding="0" align="center" height="1">
  <tr>
    <td height="1"></td>
  </tr>
</table>
<table width="500" border="0" cellspacing="3" cellpadding="1" align="center">
  <tr> 
    <td align="center">技术支持 清峰居</td>
 </tr> 
 <tr> 
    <td align="center">| <a href="mailto:<%=masteremail%>">意见建议</a> <a href="mailto:<%=masteremail%>">商业合作</a> 
      |</td>
 </tr> 
</table>
</center>
</body>
</html>

⌨️ 快捷键说明

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