<% ArticleID=request("ArticleID") call updateHits() dim rsArticleList set rsArticleList=server.CreateObject("adodb.recordset") strSQL = "SELECT title,Author,content,SubTitle,CopyFrom FROM Article where ArticleID=" & ArticleID rsArticleList.open strSQL,conn,1,1 if rsArticleList.eof then response.write "系统错误！" response.end else %>
 
<%=rsArticleList("title")%>
<% if trim(rsArticleList("Author"))<>"" and trim(rsArticleList("Author"))<>"佚名" then response.write "作者：" & rsArticleList("Author") & "
" end if if trim(rsArticleList("CopyFrom"))<>"" then response.write "转贴自：" & rsArticleList("CopyFrom") & "
" end if if trim(rsArticleList("SubTitle"))<>"" then response.write "日期：" & rsArticleList("SubTitle") & "
" end if %>
<%=rsArticleList("content")%>
<% end if %>