<!--#include file="Inc/SysProduct.asp" -->
<!--#include file="inc/Skin_css.asp"-->
<!-- #include file="Head.asp" -->
<table width="850" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr> 
    <td height="5" valign="top" bgcolor="#FFFFFF"></td>
  </tr>
  <tr> 
    <td height="72" valign="top" bgcolor="#FFFFFF"><table width="848" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td class="tdbg_left" width="190" height="179" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td height="34" class="title_left">&nbsp;&nbsp;&nbsp;<img src="Images/smallbook.jpg" width="10" height="10">&nbsp;&nbsp;用户登陆 
                </td>
              </tr>
              <tr> 
                <td height="5"></td>
              </tr>
              <tr> 
                <td height="10"><table width="92%" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td> 
                        <% call ShowUserLogin() %>
                      </td>
                    </tr>
                  </table></td>
              </tr>
              <tr> 
                <td height="5"></td>
              </tr>
            </table>
            <table width="100%" border="0" cellpadding="0" cellspacing="0">
              <tr> 
                <td height="34" class="title_left">&nbsp;&nbsp;&nbsp;<img src="Images/smallbook.jpg" width="10" height="10">&nbsp;&nbsp;企业简介 
                </td>
              </tr>
              <%
Set rslist = Server.CreateObject("ADODB.Recordset")
sql="select Title from Aboutus where Language='1' order by Aboutusorder"
rslist.open sql,conn,1,3
do while not rslist.eof
%>
              <tr> 
                <td height="20"> <div align="center"><a href="Aboutus.asp?Title=<%=rslist("Title")%>"><%=rslist("Title")%></a></div></td>
              </tr>
              <TR> 
                <TD 
                            height=1 colspan="2" 
                            background=img/naSzarym.gif><IMG height=1 src="img/1x1_pix.gif" 
                              width=10></TD>
              </TR>
              <%rslist.movenext 
loop%>
              <tr> 
                <td height="20"> <div align="center"><a href="Culture.asp">企业文化</a></div></td>
              </tr>
              <TR> 
                <TD 
                            height=1 colspan="2" 
                            background=img/naSzarym.gif><IMG height=1 src="img/1x1_pix.gif" 
                              width=10></TD>
              </TR>
            </table></td>
          <td width="6"></td>
          <td valign="top"><table Class=border  width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
              <tr> 
                <td height="206" valign="top"> <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <tr> 
                      <td class="title_right" height="32">&nbsp;&nbsp;&nbsp;<img src="Images/smallbook.jpg" width="10" height="10">&nbsp;&nbsp;企业文化</td>
                    </tr>
                  </table>
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
                    <TR> 
                      <TD> 
                        <%
flag="尚未处理"
set rs=server.createobject("adodb.recordset")
sqltext="select * from culture where Language='1' Order BY id desc"
rs.open sqltext,conn,1,1
dim PerPage
PerPage=10
'假如没有数据时
If rs.eof and rs.bof then
response.write "<p align='center'><font color='#ff0000'>还没任何文章</font></p>"
response.end
End if
'取得页数,并判断用户输入的是否数字类型的数据，如不是将以第一页显示
text="0123456789"
Rs.PageSize=PerPage
for i=1 to len(request("page"))
checkpage=instr(1,text,mid(request("page"),i,1))
if checkpage=0 then
exit for
end if
next

If checkpage<>0 then
  If NOT IsEmpty(request("page")) Then
   CurrentPage=Cint(request("page"))
   If CurrentPage < 1 Then CurrentPage = 1 
   If CurrentPage > Rs.PageCount Then CurrentPage = Rs.PageCount 
  Else
   CurrentPage= 1
  End If
   If not Rs.eof Then Rs.AbsolutePage = CurrentPage end if
Else
 CurrentPage=1
End if

call list

'显示帖子的子程序
Sub list()%> 
                <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                          <tr> 
                            <td width="21%" bgcolor="#eeeeee">&nbsp;&nbsp;首页 &gt;&gt; 
                              企业文化</td>
                            <td width="79%" bgcolor="#eeeeee">&nbsp; </td>
                          </tr>
                          <tr> 
                            <td colspan="2" bgcolor="#999999"></td>
                          </tr>
                        </table>
                        <table width="100%" border="0" align="center" cellpadding="0" cellspacing="3" bgcolor="#FBFEFF">
                          <tr> 
                            <td height="8" colspan="3"></td>
                          </tr>
                          <%
if not rs.eof then
i=1
do while not rs.eof
%>
                          <tr> 
                            <td width="5%" height="18">&nbsp;&nbsp;<img src="Img/dot.gif" width="7" height="11">&nbsp; 
                            </td>
                            <td style='BORDER-bottom: #999999 1px dotted' width="76%"><a href="culturenewsInfo.asp?id=<%=rs("id")%>" target="_blank"><%=rs("title")%></a>&nbsp;<font color="#0066CC" face="Arial">&nbsp;</font>&nbsp; 
                              <%if rs("time")=date() then%>
                              <strong><font color="#FF0000" face="Arial">New</font></strong> 
                              <%end if%>
                            </td>
                            <td style='BORDER-bottom: #999999 1px dotted' width="19%"><%=rs("time")%></td>
                          </tr>
                          <%
i=i+1
if i > Perpage then exit do
rs.movenext
loop
end if
%>
                          <tr> 
                            <td height="8" colspan="3"></td>
                          </tr>
                        </table>
                        <table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                          <tr> 
                            <td bgcolor="#eeeeee"><div align="right">
<%
Response.write "全部"
Response.write "共" & Cstr(Rs.RecordCount) & "篇文章&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
Response.write "第" & Cstr(CurrentPage) &  "/" & Cstr(rs.pagecount) & "&nbsp;"
If currentpage > 1 Then
response.write "<a href='Culture.asp?&page="+cstr(1)+"'>&nbsp;首页&nbsp;</a>"
Response.write "<a href='Culture.asp?page="+Cstr(currentpage-1)+"'>&nbsp;上一页&nbsp;</a>"
Else
Response.write "&nbsp;上一页&nbsp;"
End if
If currentpage < Rs.PageCount Then
Response.write "<a href='Culture.asp?page="+Cstr(currentPage+1)+"'>&nbsp;下一页&nbsp;</a>"
Response.write "<a href='Culture.asp?page="+Cstr(Rs.PageCount)+"'>&nbsp;尾页&nbsp;</a>"
Else
Response.write ""
Response.write "&nbsp;下一页&nbsp;"
End if
Response.write "转到第"
response.write"<select name='sel_page' onChange='javascript:location=this.options[this.selectedIndex].value;'>"
    for i = 1 to Rs.PageCount
       if i = currentpage then 
          response.write"<option value='Culture.asp?page="&i&"&id="&id&"' selected>"&i&"</option>"
       else
          response.write"<option value='Culture.asp?page="&i&"&id="&id&"'>"&i&"</option>"
       end if
    next
response.write"</select>页"
%>
                              </div></td>
                          </tr>
                          <tr> 
                            <td bgcolor="#999999"></td>
                          </tr>
                        </table>
<%
End sub
%> </TD>
            </TR>
                  </table> </td>
              </tr>
            </table></td>
        </tr>
      </table></td>
  </tr>
</table>
<%rs.close
set rs=nothing
rslist.close
set rslist=nothing
%>
<!-- #include file="Inc/Foot.asp" -->
</BODY></HTML>
