<!--#include file="Inc/conn.asp"-->
<%
dim ArticleID,sql,rs
ArticleID=trim(request("ArticleID"))
if ArticleId="" then
	response.Redirect("Default.asp")
end if
sql="select * from article where ArticleID=" & ArticleID & ""
Set rs= Server.CreateObject("ADODB.Recordset")
rs.open sql,conn,1,3
if rs.bof and rs.eof then
	response.Write("<p>找不到文章</p>")
else	
%>
<html>
<head>
<title><%=rs("Title")%></title>
<meta http-equiv="Content-Type" content="text/html; charset=gb2312">
<link href="STYLE.CSS" rel="stylesheet" type="text/css">
</head>
<body leftmargin="2" topmargin="0" marginwidth="0" marginheight="0">
<table width="90%" border="0" cellspacing="0" cellpadding="0">
  <tr>
    <td>
<p align="center"><font size="6"><%=rs("Title")%></font><br>
        作者：<%=rs("Author")%>&nbsp;&nbsp;&nbsp;&nbsp;转贴自：<%=rs("CopyFrom")%>&nbsp;&nbsp;&nbsp;&nbsp;点击数：<%=rs("Hits")%></p>
      <%=replace(rs("Content"),chr(34),"")%> 
	</td>
  </tr>
</table>
</body>
</html>
<%
end if
rs.close
set rs=nothing
call CloseConn
%>