<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!--#include file="../Include/conn.asp" -->
<!--#include file="../Include/ConnDatabase.asp" -->
<!--#include file="../Include/NoHackSql.Asp" -->
<%
'=====================================
'天天企业网站管理系统  TianTianCMS
'天天网络科技工作室版权所有
'官方客服中心 http://www.ip126.com
'技术支持论坛 http://bbs.ip126.com/
'QQ:530051328 mail:bbfhq@163.com
'=====================================
%>
<%
call SiteInfo
if ISHTML = 1 then
Response.expires = 0
Response.expiresabsolute = Now() - 1
Response.addHeader "pragma", "no-cache"
Response.addHeader "cache-control", "private"
Response.CacheControl = "no-cache"
End If
Seotitle="本站公告"%>
<!--#include file="Head.Asp" -->
<TABLE width="960" border=0 align="center" cellPadding=0 cellSpacing=0 bgcolor="#FFFFFF">
  <TR>
    <TD height="5"></TD>
  </TR>
  <TR> 
    <TD height="172" ><table width="960" height="100%" 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="88%" border="0" align="center" cellpadding="0" cellspacing="0">
                    <tr> 
                      <td> 
		<iframe src="login.asp"  frameborder="0" border="0px" scrolling="no" class="frame" height="120px" width="160px"></iframe>

                      </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>
						<%call WebMenugg()%>
           
            </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 width="3%" height="34" rowspan="3">&nbsp;</td>
                      <td width="94%">&nbsp;</td>
                      <td width="3%" rowspan="3">&nbsp;</td>
                    </tr>

                    <tr> 
                      <td><BR><span>

							<%
							
							set rs = server.createobject("adodb.recordset")
											if request.QueryString("ID")="" or not IsNumeric(request.QueryString("ID")) then
												sql="select top 1 * from TianTianCMS_Notice where  Acti=true order by topgg desc,id asc"
												else
												sql="select * from TianTianCMS_Notice where  Acti=true and ID="&request.QueryString("ID")
												end if
												rs.open sql,conn,1,3
												if rs.eof Then
												Response.Write "<span>暂无相关信息</span>"   
												Else
                                                response.write "<center>"&rs("Title"&Language)&"</center><p>"
												response.write rs("Content"&Language)%>
											<br><br>										
											<div style="text-align:right;">|&nbsp;发布时间：<%=rs("Time")%></div>
											<%end if%>	
											</span>
						</td>
                    </tr>
                    <tr> 
                      <td>&nbsp;</td>
                    </tr>
                  </table></td>
              </tr>
            </table></td>
        </tr>
      </table></td>
  </tr>
</table>

<!--#include file="Foot.Asp"-->
<%
function WebMenugg()
  dim rs,sql
  set rs = server.createobject("adodb.recordset")
  sql="select * from TianTianCMS_Notice where Acti=true order by topgg desc,id asc"
  rs.open sql,conn,1,1
  if rs.eof then
    response.write "暂无相关信息"
  else
    do
AutoLink = "Notice.asp?ID="&rs("ID")&""
Response.Write "<tr><td height=""20"">"
if rs("topgg")=1 then
Response.Write "<img src=""../images/top.gif"" alt=""固顶"">"
end If
Response.Write "<a href="""&AutoLink&""">"&StrLeft(rs("Title"&Language),24)&"</a></td>"
Response.Write "</tr><TR><TD height=1 colspan=""2"" background=images/naSzarym.gif><IMG height=1 src=""images/1x1_pix.gif"" width=10>"
Response.Write "</TD></TR>"
      rs.movenext
    loop until rs.eof
  end if
  rs.close
  set rs=nothing
end function
%>