<!--#include file="conn.asp" -->
<!--#include file="inc/gl1.asp" -->
<% 
call gl(Trim(Request.QueryString("id")))
 %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<title><%=page_title%>业 界 消 息</title>
<link href="css.css" rel="stylesheet" type="text/css">
</head>


<body leftmargin="3" topmargin="2" bgcolor="#C0C0C0">
<!--#include file="head.asp" -->
<table width="779" border="0" align="center" cellpadding="0" cellspacing="0" bgcolor="#FFFFFF">
  <tr> 
    <td width="186" height="338" valign="top"> &nbsp; 
      <!--#include file="in.asp" -->
      <table width="182" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="180"></td>
        </tr>
        <tr> 
          <td width="180"><table width="183" border="1" cellpadding="0" cellspacing="0" bordercolor="6699CC" bordercolorlight="" bordercolordark="ffffff">
              <tr> 
                <td width="191" height="48" valign="top"> 
                  <table width="171" border="0" cellspacing="2" cellpadding="1">
                    <% 
			 sql="select * from news where instr(ll,'0')>0 order by id desc"
			 rs.open sql,conn,1,1
		
			 while not rs.eof 
			  
			  %>
                    <tr> 
                      <td width="11"> <div align="center"><font color="#6699CC"><img src="pic/e6t18.gif" width="10" height="10"></font></div></td>
                      <td width="150"><font color="#6699CC"><a href="news.asp?id=<%=rs("id")%>" title="<%="文章:"&mid(rs("title"),1,8)&VbCrLf&"作者:"&rs("name")&VbCrLf&"发表日期:"&rs("dat")&VbCrLf&"阅读次数:"&rs("txt")%>"> 
                        <% if instr(rs("title"),"<img src=")>0 then
				if  len(Split(rs("title"),"<")(0))>13 then
				Response.Write mid(rs("title"),1,8)&".."&"<"&Split(rs("title"),"<")(1)
				else
				Response.Write rs("title")
				end if
				else
						if len(rs("title"))>14 then
					  Response.Write(mid(rs("title"),1,10))&"..."
					  else
					  Response.Write rs("title")
					  end if
				end if
					   %>
                        </a></font></td>
                    </tr>
                    <% rs.movenext
			  wend
			  rs.close %>
                  </table>
                  <div align="right"><font color="#6699CC"></font></div></td>
              </tr>
            </table></td>
        </tr>
      </table> 
      <p>&nbsp;</p>
      </td>
    <td width="1" bgcolor="#E8F8FF"> </td>
    <td width="587" valign="top"> 
      <p>&nbsp;</p>
	<% 
	if request("id")="" then
	sql="select * from news where instr(ll,'0')>0 order by id desc"
	else
	sql="select * from news where instr(ll,'0')>0 and id="&request("id")
	end if
	rs.open sql,conn,2,3
	if rs.eof then
	Response.Write("<p>对不起，，，你所访问的文件已经被删除了。。。</p>")
	else
	rs("txt")=rs("txt")+1
	rs.update
	 %>
      <p align="center"><strong><font size="3"><%= rs("title")%></font></strong></p>
      <p align="center">&nbsp;</p>
      <p align="center"><font color="#FF0000"><%= rs("dat") %></font></p>
      <p align="left"> 　　阅读次数：<%= rs("txt") %></p>
      <p align="left" style="line-height: 200%">　　发 表 人：<%= rs("name") %></p>
      <hr width="90%" size="1"color=#cccccc>
      <table width="533" border="0" align="center" cellpadding="0" cellspacing="0">
        <tr> 
          <td width="533" colspan="2"> <p style="line-height: 200%"> 　<font size="2"><%= rs("body") %></font></p>
            <p style="line-height: 200%"> 　</p></td>
        </tr>
      </table>
      <p align="center"></p></td>
	  <% end if %>	  
	  
  </tr>
  <tr> 
    <td width="186">&nbsp;</td>
    <td colspan="2" width="589">&nbsp;</td>
  </tr>
</table>
<!--#include file="top.asp" -->

</body>
</html>
























