nwjl.asp

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

      </table>
      <table width="194" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td width="24" height="78" valign="bottom" background="imgs/left_02-1bg.jpg">
			<img src="imgs/left_03-1.jpg" width="24" height="40"></td>
          <td width="15" valign="bottom" background="imgs/left_02-2bg.jpg">
			<img border="0" src="imgs/1left_05-1.jpg" width="15" height="46"></td>
          <td width="148" height="78" background="imgs/left_05-2.jpg">　</td>
          <td rowspan="3" valign="top" bgcolor="#82CEFD">
			<img src="imgs/left_03-4.jpg" width="7" height="30"></td>
        </tr>
        <tr>
          <td rowspan="2" valign="top" background="imgs/left_02-1bg.jpg">
			<img src="imgs/left_02-1.jpg" width="24" height="53"></td>
          <td rowspan="2" valign="top" background="imgs/left_02-2bg.jpg">
			<img src="imgs/left_02-2.jpg" width="15" height="17"></td>
          <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
%>
         
			
                  <%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%>         
                  </TD>
        </tr>
    </table></td>
    <td width="564" valign="top" bgcolor="#64C2FD">
	<table width="564" border="0" cellspacing="0" cellpadding="0" height="495">
      <tr>
        <td height="33" background="imgs/daohang_bg.jpg"><table width="95%"  border="0" align="center" cellpadding="0" cellspacing="0">
            <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          
                  class=style1>| <a href="type.asp?typeID=19">最新下载 </a>| </SPAN>         
				<a href="nwjl.asp">内务纪律</a> <SPAN          
                  class=style1>| </SPAN><a href="special.asp">社区专题</a></TD>         
            </tr>
        </table></td>
      </tr>
      <tr>
        <td height="462" valign="top">
          <table width="559" border="0" cellspacing="0" cellpadding="0">
            <tr>
              <td width="559" height=42 background="imgs/photo_title.jpg" >&nbsp;&nbsp;&nbsp;&nbsp;<img border="0" src="IMAGES/menu-l-m.gif" width="11" height="11"><font class=m_tittle>&nbsp; </font>栏目导航          
            &nbsp;&nbsp;<a href="./" class="daohang">网站首页</a>&gt;&gt;内务纪律</td>
            </tr>
            <tr><%
set rst=server.createobject("adodb.recordset")
sql="select * from st_info order by id desc"
rst.open sql,conn,1,1
%><%       
	if Not(rst.bof and rst.eof) then'判别数据表中是否为空记录
			NumRecord=rst.recordcount
			rst.pagesize=17
			NumPage=rst.Pagecount
			if request("page")=empty then 
			NoncePage=1
		else
		if Cint(request("page"))<1 then
			NoncePage=1
		else
			NoncePage=request("page")
		end if
		if Cint(Trim(request("page")))>Cint(NumPage) then NoncePage=NumPage
	end if
else
	NumRecord=0
	NumPage=0
	NoncePage=0
	end if
%>

              <td valign="top" background="imgs/news_bg.jpg" height="291">
				<table width="98%"  border="0" align="center" cellpadding="0" cellspacing="0" height="404">
                  <tr>
                    <td width="4">　</td>
                    <td valign="top">
					<table border="0" width="542" bordercolorlight="#000000" cellspacing="0" cellpadding="5" bordercolordark="#FFFFFF">
          <tr>
            <td width="71" bgcolor="#C4E8FF" align="center" background="imgs/2.jpg">日期</td>
            <td width="78" bgcolor="#C4E8FF" align="center" background="imgs/2.jpg">姓名</td>
            <td width="105" bgcolor="#C4E8FF" align="center" background="imgs/2.jpg">班级</td>
            <td width="127" bgcolor="#C4E8FF" align="center" background="imgs/2.jpg">宿舍</td>
            <td width="47" bgcolor="#C4E8FF" align="center" background="imgs/2.jpg">周次</td>
            <td width="39" bgcolor="#C4E8FF" align="center" background="imgs/2.jpg">类型</td>
          </tr>
            <%if Not(rst.bof and rst.eof) then
	rst.move (Cint(NoncePage)-1)*13,1
	for i=1 to rst.pagesize
%>

          <tr>
            <td width="71" align="center" bgcolor="#C4E8FF"><%=(year(rst("user_number")))%>-<%=(month(rst("user_number")))%>-<%=(day(rst("user_number")))%></td>
            <td width="78" align="center" bgcolor="#C4E8FF"><A 
onclick="window.showModelessDialog('nwjl/viewuser.asp?id=<%=rst("id")%>',0,'dialogHeight:300px;dialogWidth:550px;center:yes;help:no;resizable:no;status:no')" 
                  href="###"><%=rst("user_name")%></A></td>
            <td width="105" align="center" bgcolor="#C4E8FF"><%=rst("user_class")%></td>
            <td width="127" align="center" bgcolor="#C4E8FF"><%=rst("user_homephone")%>的<%=rst("user_bedroomphone")%>室</td>
            <td width="47" align="center" bgcolor="#C4E8FF"><%=rst("user_testnumber")%></td>
            <td width="39" align="center" bgcolor="#C4E8FF"><%=rst("user_sex")%></td>
          </tr>
           <%		 		rst.movenext
			   		if rst.eof then exit for
					next
else
	response.write "<tr><td colspan=13><marquee scrolldelay=120 behavior=alternate>没有找到任何记录!!!</marquee></td></tr>"
end if	

rst.close
set rst=nothing

%>

        </table></td>
                  </tr>
                  <tr>
                    <td width="4" height="16"></td>
                    <td valign="top" height="16"><div align="right"> 
              <%
if NoncePage>1 then
	response.write "|<a href=nwjl.asp?page=1>首 页</a>| |<a href=nwjl.asp?page="&NoncePage-1&">上一页</a>|&nbsp"
else
	response.write "|首 页| |上一页|&nbsp"
end if
if Cint(Trim(NoncePage))<Cint(Trim(NumPage)) then
	response.write "|<a href=nwjl.asp?page="&NoncePage+1&">下一页</a>| |<a href=nwjl.asp?page="&NumPage&">尾 页</a>|"
else
	response.write "|下一页| |尾 页|"
end if
%>
              &nbsp;页次：<font color="#0033CC"><%=NoncePage%></font>/<font color="#0033CC"><%=NumPage%></font> 
              共<font color="#0033CC"><%=NumRecord%></font>条记录&nbsp; </div></td>         
                  </tr>
                  </table></td>
            </tr>
            <tr>
              <td height="4" bgcolor="#82CEFD">
				<img src="imgs/new_bg01.jpg" width="9" height="4"></td>
            </tr>          </table>
        </td>
        </tr>
    </table></td>
    <td width="15" valign="top" background="imgs/right_bg.jpg">　</td>
  </tr>
</table>
<table width="773" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td height="118" valign="top" background="imgs/under.jpg"> <!--#include file=bot.asp -->
</td>
  </tr>
</table>

</body>
</html>