<!--#include file="../conn.asp"-->
<!--#include file="noangelql.asp"-->
<!--#include file="angel_function.asp"-->
<%
If request.QueryString("ID") = "" Or Not IsNumeric(request.QueryString("ID")) Then
    response.Write "<script language=javascript>alert('Illegal Operation');window.history.back();</script>"
    response.End
End If
Dim seotitle,seokeyword,seodescription
id = request("id")
Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "select * from Angel_news where 1=1 and Angel_languageid=2 and Angel_id="&id
rs.Open sql, conn, 1, 1
If rs.EOF And rs.bof Then
    Response.Write "<script language='javascript'>alert('Invalid parameter value!');document.location.href('news.asp');</script>"
Else
seotitle=rs("Angel_title")
seokeyword=rs("Angel_SeoKeywords")
seodescription=rs("Angel_SeoDescription")
End If
rs.Close
Set rs = Nothing
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312" />
<title><%=seotitle%></title>
<meta name="keywords" content="<%=seokeyword%>" />
<meta name="description" content="<%=seodescription%>" />
<LINK href="favicon.ico" rel="Shortcut Icon">
<LINK href="favicon.ico" rel="Bookmark">
<link href="css/style.css" rel="stylesheet" type="text/css" />
</head>
<body>
<!--#include file="header.asp"-->
    <div id="Central" class="layoutt"> 
      <!--#include file="left.asp"-->
      <div id="right">
        <div class="right_title">
      <%
id = request("id")
Set rs = Server.CreateObject("ADODB.RecordSet")
sql = "select * from Angel_news where 1=1 and Angel_languageid=2 and Angel_id="&id
rs.Open sql, conn, 1, 3
If rs.EOF And rs.bof Then
    Response.Write "<script language='javascript'>alert('Invalid parameter value!');document.location.href('news.asp');</script>"
Else
%>
          <h2>News Details</h2>
        </div>
        <div class="right_body">
              <table width="98%" border="0" cellspacing="0" cellpadding="0">
        <tr>
          <td height="28"><h3><%=rs("Angel_title")%></h3></td>
        </tr>
        <tr>
          <td style="border:1px dashed #CCC; border-top:none; border-left:none; border-right:none; margin-top:5px; padding-right:5px;" align="right">Author:<%=rs("Angel_author")%>ˇˇDate:<%=left(rs("Angel_data"),10)%>ˇˇClick:<font color='#ff0000'><%=rs("Angel_hits")%></font></td>
        </tr>
        <tr>
          <td height="10"></td>
        </tr>
        <tr>
          <td><%=rs("Angel_body")%></td>
        </tr>
      </table>
      <%
rs("Angel_hits") = rs("Angel_hits") + 1
rs.update
End If
rs.Close
Set rs = Nothing
%>

        </div>
      </div>
      <div class="clear"></div>
      <div id="link_text">
        <ul>
          <%
Set rs = server.CreateObject("adodb.recordset")
sql = "select top 10 * from Angel_link_text where 1=1 and Angel_languageid=2"
rs.Open sql, conn, 1, 1
Do While Not rs.EOF
%>
          <li><a href="<%=rs("Angel_url")%>" title="<%=rs("Angel_title")%>"><%=rs("Angel_title")%></a></li>
          <%
rs.movenext
Loop
rs.Close
Set rs = Nothing
%>
        </ul>
      </div>
    </div>
  </div>
  <!--#include file="footer.asp"--> 
</div>
