index.asp

社区天地图文系统(核心:尘缘雅境图文系统) 版本: 1.0 本系统是ASP+ACCESS环境下开发成功

            class=load>请稍等,网站数据正在下载中. . . . . .<BR><BR><BR>&copy; 2005 
			<a href="http://fengye.at.8800.org">柠檬居技术网</a> 
            请使用1024*768分辨率浏览 
  </FONT></TD></TR></TBODY></TABLE></CENTER></DIV></TD></TR></TBODY></TABLE></DIV>
<SCRIPT language=javascript>
<!--
var startTime,endTime;
var d=new Date();
startTime=d.getTime();
//-->
</SCRIPT>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 height=236 width=773>
  <TBODY>
  <TR>
    <TD background="imgs/logo.jpg" 
    width=223 align="right" valign="bottom">
	<p align="center">&nbsp;&nbsp;&nbsp;
	<object classid="clsid:D27CDB6E-AE6D-11CF-96B8-444553540000" id="obj2" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0" border="0" width="184" height="139">
		<param name="movie" value="imgs/other06.swf">
		<param name="quality" value="High">
		<param name="salign" value="T">
		<param name="wmode" value="transparent">
		<embed src="imgs/other06.swf" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" name="obj2" width="184" height="139" quality="High" salign="T" wmode="transparent"></object>
	<FONT size=2 style="FONT-SIZE: 10pt">
	<br><br><br></FONT></TD>
    <TD background="imgs/bannr01.jpg" 
    width=333 valign="bottom">
	<p align="center">
	<object classid="clsid:D27CDB6E-AE6D-11CF-96B8-444553540000" id="obj1" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0" border="0" width="100%" height="102">
		<param name="movie" value="imgs/feiniao1.swf">
		<param name="quality" value="High">
		<param name="scale" value="ExactFit">
		<param name="wmode" value="transparent">
		<param name="salign" value="R">
		<embed src="imgs/feiniao1.swf" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" name="obj1" width="100%" height="102" quality="High" scale="ExactFit" wmode="transparent" salign="R"></object>
	<br><br></TD>
    <TD background="imgs/bannr02.jpg" 
    vAlign=top width=217><map name="FPMap2">
	<area coords="166,127,44" shape="circle" href="2smarket.asp">
	<area coords="51,52,44" shape="circle" href="qgzx.asp">
	</map>
	<IMG border=0 height=230 
      src="imgs/tm.gif" useMap=#FPMap2 
      width=217></TD>
  </TR></TBODY></TABLE>
<TABLE align=center border=0 cellPadding=0 cellSpacing=0 width=773>
  <TBODY>
  <TR>
    <TD background="imgs/left_bg1.jpg" 
    vAlign=top width=194>
      <TABLE border=0 cellPadding=0 cellSpacing=0 width=194 height="111">
        <TBODY>
        <TR>
          <TD 
          background="imgs/left_01-1.jpg" 
          height=58 width=24>　 </TD>
          <TD 
          background="imgs/left_01-2.jpg" 
          width=15>　</TD>
          <TD 
          background="imgs/left_01-3.jpg" 
          width=148>　</TD>
          <TD bgColor=#82cefd rowSpan=2 vAlign=top><IMG height=3 
            src="imgs/left_01-4.jpg" 
            width=7></TD></TR>
        <TR>
          <TD 
          background="imgs/left_02-1bg.jpg" 
          height=53 vAlign=top><IMG height=53 
            src="imgs/left_02-1.jpg" 
            width=24></TD>
          <TD 
          background="imgs/left_02-2bg.jpg" 
          vAlign=top><IMG height=17 
            src="imgs/left_02-2.jpg" 
            width=15></TD>
          <TD bgColor=#c4e8ff vAlign=top> <%
set rs=server.CreateObject("ADODB.RecordSet") 
rs.Source="select * from board where inuse=1"
rs.Open rs.Source,conn,1,1
if not rs.EOF then
%>

            <TABLE align=center border=0 cellPadding=0 cellSpacing=0 
width="92%" height="52">
              <TBODY>
              <TR>
                <TD height=5></TD></TR>
              <TR>
                <td align="center"> 
                  <%if len(rs("title"))>50 then%>
                  <%=left(rs("title"),50)%>... 
                  <%else%>
                  <%=trim(rs("title"))%> 
                  <%end if%>
                  <script language=JavaScript>marquee1();</script> <%=rs("content")%> 
                  <script language=JavaScript>marquee2();</script> <%=rs("dateandtime")%><br> 
                  <a href="board.asp" target="_blank" class=class>以前公告</a></td></TR></TBODY></TABLE><%else
     rs.close
      set rs=nothing
      end if%>
</TD></TR></TBODY></TABLE>
      <TABLE border=0 cellPadding=0 cellSpacing=0 width=194>
        <TBODY>
        <TR>
          <TD 
          background="imgs/left_02-1bg.jpg" 
          height=58 vAlign=bottom width=24><IMG height=40 
            src="imgs/left_03-1.jpg" 
            width=24></TD>
          <TD 
          background="imgs/left_02-2bg.jpg" 
          vAlign=bottom width=15>
			<img border="0" src="imgs/aleft_03-2.jpg" width="15" height="48"></TD>
          <%
set rsxp=server.createobject("adodb.recordset")
sql="select * from sqstar order by id desc"
rsxp.open sql,conn,1,1
%>
          <TD 
          background="imgs/left_03-3.jpg" 
          height=78 width=148>　 </TD>
          <TD bgColor=#82cefd rowSpan=2 vAlign=top><IMG height=30 
            src="imgs/left_03-4.jpg" 
            width=7></TD></TR>
        <TR>
          <TD 
          background="imgs/left_02-1bg.jpg" 
          height=157 vAlign=top><IMG height=53 
            src="imgs/left_02-1.jpg" 
            width=24></TD>
          <TD 
          background="imgs/left_02-2bg.jpg" 
          vAlign=top><IMG height=17 
            src="imgs/left_02-2.jpg" 
            width=15></TD>
          <TD bgColor=#c4e8ff vAlign=top>
            <TABLE align=center border=0 cellPadding=0 cellSpacing=0 
width="92%">
              <TBODY>
              <TR>
                <TD height=59 vAlign=top>
                  <p align="center">
					<a target="_blank" href="<%=rsxp("photo")%>">
					<img border="0" src="<%=rsxp("photo")%>" width="129" height="99"></a></TD></TR>
              <TR>
                <TD vAlign=top><SPAN 
                  class=style8>所在楼：<%=rsxp("lou")%><BR>姓 名 ： <font color="#0000FF"><%=rsxp("fullname")%></font><BR></SPAN>个人信言：</TD></TR>
              <TR>
                <TD><font color="#FF0000"><%=rsxp("content")%></font></TD></TR>
              <TR>
                <TD height=26 vAlign=bottom>
                  <DIV align=center>　</DIV></TD></TR>
              <TR>
                <TD height=5></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
      <TABLE border=0 cellPadding=0 cellSpacing=0 width=194 height="180">
        <TBODY>
        <TR>
          <TD 
          background="imgs/left_02-1bg.jpg" 
          height=58 vAlign=bottom width=24><IMG height=40 
            src="imgs/left_03-1.jpg" 
            width=24></TD>
          <TD 
          background="imgs/left_02-2bg.jpg" 
          vAlign=bottom width=15>
			<img border="0" src="imgs/xleft_04-1.jpg" width="15" height="58"></TD>
          <TD 
          background="imgs/left_04-2.jpg" 
          height=78 width=148>　 </TD>
                    <%		 	
rsxp.close
set rsxp=nothing

%>
          <TD bgColor=#82cefd rowSpan=2 vAlign=top><IMG height=30 
            src="imgs/left_03-4.jpg" 
            width=7></TD></TR>
        <TR>
          <TD 
          background="imgs/left_02-1bg.jpg" 
          height=102 vAlign=top><IMG height=53 
            src="imgs/left_02-1.jpg" 
            width=24></TD>
          <TD 
          background="imgs/left_02-2bg.jpg" 
          vAlign=top><IMG height=17 
            src="imgs/left_02-2.jpg" 
            width=15></TD>
          <TD bgColor=#c4e8ff vAlign=top>
            <TABLE align=center border=0 cellPadding=0 cellSpacing=0 
              width=140><TBODY>
              <tr> 
                <%
		set rs=conn.execute("SELECT * FROM vote where IsChecked=1") 
		if rs.eof then
		%>
                <%else%>
                <td width="100%" align="center"> 
				<table border="0" width="99%" cellspacing="2" cellpadding="2">
                    <TR> 
                      <TD width=100% align="center"><%=rs("Title")%></TD>
                    </TR>
                    <FORM action="admin/vote.asp" target="newwindow" method=post name=research>
                      <TR> 
                        <TD vAlign=top width="100%"> 
                          <%
for i=1 to 8
	if rs("Select"&i)<>"" then
%>
                          <INPUT style="border: 0" <%if i=1 then%>checked<%end if%> name=Options type=radio value=<%=i%>> 
                          <%=i%>.<%=rs("Select"&i)%><BR> 
                          <%
	end if
next
%>
                        </TD>
                      </TR>
                      <TR> 
                        <TD width="100%" height=30 align=center> 
						<INPUT style="cursor:hand" type=submit value="投一票" id=submit1 name=submit1> 
                          <INPUT onclick="javascript:vote()" type="button" value="看结果" id=button1 name=button1 style="cursor:hand"> 
                        </TD>
                      </TR>
                    </FORM>
                    <%end if%>
                  </table></td>
              </tr>
            
              <TR>
                <TD height=5></TD></TR></TBODY></TABLE></TD></TR></TBODY></TABLE>
      <TABLE border=0 cellPadding=0 cellSpacing=0 width=194 height="156">
        <TBODY>
        <TR>
          <TD 
          background="imgs/left_02-1bg.jpg" 
          height=78 vAlign=bottom width=24><IMG height=40 
            src="imgs/left_03-1.jpg" 
            width=24></TD>
          <TD 
          background="imgs/left_02-2bg.jpg" 
          vAlign=bottom width=15>
			<img border="0" src="imgs/1left_05-1.jpg" width="15" height="46"></TD>
          <TD 
          background="imgs/left_05-2.jpg" 
          height=78 width=148>　 </TD>
          <TD bgColor=#82cefd rowSpan=3 vAlign=top><IMG height=30 
            src="imgs/left_03-4.jpg" 
            width=7></TD></TR>
        <TR>
          <TD 
          background="imgs/left_02-1bg.jpg" 
          rowSpan=2 vAlign=top><IMG height=53 
            src="imgs/left_02-1.jpg" 
            width=24></TD>
          <TD 
          background="imgs/left_02-2bg.jpg" 
          rowSpan=2 vAlign=top><IMG height=17 
            src="imgs/left_02-2.jpg" 
            width=15></TD>
          <TD bgColor=#c4e8ff height=78 vAlign=top>
            <TABLE align=center border=0 cellPadding=0 cellSpacing=0 
width="95%">
              <TBODY>
              <TR>
                <TD height=5></TD></TR>
              <TR>
                <TD height=73 vAlign=top>
                  <%								
function gettipnum()
dim tmprs
tmprs=conn.execute("Select Count(NewsID) from News where checkked=1")
gettipnum=tmprs(0)
set tmprs=nothing
if isnull(gettipnum) then gettipnum=0
end function

function todays()
dim tmprs
tmprs=conn.execute("Select count(NewsID) from News Where checkked=1 and year(updatetime)=year(date()) and month(updatetime)=month(date()) and day(updatetime)=day(date())")
todays=tmprs(0)
set tmprs=nothing
if isnull(todays) then todays=0
end function

function getusernum()
dim rs
rs=conn.execute("Select Count(ID) from admin")
getusernum=rs(0)
set rs=nothing
if isnull(getusernum) then getusernum=0
end function

function getgg()
dim rs
rs=conn.execute("Select Count(ID) from admin where sex='先生'")
getgg=rs(0)
set rs=nothing
if isnull(getgg) then getgg=0
end function

function getmm()
dim rs
rs=conn.execute("Select Count(ID) from admin where sex='女士'")
getmm=rs(0)
set rs=nothing
if isnull(getmm) then getmm=0
end function

function getother()
dim rs
rs=conn.execute("Select Count(ID) from admin where sex='保密'")
getother=rs(0)
set rs=nothing
if isnull(getother) then getother=0
end function
%>
                  &nbsp;&nbsp;○- 今日文章：<font color=red><%=todays()%></font><br> 
                  &nbsp;&nbsp;○- 文章总数：<font color=red><%=gettipnum()%></font><br>
			
                  <%if showcount=1 then%>
                  <script src=include/cnt.asp></script>
				  <!--#include file=include/zx.asp -->
				  <br> &nbsp;&nbsp;○- 当前在线：<font color=red><%=i%></font>				  <%end if%>
                  <img border="0" src="imgs/di.jpg" width="148" height="42"></TD></TR>
              </TBODY></TABLE></TD></TR></TBODY></TABLE>

	</TD>
    <TD bgColor=#82cefd vAlign=top width=564>
      <TABLE border=0 cellPadding=0 cellSpacing=0 width=564 height="993">
        <TBODY>
        <TR>
          <TD 
          background="imgs/daohang_bg.jpg" 
          colSpan=2 height=37>
            <TABLE align=center border=0 cellPadding=0 cellSpacing=0 
width="95%">
              <TBODY>
              <TR>
                <TD class=yy>&nbsp;<a href="index.asp">网站首页</a><a href="#·"> </a><SPAN 
                  class=style1>| </SPAN><a href="type.asp?typeID=16">团学天地</a> <SPAN 
                  class=style1>| <a href="type.asp?typeID=17">规章制度</a> | </SPAN>
				<a href="type.asp?typeID=18">社区生活</a> <SPAN