news_detail.asp

一个不错的企业网站源代码！

<%@ Language=VBScript%>
<%
Response.Buffer=false
Response.Expires=0
%>
<!-- #include file="dsnroot.asp" -->
<!-- #include file="links.asp" -->
<%
set cn=Server.CreateObject("ADODB.Connection")
cn.Open mycnstr
set rs=server.CreateObject("ADODB.Recordset")
menu="11211111"
id=Request.QueryString ("id")
pid=Request.QueryString ("pid")
pageno=Request.QueryString ("pageno")
if id="" then
		id=0
	else
		id=cint(id)
end if
if pid="" then
		pid=0
	else
		pid=cint(pid)
end if		
if id<>0 then
		sqltext="select top 1 * from cdanwei where enable=1 and id="&id&" order by pl"
		rs.Open sqltext,cn,1,1
		if not rs.EOF then
				title=trim(rs("name"))
				title2=trim(rs("name2"))
				creatdate=rs("creatdate")
				dateenable=rs("dateenable")
				content=checkstr(trim(rs("body")))
		end if
		rs.Close 
end if		
%>
<!-- #include file="design.asp" -->
<table width="778" border="0" cellspacing="0" cellpadding="0" align="center" bgcolor="#FFFFFF">
  <tr> 
    <td bgcolor="#66cc00" width="1"></td>
    <td width="190" valign="top" background="images/group/left_p_group.jpg" style="background-repeat: no-repeat; background-position: bottom"> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td><img src="images/group/left_top_p.jpg" width="190" height="45"></td>
        </tr>
      </table>
      <table width="180" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td><img src="images/news/tp_news.jpg" width="180" height="39"></td>
        </tr>
        <tr> 
          <td background="images/group/left_nav_bg.jpg"> 
            <%sqltext="select id,name,flag from danwei where enable=1 and pid=2 order by pl"
              rs.Open sqltext,cn,1,1
              do while not rs.EOF
              if pid=rs("id") then
					fontcolor="#ff9900"
					modeflag=rs("flag")
				else
					fontcolor="#000000"	
              end if
              %>
            <table width="78%" border="0" cellspacing="0" cellpadding="0" align="center">
              <tr> 
                <td colspan="2" height="6"></td>
              </tr>
              <tr> 
                <td width="20" class="font3">※</td>
                <td><a href="<%=linknews%>?id=<%=rs("id")%>" class="anews2"><font color="<%=fontcolor%>"><%=trim(rs("name"))%></font></a></td>
              </tr>
            </table>
              <%rs.MoveNext 
                loop
                rs.Close %>
            
          </td>
        </tr>
        <tr> 
          <td><img src="images/group/left_nav_bot.jpg" width="180" height="89"></td>
        </tr>
      </table>
      <table width="100%" border="0" cellspacing="0" cellpadding="0" height="50">
        <tr>
          <td>&nbsp;</td>
        </tr>
      </table>
    </td>
    <td background="images/line_v.gif" width="1"></td>
    <td valign="top" background="images/bot_bg.jpg" style="background-repeat: repeat-x; background-position: bottom">
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td><img src="images/news/news_p.jpg" width="585" height="130"></td>
        </tr>
      </table>
    <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td align="center"><%=title%>
          </td>
        </tr>
        <%if title2<>"" then%>
        <tr height=30>
          <td align=center  class=font1><%=title2%></td>
        </tr>
        <%end if%>
        <%if dateenable=1 then%>
        <tr>
          <td align=right  class=font1><%=creatdate%>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
        </tr>
        <%end if%>
      </table>
			<table width="96%" border="0" cellspacing="0" cellpadding="0">
		      <tr>
				<td><img src="images/group/line3.gif" width="585" height="22"></td>
			  </tr> 
		    </table>        
      <table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr>
          <td>&nbsp;</td>
        </tr>
      </table>
      <table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td class="font1"><%=content%></td>
        </tr>
      </table>
      <table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td height="50">&nbsp;</td>
        </tr>
      </table>
      <table width="96%" border="0" cellspacing="0" cellpadding="0" align="center">
        <tr> 
          <td background="images/line_h.gif" height="1" colspan="2"></td>
        </tr>
        <tr> 
          <td height="30"><a href="<%=linknews%>?id=<%=pid%>&pageno=<%=pageno%>" class="more">&lt;&lt;返回列表</a></td>
          <td height="30" align="right" width="50"><a href="#top"><img src="images/group/bt_top.gif" width="50" height="18" border="0"></a></td>
        </tr>
        <tr> 
          <td colspan="2">&nbsp;</td>
        </tr>
      </table>
    </td>
    <td bgcolor="#66cc00" width="1"></td>
  </tr>
</table>
<!-- #include file="end.asp" -->