culture.asp

漂亮的公司企业通用整站源码 希望大家能用的上

<!--#include file="Inc/syscode.asp" -->
<!--#include file="head.asp" -->
<!--#include file="Inc/Top.asp"-->
<!--#include file="Inc/Eshopcode.asp"-->
<%
function cutstr(tempstr,tempwid)
if len(tempstr)>tempwid then
cutstr=left(tempstr,tempwid)&"..."
else
cutstr=tempstr
end if
end function%>
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td align="center" valign="top"><table width="850" border="0" cellspacing="0" cellpadding="0">
      <tr>
        <td width="30" valign="top" background="img/cont_left_bg01.gif"><img src="img/cont_left_img01.gif" width="30" height="431"></td>
        <td style="padding-top:9px; " width="787" valign="top"><table width="787" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="207" align="left" valign="top" class="top_m_txt01"><table width="200" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td valign="top"><table width="200" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td><img src="img/left_cp_tit.gif" width="200" height="67"></td>
                  </tr>
                  <tr>
                    <td height="142" align="center" valign="top" background="img/left_bg01.gif"><% call ShowSmallClass_Tree() %></td>
                  </tr>
                  <tr>
                    <td><img src="img/left_img01.gif" width="200" height="20"></td>
                  </tr>
                </table></td>
              </tr>
              <tr>
                <td><table width="200" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td height="63" valign="bottom"><img src="img/left_tc_tit.gif" width="200" height="51"></td>
                  </tr>
                  <tr>
                    <td height="182" align="center" background="img/left_bg02.gif"><object type="text/x-scriptlet" width="190" height="178" data="ttpp/vote.asp?id=32">
                    </object></td>
                  </tr>
                  <tr>
                    <td><img src="img/left_img02.gif" width="200" height="8"></td>
                  </tr>
                </table></td>
              </tr>
              <tr>
                <td valign="top"><table width="188" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td height="60" align="right" valign="bottom"><a href="about.asp"><img src="img/left_img04.gif" width="175" height="47" border="0"></a></td>
                  </tr>
                  <tr>
                    <td height="51" align="right" valign="bottom"><a href="Culture.asp"><img src="img/left_img05.gif" width="175" height="47" border="0"></a></td>
                  </tr>
                  <tr>
                    <td height="51" align="right" valign="bottom"><a href="Honor.asp"><img src="img/left_img06.gif" width="175" height="47" border="0"></a></td>
                  </tr>
                  <tr>
                    <td height="70" align="left" valign="bottom"><a href="Contact.asp"><img src="img/xsrx_img.gif" width="185" height="51" border="0"></a></td>
                  </tr>
                </table></td>
              </tr>
            </table></td>
            <td valign="top"><table width="580" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td><img src="img/cont_img01.gif" width="580" height="17"></td>
              </tr>
              <tr>
                <td valign="top"><table width="580" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td width="9" background="img/cont_tbl01_bg01.gif"></td>
                    <td align="center" valign="top"><table width="540" border="0" cellspacing="0" cellpadding="0">
                      <tr>
                        <td height="45" align="left" valign="top"><img src="img/gswh_tit.gif" width="298" height="36"></td>
                        </tr>
                      <tr>
                        <td valign="top"><table width="540" border="0" cellspacing="0" cellpadding="0">
                          <tr>
                            <td colspan="3"><img src="img/gsjs_img01.gif" width="540" height="19"></td>
                            </tr>
                          <tr>
                            <td width="22" valign="top" background="img/gsjs_left_bg01.gif"><img src="img/gsjs_img03.gif" width="22" height="149"></td>
                            <td width="498" rowspan="2" valign="top"><table width="498" border="0" cellspacing="0" cellpadding="0">
                              <tr>
                                <td style="padding-top:10px; " height="598" align="left" valign="top" class="top_m_txt01"><table width="500" border="0" cellspacing="0" cellpadding="0">
                                  <tr>
                                    <td height="570" align="center" valign="top" background="img/cont_tbl_bg.gif"><table width="100%" border="0" cellspacing="0" cellpadding="0">
                                          <TR>
                                            <TD><%
flag="尚未处理"
set rs=server.createobject("adodb.recordset")
sqltext="select * from culture 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" bgcolor="#FBFEFF">
                                                  <%
if not rs.eof then
i=1
do while not rs.eof
%>
                                                  <tr>
                                                    <td class="top_m_txt01">&nbsp;&nbsp;<img src="img/bookmark.gif" width="20" height="20">&nbsp;<a href="culturenewsInfo.asp?id=<%=rs("id")%>" class="top_m_txt01"><%=rs("title")%></a>&nbsp;&nbsp;<%=rs("time")%>&nbsp;                                                          <%if rs("time")=date() then%>                                                          <strong><font color="#FF0000" face="Arial">New</font></strong>                                                          <%end if%>                                                    </td>
                                                  </tr>
                                                  <%
i=i+1
if i > Perpage then exit do
rs.movenext
loop
end if
%>
                                              </table></TD>
                                          </TR>
                                      </table></td>
                                  </tr>
                                  <tr>
                                    <td background="img/cont_tbl_bg.gif"><table width="100%" border="0" align="center" cellpadding="0" cellspacing="0">
                                        <tr>
                                          <td width="73%" height="25" align="right" class="top_m_txt01"><%
Response.write "<strong><font color='#000000'>全部</font>"
Response.write "共</font>" & "<font color=#FF0000>" & Cstr(Rs.RecordCount) & "</font>" & "<font color='#000000'>条文章</font></strong>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"
Response.write "<strong><font color='#000000'>第</font>" & "<font color=#FF0000>" & Cstr(CurrentPage) &  "</font>" & "<font color='#000000'>/" & Cstr(rs.pagecount) & "</font></strong>&nbsp;"
If currentpage > 1 Then
response.write "<strong><a href='culture.asp?&page="+cstr(1)+"'><font color='#000000'>首页</font></a><font color='#ffffff'> </font></strong>"
Response.write "<strong><a href='culture.asp?page="+Cstr(currentpage-1)+"'><font color='#000000'>上一页</font></a><font color='#ffffff'> </font></strong>"
Else
Response.write "<strong><font color='#000000'>上一页 </font></strong>"
End if
If currentpage < Rs.PageCount Then
Response.write "<strong><a href='culture.asp?page="+Cstr(currentPage+1)+"'><font color='#000000'>下一页</font></a><font color='#ffffff'> </font>"
Response.write "<a href='culture.asp?page="+Cstr(Rs.PageCount)+"'><font color='#000000'>尾页</font></a></strong>&nbsp;&nbsp;"
Else
Response.write ""
Response.write "<strong><font color='#000000'>下一页</font></strong>&nbsp;&nbsp;"
End if
%>
                                              <%
End sub
rs.close
%>
                                          </td>
                                        </tr>
                                    </table></td>
                                  </tr>
                                </table></td>
                              </tr>
                            </table>
                              </td>
                            <td width="20" background="img/gsjs_right_bg01.gif"></td>
                          </tr>
                          <tr>
                            <td background="img/gsjs_bg01.gif"></td>
                            <td valign="bottom" background="img/gsjs_right_bg01.gif"><img src="img/gsjs_img04.gif" width="20" height="148"></td>
                          </tr>
                          <tr>
                            <td colspan="3"><img src="img/gsjs_img02.gif" width="540" height="18"></td>
                            </tr>
                        </table></td>
                      </tr>
                    </table></td>
                    <td width="9" background="img/cont_tbl01_bg01.gif"></td>
                  </tr>
                </table></td>
              </tr>
              <tr>
                <td><img src="img/cont_img02.gif" width="580" height="17"></td>
              </tr>
            </table></td>
          </tr>
        </table></td>
        <td width="33" valign="top" background="img/cont_right_bg01.gif"><img src="img/cont_right_img01.gif" width="33" height="431"></td>
      </tr>
      <tr>
        <td valign="top"><img src="img/cont_di_img01.gif" width="30" height="29"></td>
        <td align="center" valign="middle" background="img/cont_di_bg01.gif" style="padding-top:9px; "><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="39%"><table width="304" border="0" cellspacing="0" cellpadding="0">
                <tr>
                  <td width="57"><img src="img/yqlj_img01.gif" width="57" height="15"></td>
                  <td width="247"><MARQUEE
            align="left" width=230 scrollAmount=1 scrollDelay=4 class="top_m_txt01" onmouseover="this.stop()" onmouseout="this.start()">
                    <% call ShowAnnounce(5) %>
                  </MARQUEE></td>
                </tr>
            </table></td>
            <td width="61%" align="right" class="top_m_txt01"><script language="JavaScript" type="text/javascript" src="inc/site.asp?online=1&show=all"></script></td>
          </tr>
        </table></td>
        <td valign="top"><img src="img/cont_di_img02.gif" width="33" height="29"></td>
      </tr>
    </table></td>
  </tr>
</table>
<!--#include file="Inc/foot.asp"-->