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

📄 main.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 message=Server.CreateObject("ADODB.Recordset")
message.CursorType=adOpenStatic
message.PageSize =15



'==================打开留言记录数据库====================
sql_liuyan="select * from message order by message_id desc"

message.Open sql_liuyan,conn,1,1
'===============================================
		while not message.eof
		totalcount=totalcount+1
			message.movenext
		wend
		

			message.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="28%">
    <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber6">
      <tr>
        <td width="100%">
      <a href="showycz.asp?username=<%=session("user")%>" target="_blank" title="放大观看">
      <img src="showycz.asp?username=<%=session("user")%>" height=192  border=1 width="179"></a> </td>
      </tr>
      <tr>
        <td width="100%">
        <p align="center"><font color="#333333"><a href="uploadycz.asp" style="border:1px solid #C0C0C0; line-height:16px;backgroud-color: #ffffff; FONT-FAMILY: &#23435;&#20307;; FONT-SIZE: 9pt; HEIGHT: 18px; WIDTH: 100px; color:#000000; background-color:#FFFFFF" title="&#19978;&#20256;&#25105;&#30340;&#29031;&#29255;">
    ---我的靓照---</a></font>
        </td>
      </tr>
      <tr>
        <td>
        <form method="post" action="addjilu.asp" >
        <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" id="AutoNumber4" height="198" bordercolorlight="#0099FF" bordercolordark="#76AEF0">
        <tr>
            <td width="100%" height="176" colspan="2">
              <textarea name="neirong" cols="34" id="text" rows="13">此处发表留言</textarea>
              </p>         
           </td>
        </tr>
        <tr>
           <td width="50%" height="22">
           <p align="center"><input type="submit" value="提交" name="B1" style="border:1px solid #C0C0C0; line-height:16px;backgroud-color: #ffffff; FONT-FAMILY: &#23435;&#20307;; FONT-SIZE: 9pt; HEIGHT: 18px; WIDTH: 90px; color:#ff0000; background-color:#FFFFFF"></td>
           <td width="50%" height="22">
           <p align="center"><input type="reset" value="重置" name="B2"  style="border:1px solid #C0C0C0; line-height:16px;backgroud-color: #ffffff; FONT-FAMILY: &#23435;&#20307;; FONT-SIZE: 9pt; HEIGHT: 18px; WIDTH: 90px; color:#ff0000; background-color:#FFFFFF"></td>
        </tr>
       </table> 
       </form>
      </td>
    </tr>   
</table>  
  </td>
     


<td width="72%" 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="529" id="AutoNumber2" height="90">
  <tr>
<th width="529" height="24" colspan="3"><span lang="zh-cn"><font size="5">班 级 留 言 板</font></span></tr>
  </tr>
  <% do	while not message.eof and rowCount <message.pagesize %> 
  <tr>
<td width="329" class=tablebody1 height="17"  ><%=message("context")%>
</td>
<td width="100" class=tablebody1 height="17"><%=message("writer")%>
</td>
<td width="100" class=tablebody1 height="17"> <%=message("data")%>
</td>
  </tr>
  	<%message.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;;<%=message.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<>message.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=<%=message.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 + -