bakjinqi.asp

研究生会网站,,适合大中专门院校学生组织使用

<!--#include file="Gaobei_head.asp" -->
<%
sub navigation()
response.write " &gt;&gt; "
response.write "研究生会近期活动"
end sub
%>
<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="778" height="50" bgcolor="#EFEFE7">
		<tr>
			<td width="218" valign="top">
<% 'call Gaobei_userlogin() %>
<% 'Call Gaobei_Marquee()%>
<% call Gaobei_Search() %>
<% call Gaobei_vote() %>
<% call Gaobei_links() %>
</td>
			<td width="560" valign="top">
<div align="center">
				<table border="0" cellpadding="0" cellspacing="0" width="550" height="20" id="table1" background="images/Gaobei_skin/huodong.gif">
					<tr>
						<td width="395"></td>
						<td width="63" valign="bottom"><a href="<%=indexfilename%>?action=View_Words">
						<img border="0" src="images/Gaobei_skin/Gaobei_clarity4.gif" width="63" height="17"></a></td>
						<td width="5"></td>
						<td width="63" valign="bottom"><a href="<%=indexfilename%>?action=Add_New">
						<img border="0" src="images/Gaobei_skin/Gaobei_clarity4.gif" width="63" height="17"></a></td>
						<td width="24"></td>
					</tr>
				</table>
</div>
<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="550" height="5">
		<tr>
			<td></td>
		</tr>
	</table>
</div>
<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="550" height="160" style="border: 1px solid #CECFCE">
		<tr>
			<td bgcolor="#FFFFFF" width="100%">   
<!--留言内容开始-->
<TABLE cellSpacing=0 cellPadding=0 width="100%" border=0>
<TBODY>
<TR> 
<TD height=56>
<%
    dim indexfilename,indeximg,n,x,m
    indexfilename=right(Request.ServerVariables("PATH_TRANSLATED"),(len(Request.ServerVariables("PATH_TRANSLATED"))-instrRev(Request.ServerVariables("PATH_TRANSLATED"),"\"))) 
    imdeximg="Images/Gaobei_skin/" '图片文件夹
    n=5 '每页显示留言数
    x=5  '每页显示的页数
    txt=1000  '留言的最大字数
           dim webtitle,webname,webyn,webgl,webyn2,view2
           set rs1 = conn.execute("select * From Gaobei_Set")
           webtitle=rs1("title")
           if rs1("webname")<>"" then webname=rs1("webname")
           if rs1("gbyn")<>"" then webyn=rs1("gbyn")
           webgl=rs1("gl")
           rs1.close
           set rs1=nothing
    '设置页脚信息
    page =Request.QueryString("page")
    if page="" or page=0 then page=1
    action = Request.QueryString("action")
    action_e = Request.Form("action_e")
    if action_e <>"" then
    server_v1=Cstr(Request.ServerVariables("HTTP_REFERER")) 
    server_v2=Cstr(Request.ServerVariables("SERVER_NAME")) 
    if mid(server_v1,8,len(server_v2))<>server_v2 then 
    response.write "<br><br><center><table border=1 cellpadding=20 bordercolor=black bgcolor=#EEEEEE width=450>" 
    response.write "<tr><td style='font:9pt Verdana'>" 
    response.write "你提交的路径有误，禁止从站点外部提交数据！" 
    response.write "</td></tr></table></center>" 
    response.end 
    end if 
    end if
%>
<script language="JavaScript">
    function gbcount(message,total,used,remain)
    {
	var max;
	max = total.value;
	if (message.value.length > max) {
	message.value = message.value.substring(0,max);
	used.value = max;
	remain.value = 0;
	alert("活动信息不能超过 <%=txt%> 个字!");
	}
	else {
	used.value = message.value.length;
	remain.value = max - used.value;
	}
    }
</script>
  <table width="500" height="18" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF" >
    <tr>
      <td width="500" height="10" align="center" valign="top">
<%
    '主程序
    Select Case action_e
    Case "Add_New"
    Call Add_New_Execute()
    End Select
    Call Main_Menu()
    Select Case action
    Case ""
    Call View_Words()
    Case "View_Words"
    Call View_Words()		
    End Select
%>
      </td>
    </tr>
  </table>

<% Sub Main_Menu() %>
<div align="center">
	<table border="0" cellpadding="0" cellspacing="0" width="100%" height="10">
		<tr>
			<td></td>
		</tr>
	</table>
</div>
<%
    End Sub 
    '''''''''''''''''''''''
    '查看留言
    Sub View_Words() 
         dim gbcount,y,j,k
         set rs = conn.execute("select COUNT(*) as gbcount From Active")
		 gbcount=rs("gbcount")
		 rs.close
		 
		 if gbcount/n = int(gbcount/n) then '计算出分页数
		 y=int(gbcount/n)
		 else
		 y=int(gbcount/n)+1
		 end if

         page2= int(page/x)
		 if page/x>page2 then page2=page2+1
		 k=page2*x
		 if k>y then k=y

		 '打开留言字段'
		 if page=1 then
		 sql="select top "&n&"  active_id,active_name,active_pic,active_desc,active_bumen,active_time From Active Order By active_id Desc"
		 else
		 sql="select active_id,active_name,active_pic,active_desc,active_bumen,active_time From Active Order By active_id Desc"
		 end if
		 if Page >100 then
            rs.Open sql,Conn,1
         else
            Set Rs=Conn.Execute(sql)
         end if
         if Page>1 then RS.Move n*page-n
%>
<table width="530" border="0" cellspacing="0" cellpadding="0" align="center">
<tr>      
<td width="100%" height="20" >有<%=gbcount%>次活动信息<%=page %>/<%=y %>页 分页 <a href="?page=1"><<</a>
<% if page2>1 then %>
  <a href="<%=indexfilename%>?page=<%=page2*x-x%>"><</a>
<% end if %>
<% For m =page2*x-(x-1) To k %>
[<a href="<%=indexfilename%>?page=<%=m%>"><%=m%></a>]
<% Next %>
<% if page2*x < y then %>
<a href="<%=indexfilename%>?page=<%=m%>">></a>
<% end if %>
	  <a href="?page=<%=y %>">>></a>
            </td>
          </tr>

</table>
<% if rs.bof  and rs.eof then Response.Write "当前没有活动信息" %>
<%
    dim lou,words,reply,email,qq,web,come
    if Request.QueryString("page")<2 then
    lou=gbcount
    else
    lou=gbcount-((Request.QueryString("page")-1)*n)
    end if 
    i=0
    do while not rs.eof and i<n
    i=i+1
    reply=""
    words=""  
    words=rs("active_desc")
%>
<TABLE width="100%" height=10 border=0 align=center cellPadding=0 cellSpacing=1 style="border-collapse:collapse" >
<TBODY>
      <TR >
        <TD colSpan=2 height=30>
        <table width="100%" height="30"  border="0" background="images/Gaobei_skin/Gaobei_gbdaohang.gif" class="unnamed1">
					<tr>
					<td height="21">&nbsp;&nbsp;主题:<b><%=rs("title")%></b></td>
					<td>
					<div align="right">
				  </div>
					</td>
					<td width="20%"> 第 <font color="#ff0000"><%=lou %></font> 条留言</td>
          </tr>
        </table>          
        </TD>
      </TR>
      <TR>
				<TD width="111" height="21" align=middle valign="top"> 
					<table width="100%" border="0" align="center">
						<tr>
							<td width="118"align="center">								
  							<img src="<%=rs("active_pic")%>">									
								<br>
								<%=rs("active_bumen")%>
							</td>
					 </tr>
					</table>
				</TD>       
				<TD width="446" height="21"  style="word-break:break-all"> 
					<table width="96%" height="132" border="0" align="center">
						<tr>
						<td width="100%" height="70" style="line-height: <%=Gaobei_line_H%>"> 
						<br>
						<%=Ubb(unHtml(words))%>
            </td>
          </tr>
					<tr>
  				<td height="22" align="right" style="word-break:break-all">发表于:<%=year(Rs("active_time"))%>年<%=month(Rs("active_time"))%>月<%=day(Rs("active_time"))%>日</td>
				  </tr>
         </table>         
      </TD>
      </TR>
    </TBODY>
</TABLE>
<%
    lou=lou-1	 
    rs.movenext
    loop
    rs.Close
    Set rs = Nothing