<% 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("

找不到文章

") else %> <%=rs("Title")%>
  
您要打印的文件是:<%=rs("Title")%>

<%=rs("Title")%>

作者:<%=rs("Author")%>    转贴自:<%=rs("CopyFrom")%>    点击数:<%=rs("Hits")%>


<%=replace(rs("Content"),chr(34),"")%>
<% end if rs.close set rs=nothing call CloseConn %>